r - 有没有办法从表函数中获得不同的计数

Question

下面是数据框df。

ds
  a b
1 a f
2 a d
3 b g
4 b g

当我尝试时table(ds$b,ds$a)，我得到

    a b
  d 1 0
  f 1 0
  g 0 2

但我只需要像下面这样不同

    a b
  d 1 0
  f 1 0
  g 0 1

有没有办法通过表函数得到它

标签： r

Answer 1

您可以使用pmin设置 0 到 1 之间的范围。

pmin(table(ds$b,ds$a), 1)
#    a b
#  d 1 0
#  f 1 0
#  g 0 1

或unique之前使用table：

table(unique(ds)[2:1])
#b   a b
#  d 1 0
#  f 1 0
#  g 0 1

数据：

ds  <- data.frame(a=c("a","a","b","b"), b=c("f","d","g","g"))