基于字符串匹配的特定列的行和

Question

我有一个11个数据帧的列表，我想应用一个函数，该函数使用rowums来基于匹配11个数据帧中每个字符串的特定标准为每行创建另一列求和。

我尝试使用select(contains())。我没有考虑使用mutate，请在下面的代码中显示错误。

myfiles3 <- lapply(myfiles2, function(x) {x$CHINA2 <- rowSums(x[select(x, contains("China"))], na.rm = T); x})

它将错误显示为Error in [。default (x, select(x, contains("China"))) : invalid subscript type 'list'。

Answer 1

在没有样本数据集的情况下很难进行测试。试试：

library(tidyverse)
library(hablar)

myfiles2 %>% 
  map_df(~.x %>% mutate(china2 = row_sum_(contains("China"))))

Answer 2

我不知道为什么要对任何问题打上-1这样的不耐烦而又不遗余力地认为这里的社区之间存在着巨大的多样性。最后，解决此问题的方法如下：

x <- as.Date("01/01/1998", format = "%d/%m/%Y")
bday <- as.Date(c("01/01/1960", "01/01/1970"), format = "%d/%m/%Y")