如何在 R 的数据框列中使用向量？

Question

有没有办法在 R 中做这样的事情而没有 6 个样本但只有 2 个？

> df <- data.frame(w=c(1,2),x=c('asdf','yxcv'), y=c(1234, 5678), z=c(c(1,2,3,4), c(5,6,7,8)))
> df
  w    x    y z
1 1 asdf 1234 1
2 2 yxcv 5678 2
3 1 asdf 1234 3
4 2 yxcv 5678 4
5 1 asdf 1234 5
6 2 yxcv 5678 6
7 1 asdf 1234 7
8 2 yxcv 5678 8

当我执行以下操作时，我想获得并能够使用向量：

> df$z[1]
[1] 1 2 3 4
> sum(df$z[1])
[1] 10

或者选择一行时得到如下：

> df[1,]
  w    x    y  z
1 1 asdf 1234  c(1,2,3,4)

This post 做了类似的事情，但没有解决使用向量作为向量的问题。

Answer 1

您可以按照您提供的链接中的答案进行操作。请注意lapply 返回一个类"list" 的对象。您需要做的就是创建一个没有最后一列 z 的数据框，并为该列分配一个列表。

df <- data.frame(w=c(1,2),x=c('asdf','yxcv'), y=c(1234, 5678))
df$z <- list(c(1,2,3,4), c(5,6,7,8))

现在它可以按要求工作了。

df
#  w    x    y          z
#1 1 asdf 1234 1, 2, 3, 4
#2 2 yxcv 5678 5, 6, 7, 8

提取。注意the difference between [ and [[。

df$z[1]
#[[1]]
#[1] 1 2 3 4

df$z[[1]]
#[1] 1 2 3 4

以及对列表成员的操作。

sum(df$z[1])
#Error in sum(df$z[1]) : 'type' inválido (list) do argumento

sum(df$z[[1]])
#[1] 10