r - 如何将 facet_wrap(~list) 与列表一起使用？

Question

我有正在执行 EDA 的数据。其中一列包含字符列表。我想使用facet_wrap列表的每个唯一值而不是整个列表。

我怎样才能做到这一点？

经验：

heights    diet
14.3       cw,ce,la
12.3       cw
11.2       ap, la
10.0       lp
12.3       ce,cw

我想分别对每个饮食值做不同的图。

提前致谢

标签： rggplot2dplyrdata-analysisfacet-wrap

Answer 1

你可以试试这个：

library(tidyverse)
library(tidyr)
#Data
df <- structure(list(heights = c(14.3, 12.3, 11.2, 10, 12.3), diet = c("cw,ce,la", 
"cw", "ap, la", "lp", "ce,cw"), z = c(-0.940250088024965, -0.916085008989365, 
0.346802165714023, 0.416379800831458, -0.284455862566136)), row.names = c(NA, 
-5L), class = "data.frame")

#Separate cols, we place 3 because the largest number of diets is 3 in first row
#If you have more you would have to expand such quantity
df2 <- separate(df,col = diet,into = paste0('diet',1:3),sep = ',')
#Pivot
df3 <- pivot_longer(df2,cols = names(df2)[which(grepl('diet',names(df2)))])
#Prepare plot
df4 <- df3 %>% mutate(value=trimws(value)) %>% filter(!is.na(value))
#Plot
ggplot(df4,aes(x=heights,y=z))+
  geom_point()+
  facet_wrap(.~value)