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

Question

我有一个不同长度的数据帧列表(df),按年份索引,数据的代理如下所示：

df

  $df1          
         X..i..
  1999     10
  1998     13 
  1997     14

 $df2
         X..i..
 1999      20
 1998      11

 $df3
         X..i..
 1999      17
 1998       8
 1997       9
 1996      19

df_all
 Index     df1   df2   df3
  1999      10    20    17
  1998      13    11     8
  1997      14    n/a    9
  1996      n/a   n/a   19

smalldflist <- lapply(bai_df, function(i) head(i, 10))
dput(smalldflist)

Answer 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))