Question

我在网上搜索帖子以找到解决方案。但是，我无法识别任何。因此，我决定请你帮忙。我有一个包含数据框的列表。我从每个数据框中选择了某些列并将它们组合在一起。当我组合来自两个数据框的数据时，我想添加一个包含列表名称的列。但是，我无法做到这一点。这是一个示例数据和我尝试过的内容。

示例数据＆amp;我的尝试

### 1st dataframe
time <- seq(as.Date("2014-09-01"), by = "day", length.out = 12)
temperature <- sample(c(15:26), replace = TRUE)
weather <- sample(c("clear", "cloudy", "rain"), size = 12, replace = TRUE)

rome <- data.frame(time, temperature, weather, stringsAsFactors = F)

### 2nd dataframe
time <- seq(as.Date("2014-09-01"), by = "day", length.out = 12)
temperature <- sample(c(12:23), replace = TRUE)
weather <- sample(c("clear", "cloudy", "rain"), size = 12, replace = TRUE)

paris <- data.frame(time, temperature, weather, stringsAsFactors = F)


### Assign names to each data frame and create a list
ana <- list(rome = rome, paris = paris)

#Here are a bit of data.

#> ana
#$rome
#         time temperature weather
#1  2014-09-01          19  cloudy
#2  2014-09-02          21  cloudy
#3  2014-09-03          17   clear

#$paris
#         time temperature weather
#1  2014-09-01          18   clear
#2  2014-09-02          12  cloudy
#3  2014-09-03          17  cloudy

### Select 1st and 2nd column from each data frame in the list and 
### combine them.

rbind.fill(lapply(ana, `[`, 1:2))

我想在这里添加一些东西，用新列，位置创建以下理想结果。请注意，我修剪了理想的结果以节省空间。

         time temperature location
1  2014-09-01          19     rome
2  2014-09-02          21     rome
3  2014-09-03          17     rome
13 2014-09-01          18    paris
14 2014-09-02          12    paris
15 2014-09-03          17    paris

我试过的一件事是以下列方式使用cbind()，虽然我知道这不起作用。

lapply(ana, function(x) cbind(x, new = names(ana)))

#$rome
#         time temperature   new
#1  2014-09-01          19  rome
#2  2014-09-02          21 paris
#3  2014-09-03          17  rome
#
#$paris
#         time temperature   new
#1  2014-09-01          18  rome
#2  2014-09-02          12 paris
#3  2014-09-03          17  rome

我觉得setNames()可能会提供一些东西，并且这可以通过简单的方式完成。不过我可能错了。非常感谢您抽出宝贵的时间。

Answer 1

你可以做到

ana <- Map(cbind, ana, location = names(ana))

在致电location之前附加rbind.fill列。

Answer 2

简单的for循环没有错：

for (i in names(ana)) ana[[i]]$location <- i

然后使用rbind.fill。

Answer 3

非常感谢您的大力支持。 for循环和Map()解决方案非常适用。我学到了很多。与此同时，Henrik提供的链接为我提供了我正在寻找的解决方案。因此，我决定在这里留下答案。再次感谢您的支持。

ldply(ana, rbind)

     .id       time temperature weather
1   rome 2014-09-01          19  cloudy
2   rome 2014-09-02          21  cloudy
3   rome 2014-09-03          17   clear
13 paris 2014-09-01          18   clear
14 paris 2014-09-02          12  cloudy
15 paris 2014-09-03          17  cloudy

如何在列表中创建名称的新列

3 个答案: