将数据帧转换为R中的列表

Question

我想要将数据帧转换为列表。参见表1中的输入。当您从环境中打开R中的列表时，参见表2中的输出。名称-以下名称clus1，clus2...类型-应包含列V1值中的值-长度为3的列表

Table 1
      V1 V2 V3
clus1 10 a  d
clus2 20 b  e
clus3 5  c  f

Table 2
$`clus1`
[1] "a"  "d" 

$`clus2`
[2] "b"  "e" 

$`clus3`
[2] "c"  "f"

Answer 1

t1 = read.table(text = "      V1 V2 V3
clus1 10 a  d
clus2 20 b  e
clus3 5  c  ''", header = T)

result = split(t1[, 2:3], f = row.names(t1))
result = lapply(result, function(x) {
  x = as.character(unname(unlist(x)))
  x[x != '']})
result
# $clus1
# [1] "a" "d"
# 
# $clus2
# [1] "b" "e"
# 
# $clus3
# [1] "c"

在这种特殊情况下，如果我们首先转换为矩阵，我们可以更直接地进行：

r2 = split(as.matrix(t1[, 2:3]), f = row.names(t1))
r2 = lapply(r2, function(x) x[x != ''])
# same result

Answer 2

您可能会认为这是一项重塑任务，以便将其扩展到多个列，即创建一列值，而不是跟踪您正在处理的列V2和V3。这样，您就可以使用一些基本的tidyverse函数一次性完成此操作。这还允许您在创建列表之前，根据删除空白或任何其他条件轻松过滤数据，同样不需要指定列。

library(dplyr)

# thanks @Gregor for filling in the data
tibble::rownames_to_column(t1, var = "clust") %>%
  select(-V1) %>%
  tidyr::gather(key, value, -clust) %>%
  filter(value != "") %>%
  split(.$clust) %>%
  purrr::map("value")
#> $clus1
#> [1] "a" "d"
#> 
#> $clus2
#> [1] "b" "e"
#> 
#> $clus3
#> [1] "c"