[R] annotate

[Eric Berger]

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.Subia using 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.subia using 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 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.
>

	[[alternative HTML version deleted]]