편집을 취소할 수 있습니다. 이 편집을 되돌리려면 아래의 바뀐 내용을 확인한 후 게시해주세요.
최신판 | 당신의 편집 | ||
2번째 줄: | 2번째 줄: | ||
;R 그룹별 합 구하기 | ;R 그룹별 합 구하기 | ||
* 대략 "SELECT fruit, SUM(ea) FROM df GROUP BY fruit" | * 대략 "SELECT fruit, SUM(ea) FROM df GROUP BY fruit" | ||
< | <source lang='r' notebook> | ||
df <- read.csv( header=T, stringsAsFactors=F, text=" | df <- read.csv( header=T, stringsAsFactors=F, text=" | ||
day,fruit,ea | day,fruit,ea | ||
13번째 줄: | 13번째 줄: | ||
") | ") | ||
df | df | ||
</ | </source> | ||
==방법 1: aggregate ★== | ==방법 1: aggregate ★== | ||
< | <source lang='r' notebook> | ||
aggregate(ea ~ fruit, df, sum) | aggregate(ea ~ fruit, df, sum) | ||
</ | </source> | ||
==방법 2: tapply== | ==방법 2: tapply== | ||
< | <source lang='r' notebook> | ||
tapply(df$ea, df$fruit, sum) | tapply(df$ea, df$fruit, sum) | ||
</ | </source> | ||
==방법 3: sqldf== | ==방법 3: sqldf== | ||
< | <source lang='r' notebook> | ||
library(sqldf) | library(sqldf) | ||
sqldf("SELECT fruit, SUM(ea) AS s FROM df GROUP BY fruit") | sqldf("SELECT fruit, SUM(ea) AS s FROM df GROUP BY fruit") | ||
</ | </source> | ||
==같이 보기== | ==같이 보기== | ||
* [[R tapply()]] | * [[R tapply()]] | ||
* [[R aggregate()]] | * [[R aggregate()]] | ||
* [[R 그룹별 건수 구하기]] | * [[R 그룹별 건수 구하기]] | ||
* [[SQL 그룹별 합 구하기]] | * [[SQL 그룹별 합 구하기]] | ||
43번째 줄: | 42번째 줄: | ||
[[분류: R 데이터 전처리]] | [[분류: R 데이터 전처리]] | ||
[[분류: R sqldf]] | [[분류: R sqldf]] | ||