"R 그룹별 합 구하기"의 두 판 사이의 차이

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'>
<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
12번째 줄: 12번째 줄:
2019-08-25,orange,2
2019-08-25,orange,2
")
")
# ★
aggregate(ea ~ fruit, df, sum)
aggregate(ea ~ fruit, df, sum)
##    fruit ea
</source>
## 1  apple  5
<source lang='r' notebook>
## 2 banana  6
## 3 orange  2
 
tapply(df$ea, df$fruit, sum)
tapply(df$ea, df$fruit, sum)
## apple banana orange
##    5      6      2
</source>
</source>
<source lang='r'>
<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")
##    fruit s
## 1  apple 5
## 2 banana 6
## 3 orange 2
</source>
</source>



2021년 4월 9일 (금) 20:17 판

1 개요

R 그룹별 합 구하기
  • 대략 "SELECT fruit, SUM(ea) FROM df GROUP BY fruit"
df <- read.csv( header=T, stringsAsFactors=F, text="
day,fruit,ea
2019-06-01,apple,1
2019-06-11,apple,1
2019-06-21,banana,2
2019-07-01,apple,3
2019-07-11,banana,4
2019-08-25,orange,2
")
aggregate(ea ~ fruit, df, sum)
tapply(df$ea, df$fruit, sum)
library(sqldf)
sqldf("SELECT fruit, SUM(ea) AS s FROM df GROUP BY fruit")

2 같이 보기

3 참고

문서 댓글 ({{ doc_comments.length }})
{{ comment.name }} {{ comment.created | snstime }}