library(ggplot2)

df <- data.frame(
  time = c('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'),
  p1 = c(20, 35, 30, 35, 27, 43, 24, 34, 14, 27, 22, 50),
    p2 = c(25, 32, 34, 20, 25, 34, 54, 23, 43, 33, 27, 29)
  )

head(df)