function 正在覆盖 df 而不是扩展它

Question

我是函数的新手，所以我不确定如何解决代码才能继续扩展我的 output df out_df ，而不是在它针对 x 上的每个值运行时覆盖它，在本例中是每个国家/地区数据框国家。 我最后的output也只有巴西的信息。

这是function

consume_country_year <- function(x) {
  consume <- filter(data1, Consumer %in% x)%>%
    filter(year %in% c('2014', '2015', '2016'))%>%
    group_by(year)%>%
    summarise(Value=sum(Value))
    
  return(consume)
}

country <- c("China", "Germany", "USA", "Brazil")

for (x in country) {
  out_df <- consume_country_year(x)
  
}

多谢！

Answer 1

如果您改为将Consumer添加为另一个分组变量，您应该能够完全避免循环：

library(dplyr)

data1 %>%
  filter(
    Consumer %in% c("China", "Germany", "USA", "Brazil"),
    year %in% c('2014', '2015', '2016')
  ) %>%
  group_by(Consumer, year) %>%
  summarise(Value=sum(Value), .groups = "drop")

Answer 2

尝试这个

out.list <- list()
for (i in seq_along(country) {
   out.list[[i]] <- consume_country_year(country[i])
}
out.df <- dplyr::bind_rows(out.list)

Answer 3

或这个

for (x in country) {
  out_df <- dplyr::bind_rows(get0("out_df"),consume_country_year(x))
  
}