Rで日別のアクティブ数を割り出したい

Question

|date|name|
|:--|:--:１|
|2020-04-18|yamada|
|2020-04-19|nomura|
|2020-04-20|tanaka|
|2020-04-20|yamada|
|2020-04-20|nomura|
|2020-04-21|tanaka|
|2020-04-21|yamada|
|2020-04-21|nomura|
|2020-04-21|tanaka|
|2020-04-21|yamada|
|2020-04-22|nomura|
|2020-04-22|tanaka|

上記のデータフレームで、日別のアクティブ数を割り出したい( =dateごとのnameの要素数をカウントしたい)と考えています。

アウトプットのイメージとしては
|date|count|
|:--|:--:１|
|2020-04-18|1|
|2020-04-19|1|
|2020-04-20|3|
|2020-04-21|3|
|2020-04-22|2|

のようなかたちです。

いまのところだと、dateを絞ってnameの要素数をカウントして…という作業を延々と繰り返すしかないイメージなのですが、
一括で行える方法はありますでしょうか。

Answer 1

aggrigate()を使って "date"毎に length(unique(df["name"])) を求めるとよいのではないでしょうか

aggregate(df["name"], by=df["date"], function(d)length(unique(d)))

Comments

[nar]

ご回答ありがとうございました！

Answer 2

a <- read.table(text="date name
2020-04-18 yamada
2020-04-19 nomura
2020-04-20 tanaka
2020-04-20 yamada
2020-04-20 nomura
2020-04-21 tanaka
2020-04-21 yamada
2020-04-21 nomura
2020-04-21 tanaka
2020-04-21 yamada
2020-04-22 nomura
2020-04-22 tanaka", header=T, stringsAsFactors=F)

a_uniq <- unique(a)
result <- rle(a_uniq$date)

> data.frame(date=result$values, freq=result$lengths)
        date freq
1 2020-04-18    1
2 2020-04-19    1
3 2020-04-20    3
4 2020-04-21    3
5 2020-04-22    2

Comments

[nar]

ご回答ありがとうございました！こちらを試してみたところ解決しました！
とてもわかりやすかったです。