Plot multiple plots dependent on value in column

Question

I have a data frame that consists of Median, 1 and 3 percentile, ID, and group. Here is some test data, but real data consist of over 500 rows.

data <- data.frame( "County" = c(1,1,2,2,3,3), "Median" = c(5,7,8,2,4,5), "Low" = c(0.5,2,4,1,2,3), "High" = c(10,12,11,9,10,15), "ID" = c("TRUE", "TRUE", "FALSE", "TRUE", "FALSE", "FALSE"), "group" = c(1,1,2,2,3,3))

I will always have a duplicate of "County" and in my plot, I want to show two geom_crossbars on top of each other (showing ID = TRUE/FALSE), SEE FIGURE. But now I would like to plot only the data that is included for group = 1, etc. And finally, I would like to get one plot for each group on a facet scheme.

This is my ggplot so far:

ggplot(data, aes(x = as.factor(County), 
                y = Median, 
                ymin = Low, 
                ymax = High)) +
  geom_crossbar(aes(color = ID, fill = ID, alpha = 1)) +
  scale_fill_manual(values = c("gray79", "brown4")) +
  scale_color_manual(values = c("gray50", "brown4")) +
  theme_classic() +
  scale_alpha(guide = "none") +
  xlab("County") +
  ylab("Variance") +
  labs(fill = "Model") +
  labs(color = "Model")

I am not sure how to plot only the data that is included in a specific argument. Have anyone else experienced this?

+ facet_wrap(~group, scales = 'free') ?

Ronak Shah
– Ronak Shah

2021-02-22 08:30:29 +00:00
Commented Feb 22, 2021 at 8:30 — Ronak Shah
– Ronak Shah, Commented Feb 22, 2021 at 8:30
That was easy :) THANKS!

paula456
– paula456

2021-02-22 08:48:21 +00:00
Commented Feb 22, 2021 at 8:48 — paula456
– paula456, Commented Feb 22, 2021 at 8:48

Ronak Shah · Accepted Answer · 2021-02-22 09:28:14Z

1

You can add facet_wrap/facet_grid to your code.

library(ggplot2)

ggplot(data, aes(x = as.factor(County), 
                 y = Median, 
                 ymin = Low, 
                 ymax = High)) +
  geom_crossbar(aes(color = ID, fill = ID, alpha = 1)) +
  scale_fill_manual(values = c("gray79", "brown4")) +
  scale_color_manual(values = c("gray50", "brown4")) +
  theme_classic() +
  scale_alpha(guide = "none") +
  xlab("County") +
  ylab("Variance") +
  labs(fill = "Model") +
  labs(color = "Model")  +
  facet_wrap(~group, scales = 'free')

answered Feb 22, 2021 at 9:28

Ronak Shah

391k20 gold badges173 silver badges237 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Plot multiple plots dependent on value in column

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related