Jak uzyskać pionową geom_vline na osi X daty zajęć?


109

Mimo że znalazłem post Hadley w grupie google na POSIXcti geom_vlinenie mogłem tego zrobić. Mam szereg czasowy od i chciałbym narysować pionową linię na przykład dla lat 1998, 2005 i 2010. Próbowałem ze składnią ggploti qplot, ale nadal albo nie widzę żadnej pionowej linii, albo pionowa linia jest rysowana na pierwszej pionowej siatce, a cała seria jest nieco dziwnie przesunięta w prawo.

gg <- ggplot(data=mydata,aes(y=somevalues,x=datefield,color=category)) +
      layer(geom="line")
gg + geom_vline(xintercept=mydata$datefield[120],linetype=4)
# returns just the time series plot I had before, 
# interestingly the legend contains dotted vertical lines

Moje pole daty ma format „1993-07-01” i jest klasowe Date.


1
Czy możesz dodać kilka wierszy swojej ramki danych, abyśmy mogli wypróbować Twój przykład?
Sarah West,

Odpowiedzi:


141

Spróbuj as.numeric(mydata$datefield[120]):

gg + geom_vline(xintercept=as.numeric(mydata$datefield[120]), linetype=4)

Prosty przykład testu:

library("ggplot2")

tmp <- data.frame(x=rep(seq(as.Date(0, origin="1970-01-01"),
                            length=36, by="1 month"), 2),
                  y=rnorm(72),
                  category=gl(2,36))

p <- ggplot(tmp, aes(x, y, colour=category)) +
     geom_line() +
     geom_vline(xintercept=as.numeric(tmp$x[c(13, 24)]),
                linetype=4, colour="black")
print(p)

przykładowy wykres geom_vline


Znalazłem 'as.numeric ()' w rzeczywistości dość trudne do znalezienia! Dzięki.
arno_v

3
Zastanawiam się, czy geom_vline(aes(xintercept=as.numeric(x[c(13, 24)])), linetype=4, colour="black")byłoby bardziej idiomatycznie, czyli używając aeszamiast tmp$.
David Arenburg

1
To rozwiązanie już nie działa. Kod generuje komunikat `` Błąd: próbowano utworzyć warstwę bez statystyki. Uruchom, rlang::last_error()aby zobaczyć, gdzie wystąpił błąd. ''
CoderGuy123

30

Możesz również zrobić, geom_vline(xintercept = as.numeric(as.Date("2015-01-01")), linetype=4)jeśli chcesz, aby linia pozostała na miejscu, niezależnie od tego, czy Twoja data znajduje się w 120. wierszu.


13
na moim komputerze (Win10 z R 3.2.2 i ggplot 1.0.1), muszę zmienić datę na POSIXct, aby ustawić ją poprawnie: as.POSIXct(as.Date(c("2016-12-01","2017-02-01")))
Jthorpe

Dziękuję Jthorpe .. to jedyna wersja, która dla mnie
zadziałała

2

as.numeric działa dla mnie

ggplot(data=bmelt)+
  geom_line(aes(x=day,y=value,colour=type),size=0.9)+
  scale_color_manual(labels = c("Observed","Counterfactual"),values = c("1","2"))+
  geom_ribbon(data=ita3,aes(x=day, 
      y=expcumresponse, ymin=exp.cr.ll,ymax=exp.cr.uu),alpha=0.2) +
  labs(title="Italy Confirmed cases",
        y ="# Cases ", x = "Date",color="Output")+
  geom_vline(xintercept = as.numeric(ymd("2020-03-13")), linetype="dashed", 
                color = "blue", size=1.5)+
  theme_minimal()

wyjście kodu

Korzystając z naszej strony potwierdzasz, że przeczytałeś(-aś) i rozumiesz nasze zasady używania plików cookie i zasady ochrony prywatności.
Licensed under cc by-sa 3.0 with attribution required.