如何使用apply（）系列将几列连接成R中的单个向量答案

【问题标题】：How to concatenate several columns into single vector in R using apply() family如何使用apply（）系列将几列连接成R中的单个向量
【发布时间】：2020-03-20 16:50:23
【问题描述】：

假设我有一个这样的数据框，w1代表单词，d1、d2等代表话语中的持续时间：

set.seed(12)
df <- data.frame(
  w1 = c(sample(LETTERS[1:4], 10, replace = T)),
  d1 = c(rep(NA, 3), round(rnorm(7),3)),
  d2 = c(round(rnorm(6),3), NA, round(rnorm(3),3)),
  d3 = c(round(rnorm(2),3), rep(NA,2), round(rnorm(6),3)),
  d4 = c(round(rnorm(1),3), NA, round(rnorm(8),3))
)
df
   w1     d1     d2    d3     d4
1   D     NA -0.043 0.314 -2.149
2   C     NA -0.113 0.407     NA
3   A     NA  0.457    NA  0.971
4   D -1.596  2.020    NA  1.145
5   C -0.309 -1.051 0.994 -0.525
6   D  0.449  0.735 0.856  0.250
7   A -0.977     NA 0.197 -0.429
8   A  0.190  0.539 0.834 -0.183
9   C  0.731 -1.314 0.847 -0.103
10  B -0.493 -0.250 1.954 -0.634

由于d1、d2 等实际上是同一个变量，我想将它们连接成一个向量。这样做很容易：

d <- c(df$d1, df$d2, df$d3, df$d4)
d
[1]     NA     NA     NA -1.596 -0.309  0.449 -0.977  0.190  0.731 -0.493 -0.043 -0.113  0.457  2.020
[15] -1.051  0.735     NA  0.539 -1.314 -0.250  0.314  0.407     NA     NA  0.994  0.856  0.197  0.834
[29]  0.847  1.954 -2.149     NA  0.971  1.145 -0.525  0.250 -0.429 -0.183 -0.103 -0.634

但是：我的真实数据框有很多这样的持续时间列，以这种方式连接它们很乏味。所以我尝试使用apply 系列函数。但结果不是我想要的：

lapply(df[,2:5], c)
$d1
[1]     NA     NA     NA -1.596 -0.309  0.449 -0.977  0.190  0.731 -0.493
$d2
[1] -0.043 -0.113  0.457  2.020 -1.051  0.735     NA  0.539 -1.314 -0.250
$d3
[1] 0.314 0.407    NA    NA 0.994 0.856 0.197 0.834 0.847 1.954
$d4
[1] -2.149     NA  0.971  1.145 -0.525  0.250 -0.429 -0.183 -0.103 -0.634

sapply(df[,2:5], c)
          d1     d2    d3     d4
[1,]     NA -0.043 0.314 -2.149
[2,]     NA -0.113 0.407     NA
[3,]     NA  0.457    NA  0.971
[4,] -1.596  2.020    NA  1.145
[5,] -0.309 -1.051 0.994 -0.525
[6,]  0.449  0.735 0.856  0.250
[7,] -0.977     NA 0.197 -0.429
[8,]  0.190  0.539 0.834 -0.183
[9,]  0.731 -1.314 0.847 -0.103
[10,] -0.493 -0.250 1.954 -0.634

必须如何更改代码才能获得所需的结果，如d 所示？

【问题讨论】：

数据框是一种列表，unlist(df[-1],use.names=FALSE) 可以解决问题。更多信息请参考stackoverflow.com/a/15902963/7153771

标签： r concatenation

【解决方案1】：

也许unlist() 就可以了。

as.numeric(unlist(df[2:5]))
# [1]     NA     NA     NA -0.272 -0.315 -0.628 -0.106  0.428 -0.778 -1.294 -0.780  0.012
# [13] -0.152 -0.703  1.189  0.341     NA  0.507 -0.293  0.224  2.007  1.012     NA     NA
# [25] -0.302 -1.025 -0.267 -0.199  0.131  0.146  0.362     NA  0.674  2.072 -0.541 -1.070
# [37] -0.372 -0.485  0.275 -0.480

【讨论】：

【解决方案2】：

试试：

do.call("c", df[,2:5])
   d11    d12    d13    d14    d15    d16    d17    d18    d19   d110    d21    d22    d23    d24    d25    d26 
    NA     NA     NA -0.272 -0.315 -0.628 -0.106  0.428 -0.778 -1.294 -0.780  0.012 -0.152 -0.703  1.189  0.341 
   d27    d28    d29   d210    d31    d32    d33    d34    d35    d36    d37    d38    d39   d310    d41    d42 
    NA  0.507 -0.293  0.224  2.007  1.012     NA     NA -0.302 -1.025 -0.267 -0.199  0.131  0.146  0.362     NA 
   d43    d44    d45    d46    d47    d48    d49   d410 
 0.674  2.072 -0.541 -1.070 -0.372 -0.485  0.275 -0.480

【讨论】：

这不是预期的结果。