根据唯一列值计算变量组合

时间:2020-03-13 08:40:05

标签: r dataframe

df

id=c(12,12,13,14,14,15,16,17,18,18)
reg = c('FR','FR','DE','US','US','TZ','MK','GR','ES','ES')
code1=c('F56','G76','G56','T78','G78','G76','G64','T65','G79','G56')
code2=c('G56','I89','J83','S46','D78','G56','H89','G56','W34','T89')
bin1= c(0,1,1,0,1,1,0,0,0,1)
bin2= c(1,0,1,0,0,1,1,1,0,0)
bin3= c(0,0,0,1,1,0,0,1,0,1)
df = data.frame(idnumber,reg,code1,code2, bin1, bin2, bin3)

看起来像

id  reg code1 code2 bin1 bin2 bin3
12  FR  F56   G56    0    1    0
12  FR  G76   I89    1    0    0
13  DE  G56   J83    1    1    0
14  US  T78   S46    0    0    1
14  US  G78   D78    1    0    1
15  TZ  G76   G56    1    1    0
16  MK  G64   H89    0    1    0
17  GR  T65   G56    0    1    1
18  ES  G79   W34    0    0    0
18  ES  G56   T89    1    0    1

如果由唯一bin1聚合的二进制变量(bin2bin3idnumber)值的组合出现,我正在尝试计算数量喜欢:

bin1 bin2 bin3 count
  1   1    0    3
  1   0    1    2
  0   1    0    1
  0   1    0    1

欢迎任何建议!干杯

1 个答案:

答案 0 :(得分:2)

如果我对您的理解正确,则可以使用OR运算符进行汇总,然后计算唯一值。由于以0和1开头,所以当用id分隔时,可以获得每列的最大值。在dplyr中尝试以下操作:

library(dplyr)
df %>% 
select(id,bin1,bin2,bin3) %>% 
group_by(id) %>% 
summarise_all(max) %>% 
count(bin1,bin2,bin3)

# A tibble: 4 x 4
   bin1  bin2  bin3     n
  <dbl> <dbl> <dbl> <int>
1     0     1     0     1
2     0     1     1     1
3     1     0     1     2
4     1     1     0     3

无需安装dplyr,您可以执行以下操作:

by_id = aggregate(df[,c("bin1","bin2","bin3")],list(id=df$id),max)
aggregate(id~bin1+bin2+bin3,by_id,length)
  bin1 bin2 bin3 id
1    0    1    0  1
2    1    1    0  3
3    1    0    1  2
4    0    1    1  1