有没有办法为for循环中的数据帧赋值？

Question

我想使用for循环为数据帧赋值，循环通过数据帧中的不同行。

我试图将我需要的变量名称（在每次迭代中更改）分配给某些值，然后将这些值放在一个数据帧中，这不起作用

banks <- read.csv("banks_csv.csv", sep = ";", stringsAsFactors = FALSE)
banks<-data.frame(banks)

for (row in 1:nrow(banks)){
bank = banks[row, "Company"]

reviews <- read.csv(paste(bank, "_cleaned.csv", sep = ""))
reviews$X = NULL
reviews_summary <- reviews %>% 
group_by(Year_Quarter) %>%     
    summarise(rat_gen = mean(rat_general, na.rm = TRUE), 
              CV = mean(rat_CV, na.rm = TRUE), 
              WL = mean(rat_WL, na.rm = TRUE), 
              CO = mean(rat_CO, na.rm = TRUE), 
              CB = mean(rat_CB, na.rm = TRUE), 
              SM = mean(rat_SM, na.rm = TRUE)) 

nam <- paste("general_", bank, sep = "")
assign(nam, reviews_summary$rat_gen)

nam <- paste("CV_", bank, sep = "")
assign(nam, reviews_summary$CV)

nam <- paste("WL_", bank, sep = "")
assign(nam, reviews_summary$WL)

nam <- paste("CO_", bank, sep = "")
as.list(nam, reviews_summary$CO)

nam <- paste("CB_", bank, sep = "")
as.list(nam, reviews_summary$CB)

nam <- paste("SM_", bank, sep = "")
as.list(nam, reviews_summary$SM)

df <- data.frame(paste("general_", bank, sep = ""), paste("CV_", bank, sep = ""), paste("WL_", bank, sep = ""), paste("CO_", bank, sep = ""), paste("CB_", bank, sep = ""), paste("SM_", bank, sep = ""))
}

编辑：我想只有一个data.frame，每次迭代增加6列，而不是为每次迭代生成一个数据帧。

Answer 1

也许这就是你要找的东西。您可以使用rename函数重命名列：

for (row in 1:nrow(banks)){
  bank = banks[row, "Company"]
  reviews <- read.csv(paste(bank, "_cleaned.csv", sep = ""))

  df_bank <- reviews %>% 
    group_by(Year_Quarter) %>%     
    summarise(general = mean(rat_general, na.rm = TRUE), 
              CV = mean(rat_CV, na.rm = TRUE), 
              WL = mean(rat_WL, na.rm = TRUE), 
              CO = mean(rat_CO, na.rm = TRUE), 
              CB = mean(rat_CB, na.rm = TRUE), 
              SM = mean(rat_SM, na.rm = TRUE)) %>% 
    rename_at(-1, ~paste0(.x, "_", bank)) %>% 
    as.data.frame()

  df <- cbind(df, df_bank)
 }

请注意，在开始循环之前，必须初始化dfto具有正确的行数。