在R中按行名称组合不同长度的数据帧列表

3 回答

• 1

  如果您拥有仅在全局环境中需要的数据，则可以尝试以下操作 . 首先，您在所有数据框中收集独特年份并创建主数据框，其中仅包含唯一年份 . 然后，将所有数据框放在一个列表中，并将每个数据框与 master 合并 . 由于 temp 中有主数据框，因此将其删除 . 最后，绑定所有数据帧并将长格式更改为宽格式 .

  library(tidyverse)
  
  # Create a data frame with all unique years
  
  master <- data.frame(year = mget(ls()) %>%
                              sapply(`[`, 1) %>%
                              as_vector %>% 
                              unique)
  
  # Merge each data frame with the master df
  temp <- mget(ls()) %>%
          lapply(function(x){full_join(x, master, by = "year")})
  
  # Remove the master df in the list
  temp[["master"]] <- NULL
  
  # Bind all dfs and make it wide.
  bind_rows(temp, .id = "data") %>%
  spread(key = data, value = value)
  
  #  year df1 df2 df3
  #1 1996  NA  NA  19
  #2 1997  14  NA   9
  #3 1998  13  11   8
  #4 1999  10  20  17
  

  数据

  df1 <- data.frame(year = c(1999, 1998, 1997),
                    value = c(10, 13, 14))
  
  df2 <- data.frame(year = c(1999, 1998),
                    value = c(20, 11))
  
  df3 <- data.frame(year = c(1999, 1998, 1997, 1996),
                    value = c(17, 8, 9, 19))
  

  回复于 2024-05-19T04:43:47+08:00
• 1

  重新考虑@Djork显示的链合并，但要确保创建一个名为Index的实际列，索引等于 rownames() . 此外，根据df＃重命名 X..1 列，这也避免了合并期间的重复列警告 . dfs下面相当于发布的smalldflist：

  dfs <- lapply(seq_along(dfs), function(i){
          dfs[[i]]$Index = rownames(dfs[[i]])        # CREATE INDEX
          colnames(dfs[[i]])[1] <- paste0("df", i)   # RENAME X..1 COLUMN
  
          return(dfs[[i]])
  })
  
  dfs[[1]]
  #             df1 Index
  # 1725   4.552824  1725
  # 1726  32.647434  1726
  # 1727  52.711602  1727
  # 1728 170.932583  1728
  # 1729 227.043044  1729
  # 1730 191.462399  1730
  # 1731 226.940535  1731
  # 1732 274.854836  1732
  # 1733 336.457600  1733
  # 1734 409.132934  1734
  
  finaldf <- Reduce(function(...) merge(..., by="Index", all=TRUE), dfs)
  
  finaldf
  #    Index    df1     df2     df3     df4    df5    df6   df7        df8
  # 1   1626     NA      NA      NA      NA     NA     NA    NA   1.911345
  # 2   1627     NA      NA      NA      NA     NA     NA    NA   3.397947
  # 3   1628     NA      NA      NA      NA     NA     NA    NA   5.326885
  # 4   1629     NA      NA      NA      NA     NA     NA    NA   6.419216
  # 5   1630     NA      NA      NA      NA     NA     NA    NA  11.030760
  # ...
  

  回复于 2024-05-19T04:43:47+08:00
• 1

  您可以使用 Reduce 来 merge 多个数据帧 . 设置 all = TRUE ，在没有匹配时添加NAs . 注意df是您设置的数据框列表， by 表示用于合并的列 . 因此，在数据框列表中，"Index"应该是每个数据框中年份列的名称 .

  Reduce(function(...) merge(..., by="Index", all=TRUE), df)
  

  并且由于@jazzuro提供了样本数据，这里是使用基础R中的 Reduce 的等效解决方案 . 在此示例中设置用于合并 by="year" 的列：

  df1 <- data.frame(year = c(1999, 1998, 1997),
                value = c(10, 13, 14))
  
  df2 <- data.frame(year = c(1999, 1998),
                value = c(20, 11))
  
  df3 <- data.frame(year = c(1999, 1998, 1997, 1996),
                value = c(17, 8, 9, 19))
  df <- list(df1=df1, df2=df2, df3=df3)
  df_merge  <- Reduce(function(...) merge(..., by="year", all=TRUE), df)
  colnames(df_merge) <- c("Index", names(df))
  
  #   Index df1 df2 df3
  # 1 1996  NA  NA  19
  # 2 1997  14  NA   9
  # 3 1998  13  11   8
  # 4 1999  10  20  17
  

  回复于 2024-05-19T04:43:47+08:00