Overlaying line plot on barplot ggplot -

Question

I am trying to overlay a line plot onto a barplot. I can plot both separately :

##plot sites
ggplot(graph, aes(x = Month, y = Anopheles_pos))
+ geom_col(size = 1, color = "darkblue", fill = "white")

##plot line
ggplot(graph, aes(x = Month, y = Mean_EVI)) +
 geom_line(size = 1.5, color = "blue", group = 1)

However when I try to plot the line onto the barplot, it is a flat line at the bottom. I tried to deal with the issue by fixing the second y axis (on the right) to be the same scale as the line, but this has not fixed how the line plots.

##plot together
    ggplot(graph) + 
      geom_col(aes( x = factor(Month, levels = month.name), y = Anopheles_pos), size = 1,
                    color = "darkblue", fill = "white") + 
      geom_line(aes(x = factor(Month, levels = month.name), y = Mean_EVI), size = 1.5, 
                color = "red", group = 1) +
     scale_y_continuous(sec.axis = sec_axis(~./50, name = "Mean_EVI"))

One small other issue is I can't figure out how to make the x axis 0-100 as the Anopheles_pos values are percentages.

Thanks in advance!!

DATA:

Mean_EVI : c(0.5687068, 0.5663895, 0.5653846, 0.6504931, 0.584727, 0.5799395, 0.617363, 0.581645, 0.6190386, 0.5208025, 0.6097692, 0.5689)

Anopheles_pos : c(33L, 42L, 38L, 31L, 54L, 47L, 22L, 15L, 2L, 15L, 12L, 19L)

Greg · Accepted Answer · 2020-07-25 16:29:13Z

2

You need to scale up your Mean_EVI values by 50 to match the ./50 part of your sec.axis call.

Mean_EVI <- c(0.6190386, 0.5208025, 0.6097692, 0.5689, 0.5687068, 0.5663895, 0.5653846, 0.6504931, 0.584727, 0.5799395, 0.617363, 0.581645)

Anopheles_pos <- c(2L, 15L, 12L, 19L, 33L, 42L, 38L, 31L, 54L, 47L, 22L, 15L)

graph <- data.frame(Mean_EVI, Anopheles_pos, Month = 1:12)

ggplot(graph) + 
  geom_col(aes(x = factor(Month, labels = month.name), y = Anopheles_pos), size = 1,
           color = "darkblue", fill = "white") + 
  geom_line(aes(x =  factor(Month, labels = month.name), y = Mean_EVI*50), size = 1.5, 
            color = "red", group = 1) +
  scale_y_continuous(sec.axis = sec_axis(~./50, name = "Mean_EVI")) +
  coord_cartesian(ylim = c(0, 100))

edited Jul 25, 2020 at 16:29

answered Jul 25, 2020 at 15:10

Greg

3,6805 gold badges20 silver badges33 bronze badges

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

6 Comments

Allan Cameron Over a year ago

You might want to change factor(Month) to factor(months, levels = months) to make your plot match the OP's

Greg Over a year ago

@AllanCameron I changed the labels - good call. It was a bit more complicated because OP's data wasn't actually ordered by month

bellbyrne Over a year ago

Thank you so much! Such a simple solution. I have one other small question - how would I set the Anopheles_pos (left hand side) scale to be 0-100?

Greg Over a year ago

@bellbyrne just so I understand you want to just show numbers 0-100 on the Anophele_pos scale (even though the data only goes to 54) or you want to rescale the data itself?

Greg Over a year ago

Okay, I'd edited the answer to do that using coord_cartesian

|

Collectives™ on Stack Overflow

Overlaying line plot on barplot ggplot -

1 Answer 1

6 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

6 Comments

Your Answer

Sign up or log in

Post as a guest

Related