从包含列表的数据框作为列值绘制

Question

我一直在使用purrr软件包，现在有一个独特的问题。我想绘制数据框，其中值是包含列内值的列表。

结构体：

a b x           y
1 1 c(1,2,3,4) c(4,5,6,7)
1 2 c(1,2,3,4) c(5.4,6,6.5,7)

尝试解决方案：

library("tidyverse")

# Define a named list of parameter values
temp = list(a = seq(1,5,1),
           b = seq(0.1,3,1)) %>% cross_df()

# create two new columns
x <- seq(1,5,0.1)
y <- 2.3 * x

# add these as a list
temp$x <- list(x)
temp$y <- list(y)

ggplot(data=temp, aes(x=unlist(x),y=unlist(y),color=a)) + 
  geom_point() + 
  ggtitle("Plot of Y vs. X shown by colour of a")

错误：

1. 错误：美学必须是长度1或与数据（15）相同：x，y，颜色使用unlist
2. 错误：不使用unlist时提供给连续比例的离散值

Answer 1

您需要将列表元素分成单独的行，这可以使用unnest完成

library(tidyverse)

temp %>%
  unnest() %>%
  ggplot() + 
  aes(x,y,color=a) + 
  geom_point() + 
  ggtitle("Plot of Y vs. X shown by colour of a")