R ggplot2: Oznakowanie poziomej linii na osi Y z wartością numeryczną

Question

Mam poziomą linię w ggplot i chciałbym oznaczyć jej wartość (7.1) na osi Y.

library(ggplot2) 
df <- data.frame(y=c(1:10),x=c(1:10)) 
h <- 7.1 
plot1 <- ggplot(df, aes(x=x,y=y)) + geom_point() 
plot2 <- plot1+ geom_hline(aes(yintercept=h)) 

Dziękuję za pomoc.

Answer 1

Nie jest jasne, czy chcesz, aby 7.1 był częścią osi Y, czy chcesz po prostu nadać etykietę linii. Zakładając ten pierwszy, możesz użyć scale_y_continuous() do zdefiniowania własnych przerw. Coś takiego może robić co chcesz (trzeba trochę błahy najprawdopodobniej):

plot1+ geom_hline(aes(yintercept=h)) + 
    scale_y_continuous(breaks = sort(c(seq(min(df$y), max(df$y), length.out=5), h))) 

Zakładając, że ten ostatni, to prawdopodobnie więcej, co chcesz:

plot1 + geom_hline(aes(yintercept=h)) + 
    geom_text(aes(0,h,label = h, vjust = -1)) 

Answer 2

Co powiesz na coś takiego?

plot1 + geom_hline(aes(yintercept=h), colour="#BB0000", linetype="dashed") + 
geom_text(aes(0, h, label = h, vjust = -1), size = 3) 

Answer 3

Podobny do Chasego solution ze zmianą użycia istniejących etykiet.

---

ggplot_build(plot1)$layout$panel_ranges[[1]]$y.major_source może być użyty do wyodrębnienia exisitng etykiety i dodawać nowe h.

plot1 + geom_hline(aes(yintercept=h)) + 
    scale_y_continuous(breaks = sort(c(ggplot_build(plot1)$layout$panel_ranges[[1]]$y.major_source, h)))