¿Cómo obtener una geom_vline vertical en un eje x de fecha de clase?

Este grupo de redactores ha estado horas investigando la respuesta a tus preguntas, te regalamos la soluciones así que nuestro deseo es que te sea de gran ayuda.

Solución:

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

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

Un ejemplo de prueba simple:

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)

también podrías hacer geom_vline(xintercept = as.numeric(as.Date("2015-01-01")), linetype=4) si desea que la línea permanezca en su lugar, ya sea que su fecha esté o no en la fila 120.

as.numeric me funciona

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()

salida de código

Te mostramos las reseñas y valoraciones de los lectores

Si conservas alguna duda y forma de innovar nuestro escrito puedes dejar una disquisición y con placer lo ojearemos.

---

---

Utiliza Nuestro Buscador