Fill area between two point-lines R

Question

I have a tibble similar to the following one:

 Offensive <- tibble(OffenseFormation = c("A","B","C"),
                     yardas_mean = c(3,4,5),
                     yardas_min  = c(1,4,1),
                     yardas_max  = c(5,4,6))

I plot the lines with the following code (as you can see in the picture below):

 Offensive %>%
   pivot_longer(starts_with("yardas_"),names_to = "yardas") %>% 
   ggplot(aes(x = OffenseFormation, y = value, group = yardas)) +
   geom_line(aes(colour = yardas)) + 
   geom_point(aes(colour = yardas))

What I want is fill the area between yardas_min and yardas_max lines.

I've already used the following ggplot orders:

geom_area(alpha=0.1)
geom_polygon( aes(y = value, group = yardas), alpha = 0.1)

and also read some previous post like these ones:

But no success, any help?

Thanks,

Alberto

When you say you had "no success" from the existing solutions, what exactly does that mean? What exactly did you try? What was wrong with the output or what error messages did you get? — MrFlick
No output error messages, I just don't get the area between the red and blue lines, I get other things. My aim is to fill the space between only those two lines. — Alberto Torrejon Valenzuela

dc37 dc37 · Accepted Answer · 2020-03-31T16:14:06

The issue is that you have discrete values as x axis. You can make a ribbon by adding continuous values in geom_ribbon:

Offensive %>%
  pivot_longer(starts_with("yardas_"),names_to = "yardas") %>% 
  ggplot(aes(x = OffenseFormation, y = value, group = yardas)) +
  geom_line(aes(colour = yardas))+
  geom_ribbon(data = Offensive, 
               inherit.aes = FALSE, 
               aes(x = 1:3, ymin = yardas_min, ymax = yardas_max), 
              fill = "grey70")+
  geom_line(aes(colour = yardas))+
  geom_point(aes(colour = yardas))

Fill area between two point-lines R

1 Answers