在ggplot2中绘制数据框的列表

Question

我有一个data.table /数据框，其中的列表作为值。 我想对这些值制作一个盒子或小提琴图，一个小提琴/盒子代表我的数据集的一行，但是我不知道怎么做。

例：

test.dt <- data.table(id = c('a','b','c'), v1 = list(c(1,0,10),1:5,3))
ggplot(data = test.dt, aes(x = as.factor(id), y = v1)) + geom_boxplot()

我收到以下消息：

警告消息： stat_boxplot()计算失败：“ x”必须是原子的

所以我的猜测是，也许我应该以某种方式将值列表拆分为行。 即： 与作为ID的行会被变换为3行（对应于V1的矢量的长度）具有相同id，但值将它们之间进行分割。

首先，我不知道如何转换提到的data.table，其次，我也不知道这是否是解决方案。

Answer 1

实际上，在绘制之前，您需要unnest数据集：

library(tidyverse)

unnest(test.dt) %>% 
ggplot(data = ., aes(x = as.factor(id), y = v1)) + geom_boxplot()

Answer 2

我相信您正在寻找的是非常方便的unnest()函数。 以下代码有效：

library(data.table)
library(tidyverse)

test.dt <- data.table(id = c('a','b','c'), v1 = list(c(1,0,10),1:5,3))
test.dt = test.dt %>% unnest()

ggplot(test.dt, aes(x = as.factor(id), y = v1)) + 
  geom_boxplot()

如果您不想导入整个tidyverse，则unnest()函数来自tidyr包。

这是unnest()对示例数据的处理：

> data.table(id = c('a','b','c'), v1 = list(c(1,0,10),1:5,3))
   id        v1
1:  a   1, 0,10
2:  b 1,2,3,4,5
3:  c         3
> data.table(id = c('a','b','c'), v1 = list(c(1,0,10),1:5,3)) %>% unnest()
   id v1
1:  a  1
2:  a  0
3:  a 10
4:  b  1
5:  b  2
6:  b  3
7:  b  4
8:  b  5
9:  c  3