<R> データフレーム内の出現回数のカウント 列追加

Question

平素より大変お世話になっております。
R言語で

# sample Data Frame
x <- data.frame(
  date = c(1:10),
  treat = c("A", "A", "C", "C", "A","A", "B", "B", "B", "A"))

x %>% count(treat) %>% select(n)

でtreat列でA,B,Cがそれぞれ何個出てきたかはカウントできるのですが、それを列追加する良い方法はご存知ないですか？
mutateで追加しようと思ったのですが、中の引数をうまく設定できなくて困っています。
どなたかご教示いただけないでしょうか。

具体的にいうとAは5回出現するので、Aの横の列には５　Bならば３　Cならば２と入れる形です。

よろしくお願いいたします。

Answer 1

どういう結果を得たいのか今一つはっきりしないところがありますが、勝手に忖度してみました。

> x <- data.frame(
  date = c(1:10),
  treat = c("A", "A", "C", "C", "A","A", "B", "B", "B", "A"))

> x %>% count(treat)  -> x2
sapply(x$treat, function(i){x2$n[i]}) -> x$count

> x
   date treat count
1     1     A     5
2     2     A     5
3     3     C     2
4     4     C     2
5     5     A     5
6     6     A     5
7     7     B     3
8     8     B     3
9     9     B     3
10   10     A     5

Comments

[mourinho384]

ありがとうございます。言葉足らずで申し訳ありませんでした。
説明を追加しましたが、この通りです。
本当に助かりました！

Answer 2

xというdata.frameにカウントした結果を列として追加したいということですか？
xは10行で、カウントの結果は3行なので追加できないです。