[R] Geom ribbon

[j@de@shod@@ m@iii@g oii googiem@ii@com]

I'm not sure if geom_ribbon works with categorical data. It didn't
work for me, so I have coded location as a numeric, which works. You
can then manuall re-label the tick marks, as per the code below.
Others may be able to add to the code to add a legend, or propose a
different solution altogether, which may involve having to restructure
your data frame (I'm not an expert in R/ ggplot).

Below is some code. It's not elegant, but it seems to do at least part
of the job...

# tolerance ratio
day1 <- runif(3)
day2 <- runif(3)
day3 <-runif(3)
location <- c(1,2,3)

df <- data.frame(location,day1,day2,day3)
max <- 1.0  # find the maximum y-value in your data. Here, I've
assigned 1 for ease
ggplot()+
  geom_ribbon(aes(ymin = 0, ymax = 0.199999999, x = location), fill = "green") +
  geom_ribbon(aes(ymin = 0.2, ymax = 0.249999999, x = location), fill
= "light green") +
  geom_ribbon(aes(ymin = 0.25, ymax = 0.299999999, x = location), fill
= "yellow") +
  geom_ribbon(aes(ymin = 0.3, ymax = 0.6, x = location), fill =
"orange") +   # "light red " is not recognised as a colour
  geom_ribbon(aes(ymin = 0.6000001, ymax = max, x = location), fill = "red") +
  geom_point(data = df, aes(location, day1))+
  geom_point(aes(location,day2))+
   scale_x_discrete(limits=c("A","B","C"))+
  ylab("Tolerance ratio")+
  xlab("Location")+
  ggtitle("Tolerance ratio by location and day")


Hope this provides at least a start!

Jade

On Sat, 9 Jul 2022 at 16:13, Thomas Subia via R-help
<r-help using r-project.org> wrote:
>
> Colleagues,
> I am plotting tolerance ratios by location and dateMy reproducible code is:
> library(ggplot2)
> library(cowplot)
>
> # tolerance ratio
> day1 <- runif(3)
> day2 <- runif(3)
> day3 <-runif(3)
> location <- c("A","B","C")
>
> df <- data.frame(location,day1,day2,day3)
>
> # plot of tolerance ratio by location and day
> myplot <-ggplot(df,aes(location,day1))+geom_point()+
>   geom_point(aes(location,day2))+
>   ylab("Tolerance ratio")+
>   xlab("Location")+
>   theme_cowplot()+
>   ggtitle("Tolerance ratio by location and day")
> I need to shade the areas between the following y data
>
> Tolerance
> Ratio > 0.6                        area shaded = red        Unacceptable
> 0.3 <= Ratio <= 0.6           light red                     Inadequate
> 0.25 <= Ratio < 0.3            yellow                       Marginal0.2 <= Ratio < 0.25            light green                 Good
> Ratio < 0.2                           green                        Great
> I believe that using geom_ribbon may work for this.
> Any suggestions for this would be appreciated.
> All the best,
> Thomas Subia
>
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.