CODEWITHSUNDEEP
rggplot2dplyr
Mark Zurbrügg
Mark Zurbrügg

Reputation: 125

How to make multiple subplots from one long data frame

I am looking to make four graphs in ggplot each containing 7 data-series each of which is marked as a group in my data frame. I therefore need a way to filter my single long data frame by the 7 group keys. I want my code to work something like this:

library(tidyverse)

df <- mtcars[0:2]

df <- tibble::rownames_to_column(df, "groups")

grouped_df <- df %>% group_by(groups)

conditions = group_keys(grouped_df)[[1]]

subplot_1_data <- grouped_df %>%  filter(groups == AMC Javelin) ## this works
subplot_2_data <- grouped_df %>%  filter(conditions[6:10]) ##does not work
subplot_3_data <- grouped_df %>%  filter(groups == conditions[11:15]) ## does not work

i want to generate three ggplot graphs 1 with subplot_1_data and another with subplot_2_data and a third with subplot_3_data

I am struggling to achieve this. any hint on how to get multiple groups into 1 dataframe for plotting would be appreciated.

Upvotes: 0

Views: 218

Answers (1)

knytt
knytt

Reputation: 593

What you are looking for is x %in% c("a", "b") instead of == when filtering using a vector.

library(tidyverse)

df <- mtcars[0:2] %>% 
  tibble::rownames_to_column("groups") %>% 
  group_by(groups)

conditions <- group_keys(grouped_df)$groups

subplot_1_data <- df %>% filter(groups == "AMC Javelin")
subplot_2_data <- df %>% filter(groups %in% conditions[6:10])
subplot_3_data <- df %>% filter(groups %in% conditions[11:15])

Upvotes: 1

Related Questions