Wie man eine vertikale geom_vline zu einer x-Achse von der Klasse date aus?

Obwohl ich fand Hadley ' s post in der google-Gruppe auf POSIXct und geom_vline ich konnte nicht bekommen es getan. Ich habe eine Zeitreihe aus und würde gerne so zeichnen Sie eine vertikale Linie, die für die Jahre 1998, 2005 und 2010 zum Beispiel. Ich habe versucht, mit ggplot und qplot syntax, aber trotzdem habe ich entweder keine vertikale Linie oder vertikale Linie gezeichnet ist, an der ersten vertikalen Gitterlinien und die ganze Serie, verlagert sich etwas seltsam auf der rechten Seite.

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

Mein Tag-Feld formatieren "1993-07-01" und ist von der Klasse Date.

Können Sie fügen Sie ein paar Zeilen der dataframe, so dass wir versuchen können, Ihrem Beispiel?

InformationsquelleAutor Matt Bannert | 2011-03-22

  1. 125

    Versuchen as.numeric(mydata$datefield[120]):

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

    Einen einfachen test Beispiel:

    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)) +
     layer(geom="line") +
     geom_vline(aes(xintercept=as.numeric(x[c(13, 24)])),
                linetype=4, colour="black")
print(p)

    Wie man eine vertikale geom_vline zu einer x-Achse von der Klasse date aus?

    Ich fand den as.numeric()' tatsächlich ganz schwer zu finden! Danke.
    Wenn dies immer noch nicht funktioniert, fügen Sie scale_x_date()
    Ich Frage mich, ob geom_vline(aes(xintercept=as.numeric(x[c(13, 24)])), linetype=4, colour="black") wäre mehr idiomatische, D. H., mit aes statt tmp$.

    InformationsquelleAutor rcs

  2. 17

    Könnten Sie auch tun geom_vline(xintercept = as.numeric(as.Date("2015-01-01")), linetype=4) wenn Sie möchten, die Linie, um im Platz zu bleiben, ob oder nicht dein Datum ist in der Zeile 120.

    auf meinem Rechner (mit Win10 R 3.2.2 und ggplot 1.0.1) habe ich zu zwingen, den Termin, bis zu POSIXct, um es zu richten richtig: as.POSIXct(as.Date(c("2016-12-01","2017-02-01")))

    InformationsquelleAutor D.Hadley

Schreibe einen Kommentar