是否有一个 R 函数可以对多个数据帧中的多个变量求和？

Question

我有一个如下所示的数据：

此数据显示了世界上许多公司在哪里设有办事处。公司名称以字母和四位数字开头。

我想做的是创建两个变量来显示 (1) 每个国家在给定年份的公司总数和 (2) 每个国家和年份的公司总数，但仅与“国家第一个地址”。

现在，一个问题是数据非常大，并且以 15 个单独的 .csv 文件形式提供。数据适用于以下年份：2003 年、2007 年、2011 年、2015 年和 2019 年。每年三个 csv 文件。例如，对于 2003，我们有：data2003_part1.csv； data2003_part2 和 data2003_part3。

要创建上面的变量，我想我可以使用这样的东西：

 library(tidyverse)
 data_2003_part1 %>% group_by(Country of 1st ADDRESS) %>%
      summarise(B0100=sum(B0100,na.rm = T)) 

我不知道该怎么做是 1) 在所有公司的代码中指出，而不仅仅是像我在这里所做的那样 2) 代码可以在所有 15 个 csv 文件上运行。我想我需要先合并它们并添加年份变量？还是有其他方法？

Answer 1

试试这样的：

library(dplyr)
library(tidyr)
#Code
myfun <- function(df)
{
  #Code
  new <- df %>%
    pivot_longer(starts_with('COUNTRY')) %>%
    group_by(name) %>%
    summarise_all(sum,na.rm=T)
  return(new)
}
#Load files
myfiles <- list.files(pattern = '.csv')
#List of files
L <- lapply(myfiles, read.csv)
#Apply function
L1 <- lapply(L,myfun)

在没有数据的情况下提供复杂的帮助。如有任何问题，请告诉我。