将行标题转换为列并计算值

Question

我有一张数据文件，看起来像：

ID     Fig1  Fig2   TER1   TER2    TER3
ERT-1  50     25    A      A       C
ERT-2  80     35    B      C       B
ERT-5  10     75    C      C       A

列TER1、TER2和TER3中只有三个不同的值，希望知道每个值的计数与ID对应。

我试过dcast，但它不能工作。

所需数据：

XYZ    A    B    C
TER1   1    1    1
TER2   1    0    2
TER3   1    1    1

Answer 1

下面是通过dplyr的一个想法。您需要先对感兴趣的列进行gather，然后再计数，即

library(dplyr)

df %>%
  gather(var, val, -c(1:3)) %>%
  select(var, val) %>%
  table() %>%
  as.data.frame.matrix() %>%
  rownames_to_column('XYZ')

这给了，

XYZ A B C 1 TER1 1 1 1 2 TER2 1 0 2 3 TER3 1 1 1