pp$id <- 1:nrow(pp) # добавляю столбик с нумерацией
library(ggplot2) # подключаю библиотеку ggplot2 (если она не установлена, то сначала install.packages("ggplot2"))
#строю график
ggplot(pp, aes(x = pp$id, y = pp$V1)) +
geom_line()