私はdplyrが初めてで、次の変換を運なしでやろうとしています。インターネットで検索しましたが、ddplyで同じことをする例を見つけましたが、dplyrを使用したいと思います。
次のデータがあります。
month type count
1 Feb-14 bbb 341
2 Feb-14 ccc 527
3 Feb-14 aaa 2674
4 Mar-14 bbb 811
5 Mar-14 ccc 1045
6 Mar-14 aaa 4417
7 Apr-14 bbb 1178
8 Apr-14 ccc 1192
9 Apr-14 aaa 4793
10 May-14 bbb 916
.. ... ... ...
Dplyrを使用して、月レベルで各タイプ(aaa、bbb、ccc)の割合を計算します。
month type count per
1 Feb-14 bbb 341 9.6%
2 Feb-14 ccc 527 14.87%
3 Feb-14 aaa 2674 ..
.. ... ... ...
私はもう試した
data %>%
group_by(month, type) %>%
summarise(count / sum(count))
これにより、各値として1が得られます。その月のすべてのタイプでsum(count)を合計するにはどうすればよいですか?
試してみる
_library(dplyr)
data %>%
group_by(month) %>%
mutate(countT= sum(count)) %>%
group_by(type, add=TRUE) %>%
mutate(per=paste0(round(100*count/countT,2),'%'))
_
sum(count)
を 'month'で要約した後、_left_join
_を使用することもできます
または、_data.table
_を使用するオプション。
_ library(data.table)
setkey(setDT(data), month)[data[, list(count=sum(count)), month],
per:= paste0(round(100*count/i.count,2), '%')][]
_
そして、少し少ないコードで:
df <- data.frame(month=c("Feb-14", "Feb-14", "Feb-14", "Mar-14", "Mar-14", "Mar-14", "Apr-14", "Apr-14", "Apr-14", "May-14"),
type=c("bbb", "ccc", "aaa", "bbb", "ccc", "aaa", "bbb", "ccc", "aaa", "bbb"),
count=c(341, 527, 2674, 811, 1045, 4417, 1178, 1192, 4793, 916))
library(dplyr)
df %>% group_by(month) %>%
mutate(per=paste0(round(count/sum(count)*100, 2), "%")) %>%
ungroup
データフレームを「そのまま」残したいので、summarise
を使用しないでください。mutate
で十分です。