pylr패키지 ddply

install.packages('plyr')

library(plyr)

# 1) apply(matrix/data.frame, 1(행)/2(열), FUNC)

apply(iris[-5], 2, mean) # 마지막건 factor형이라 뺌 # 4개 컬럼당 평균구

# 2) tapply(dataset, 집단변수(범주형변수-성별같은거,iris에선 species로 묶는것처럼), FUNC)

tapply(iris$Sepal.Length, iris$Species, mean) # tapply(iris[-5], iris$Species, mean) 요렇게는 안되네

tapply(iris$Sepal.Width, iris$Species, sum) # 한번에 한컬럼씩만되는군

# 2. ddply() : plyr 패키지 제공 함수 # 이친구가 tapply와 구조가 유사, 하지만 한번에할 수 있다!

# 형식) ddply(dataframe, .(집단변수), 요약집계, 변수명=함수(변수))

# 꽃의 종류별(Species)로 꽃받침 길이(Sepal.Length)의 평균 계산

dp <- ddply(iris, .(Species), summarise,  # summarise가 어떻게 보이는건데

            avg = mean(Sepal.Length),

            tot = sum(Sepal.Length),

            var = var(Sepal.Length),

            sd = sd(Sepal.Length))

dp

dp2 <- ddply(iris, .(Species), summarise,  # summarise가 어떻게 보이는건데

            a1 = mean(Sepal.Length),

            a2 = mean(Sepal.Width),

            a3 = mean(Petal.Length),

            a4 = mean(Petal.Width))

dp2