[R-es] añadir líneas verticales con ggplot

[Manuel Mendoza]

Buenos días, hago un mapa con ggplot:

world<-map_data('world')

windows();ggplot(legend=FALSE) +
...
  geom_point(data=Data,aes(x=lon,y=lat,color=Clst),size=1.25) +

scale_color_manual(values=c("grey45","navy","skyblue","gold","green3","darkgreen"))
+
  geom_path( data=world, aes(x=long, y=lat,group=group)) +
  labs(title = "Trophic Patterns - Full Data")+
  guides(colour = guide_legend(override.aes = list(size=5)))

después hago un loop con for:

for (i in seq(from = -180, to = 170, by = 10)){
  traindata <- subset(Data, lon < i|lon>= i+10)
  testdata <- subset(Data,(lon> i & lon<= i+10))
  fitrp <- rpart(Clst ~ .- lon - lat, data=traindata,method = "class",
cp=cpopt)
  print(i)
  prd <- predict(fitrp, testdata, type="class") # se aplica el modelo a las
muestras test
  testdata$prd<-prd
  Preds<-rbind(Preds,testdata)
}

en vez de  print(i), que me indica por dónde va el loop,  me gustaría que
me fuera añadiera una línea vertical al mapa en la longitud (lon)  que
corresponde a i.

Muchas gracias por vuestra ayuda, como siempre,
Manuel

	[[alternative HTML version deleted]]