Another approach (still seems to require experimentation to get the value '2') would be to replace the annotate() with
geom_text(data=above_92, aes(x=eruptions,y=waiting, label=waiting), nudge_y=2) At least this makes clear the reason for the magic number '2' in the code. For details see ?geom_text On Thu, Oct 5, 2023 at 10:38 AM Subia Thomas OI-US-LIV5 < thomas.su...@draexlmaier.com> wrote: > Colleagues, > > I wish to create y-data labels which meet a criterion. > > Here is my reproducible code. > library(dplyr) > library(ggplot2) > library(cowplot) > > above_92 <- filter(faithful,waiting>92) > > ggplot(faithful,aes(x=eruptions,y=waiting))+ > geom_point(shape=21,size=3,fill="orange")+ > theme_cowplot()+ > geom_hline(yintercept = 92)+ > > annotate(geom="text",x=above_92$eruptions,y=above_92$waiting+2,label=above_92$waiting) > > A bit of trial and error is required to figure out what number to add or > subtract to above_92$waiting. > > Is there a more efficient way to do this? > > > Thomas Subia > Lean Six Sigma Senior Practitioner > > DRÄXLMAIER Group > DAA Draexlmaier Automotive of America LLC > > mailto:thomas.su...@draexlmaier.com > http://www.draexlmaier.com > > "Nous croyons en Dieu. > Tous les autres doivent apporter des données. > Edward Deming > > > Public: All rights reserved. Distribution to third parties allowed. > > ______________________________________________ > R-help@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. > [[alternative HTML version deleted]] ______________________________________________ R-help@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.
