You can count
number of rows for each Month and App
and plot the data.
library(dplyr)
library(ggplot2)
df %>%
count(Date, App) %>%
mutate(Date = as.Date(paste0(Date, '-01'), '%b-%y-%d')) %>%
ggplot(aes(Date, n, color = App)) +
geom_line() +
scale_x_date(date_labels = '%b %Y')
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…