0

我对 Stata 中的循环非常满意，我正在尝试在 R 中编写类似的东西，但我不断收到错误消息——知道为什么这个循环不起作用吗？

我有一个 Excel 表，其中包含每个月的单独选项卡的数据（如月列表中）。我想导入每个单独的选项卡并向其添加年份和月份列。

monthlist = list("Jan", "Feb", "Mar", "Apr", "May", "June", "Jul", "Aug", 
"Sep", "Oct", "Nov", "Dec")

for (k in seq_along(monthlist)){
   infile <- paste(i, " GP",".xlsx",sep=""); name<- 
   paste("X",i,"_GP",sep="")
   name.[k]<- read_excel(infile, sheet = [k])
   month=[k]
   name.[k] = cbind(year, month, name.[k])
  }

我已经尝试并尝试研究对 k 值的正确引用，但我无法弄清楚。请帮忙。

4

2 回答 2

0

如果我对评论的理解正确，我认为您想从多个工作簿中的不同工作表中获取数据，并将每个工作表的数据分配给它自己单独的数据框，这样您就有很多数据框；并且您不想在循环内进行此组合，因为每个结构都可能不同。如果是这种情况，那么您可以将代码修改为：

monthlist = list("Jan", "Feb", "Mar", "Apr", "May", "June", "Jul", "Aug", 
"Sep", "Oct", "Nov", "Dec")

for (k in seq_along(monthlist)){
   infile = paste(i, " GP",".xlsx",sep="")
   name = paste("X",i,"_GP",sep="")
   d_temp = read_excel(infile, sheet = k)
   assign(paste0(year, month), d_temp)
  }

重点是k在读入文件的时候要去掉方括号，二是assign()用来动态创建变量名。d_temp在 assign 从中创建新的不同变量之前临时存储数据框。

我注意到您的代码中的引用year和i我假设您事先设置的代码，所以我没有解决这些问题。

于 2018-09-21T21:21:44.943 回答
0

如果没有您的数据，很难告诉您这是否可行，但这里有一些选项。如果我不确定所有数据帧都具有相同的行数，我会亲自创建数据帧的嵌套数据帧。

library(tidyverse)
library(readxl)

df <- data_frame(year = rep(c(2014, 2015, 2016), each = 12), 
                 month = rep(c("Jan", "Feb", "Mar", "Apr", "May", "June", "Jul", "Aug", 
                              "Sep", "Oct", "Nov", "Dec"), 3)) %>%
  mutate(infile = map_chr(year, ~paste(.x, " GP",".xlsx",sep="")),
         data = map2(infile, month, ~read_excel(.x, sheet = .y)),
         data = map2(data, month, ~mutate(.x, month = .y)),
         data = map2(data, year, ~mutate(.y, year = .y)))

但是，如果你想使用循环，你也可以这样做，在这种情况下我会推荐一个数据框列表。

year <- c(2014:2016)
month = c("Jan", "Feb", "Mar", "Apr", "May", "June", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec") 
df.list <- list()
for(i in seq_along(year)){
  for (k in seq_along(month)){ 
  infile <- paste(year[[i]], " GP",".xlsx",sep="") 
  name<- paste("X",year[[i]],"_GP",sep="") 
  df.list[[i]] <- read_excel(infile, sheet = month[[k]]) 
  }
}
于 2018-09-21T21:27:46.133 回答