以下内容对我有用:

ggplot(tmp,aes(x, y, colour=category)) +
geom_line() +
geom_vline(data=tmp[c(13,26),],aes(xintercept=as.numeric(x)))