< 9 > reshape2 패키지
head(airquality) # 뉴욕의 공기 오염도 수치
names(airquality) <- tolower(names(airquality)) # 대문자 -> 소문자로
air_low <- airquality # 복사본
table(is.na(air_low)) # 결측치 확인
reshape2 패키지 설치
install.packages("reshape2")
library(reshape2)
9-1) melt() : 가로로 긴 데이터를 세로로 변환
melt(데이터 세트, id.var= "기준열", measure.vars = "변화열")
#월 과 바람에 따른 오존값 확인
melt_test <- melt(air_low,
id.vars = c("month", "wind"),
measure.vars = "ozone")
#월 과 일에 따른 오존값 확인
melt_test2 <- melt(air_low,
id.vars = c("month", "day"),
measure.vars = "ozone")
9-2) cast() 세로로 긴 데이터 모양을 가로로 전환
dcast() 데이터 프레임 형태를 데이터프레임 형태로 변환
dcast(데이터 세트, 기준열~ 반환열)
aq_melt <- melt(air_low, id.vars = c("month", "day"))
aq_dcast <- dcast(aq_melt, month + day ~ variable)
acast() 벡터, 행렬, 배열 형태를 변환
1. acast(데이터 세트, 기준열~ 반환열~ 분리 기준열)
2. acast(데이터 세트, 기준열~ 반환열, 함수)
# 5월부터 9월까지/ 1일에서부터 31일까지의 오존, 태양 복사, 바람, 온도 측정값 출력
aq_acast <- acast(aq_melt, day~ month~ variable)
class(aq_acast)
View(aq_acast)
# 평균으로 요약
aq_acst_mean <- acast(aq_melt, month~ variable, mean)
class(aq_acst_mean)
# 합계로 요약
aq_acst_sum <- acast(aq_melt, month~ variable, sum)
class(aq_acst_sum)