代码之家 › 专栏 › 技术社区 › Darren Tsai

将不均匀列表转换为data.frame[重复]

dataframe r

Darren Tsai · 技术社区 · 7 年前

在简单的情况下,将偶数列表转换为数据帧可以通过 as.data.frame()

> (x1 <- list(a = 1:3, b = 4:6, c = 7:9))
> as.data.frame(x1)

#   a b c
# 1 1 4 7
# 2 2 5 8
# 3 3 6 9

但是,如果列表中组件的长度不相等,则 as.data.frame() 不起作用。

> (x2 <- list(a = 1:4, b = 5:6, c = 7:11, d = 12:14))

# $a
# [1] 1 2 3 4
# $b
# [1] 5 6
# $c
# [1]  7  8  9 10 11
# $d
# [1] 12 13 14

> as.data.frame(x2) # get an error

我想实现两个目标。一是:

#    a  b  c  d
# 1  1  5  7 12
# 2  2  6  8 13
# 3  3 NA  9 14
# 4  4 NA 10 NA
# 5 NA NA 11 NA

另一个是:

#   V1 V2 V3 V4 V5
# a  1  2  3  4 NA
# b  5  6 NA NA NA
# c  7  8  9 10 11
# d 12 13 14 NA NA

1 回复 | 直到 7 年前

www 7 年前

使用 tidyverse .

library(tidyverse)

x3 <- map_dfr(x2, ~as_data_frame(t(.)))
x3
# # A tibble: 4 x 5
#      V1    V2    V3    V4    V5
#   <int> <int> <int> <int> <int>
# 1     1     2     3     4    NA
# 2     5     6    NA    NA    NA
# 3     7     8     9    10    11
# 4    12    13    14    NA    NA

x4 <- as_data_frame(t(x3))
x4
# # A tibble: 5 x 4
#      V1    V2    V3    V4
#   <int> <int> <int> <int>
# 1     1     5     7    12
# 2     2     6     8    13
# 3     3    NA     9    14
# 4     4    NA    10    NA
# 5    NA    NA    11    NA

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前