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

有没有办法通过表函数获取

Answer 1

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

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

或者在table之前使用unique:

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"))