[R]for 함수를 이용한 데이터 자동 계산

몇일전 빅데이터를 분석하기 위한 코딩을 했었다.

2020/12/15 - [공부/R] - [R]데이터 핸들링 연습(2020.12.15)

[R]데이터 핸들링 연습(2020.12.15)

 

물론 엑셀로 작업하는 것보다 훨씬... 빠른 속도로 분석을 하였다.

하지만...?

자동화가 되어 있지 않아서

ctrl + enter를 계속 눌러주어야 했기에

for 문을 이용하면 자동화가 되지 않을까 고민해보았다.

 

for 함수에 대해 이해하는데

조금 많은 시간이 필요했지만...

결론적으로 성공했다!

 

library(readxl)
library(dplyr)

data <- read_xls("c:/wq.xls")
data[is.na(data)] = 0
drowname <- table(data$측정소명)
drowname1 <- data.frame(head(drowname, n = 10))
drowname1 = data.frame(drowname1[ , -2])
colnames(drowname1)<-c("측정소")
drowname1

frt1 <- filter(.data = data, 측정소명 == "삼산천")
frt2 <- summary(frt1)
frt3 <- frt2[3,]
frt4 <- data.frame(frt3)
frt4

f <- for (i in 2:10) {
  a = drowname1[i , ]
  hap1 = filter(.data = data, 측정소명 == a)
  hap2 = summary(hap1)
  hap3 = hap2[3,]
  hap4 = data.frame(hap3)
  frt4[,i] <- hap4
}

colnames(frt4) <- drowname1$측정소
head(frt4)

자세한 내용은 다음 포스팅에서 쓰도록 하겠습니다..

출장와서

for 공부하느라 새벽 2:00가 다 되어가네요...^^;;

오늘도 누군가에게는 도움이 되기를 바라며... 작성하였습니다.