在新列中填充循环计数

如何解决在新列中填充循环计数

我试图计算df1的A列中的每一行值出现在df2的B列中的次数，然后在df1的新列中填充相应的计数。

df1

ColumnA  
A_10   
A_11
A_12
A_13
A_14

df2

ColumnB
A_10,A_50
A_10,A_50
A_14,A_50
A_50,A_10

所需的输出

ColumnA  New_Column
A_10      3
A_11      0
A_12      0
A_13      0
A_14      1

我的代码：

df1$new_column <- 0

for (i in df1$ColumnA) {
   df$new_column[i] <- sum(grepl(i,df2$ColumnB),na.rm = TRUE)
  }

一整天都在打我的头，包括看论坛问题-我在这里做错了什么？

解决方法

我们可以用逗号将df2中的数据分割成count，并将其与df1合并。我们将NA的值替换为0。

library(dplyr)
library(tidyr)

df2 %>%
  separate_rows(ColumnB,sep = ',\\s*') %>%
  count(ColumnB) %>%
  right_join(df1,by = c('ColumnB' = 'ColumnA')) %>%
  mutate(n = replace_na(n,0))

#  ColumnB     n
#  <chr>   <dbl>
#1 A_10        3
#2 A_14        1
#3 A_11        0
#4 A_12        0
#5 A_13        0

并使用grepl：

df1$New_Column <- sapply(df1$ColumnA,function(x) sum(grepl(x,df2$ColumnB)))