vignettes/spikelines.Rmd
spikelines.Rmd
library(ggplot2) library(gridExtra) library(ggalt) library(scales)
mtcars$name <- rownames(mtcars) p <- ggplot(data = mtcars, aes(x=mpg,y=disp)) + geom_point() p + geom_spikelines(data = mtcars[mtcars$carb==4,],aes(colour = factor(gear)), linetype = 2) + ggrepel::geom_label_repel(data = mtcars[mtcars$carb==4,],aes(label = name))