2024-week-24-2024-week43-plot-2023-2024-tb-oauth-microsoft-email-gmail-antivirus-mentions.R

library(tidyverse)
library(geomtextpath)
tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions <-
  read_csv("2023-2024-tb-oauth-microsoft-email-gmail-antivirus-mentions.csv")
# Delete first and last row
tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions <- 
  tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions[-1, ]
tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions <- 
  tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions %>%
  filter(row_number() <= n() - 1)
tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions <- gather(
  tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions,
  key = "regex_mentions",
  value = "number_of_mentions",
  c(
    "gmail mentions" ,
    "ms email mentions" ,
    "OAuth mentions",
    "antivirus mentions"
  )
)
tb_2024_week24_week43_oauth_microsoft_email_gmail_antivirus_mentions <- 
  subset(tb_2023_2024_oauth_microsoft_email_gmail_antivirus_mentions,
         iso_week > '2024-23')

p <- ggplot(data = tb_2024_week24_week43_oauth_microsoft_email_gmail_antivirus_mentions, 
            aes(x = iso_week, y = number_of_mentions)) + geom_point()
p + facet_wrap( ~ regex_mentions)   + theme(axis.text.x = element_text(
  angle = 45,
  vjust = 1,
  hjust = 1
)) +
  geom_textvline(
    label = "AAQ-sidebar08Jul24, TB128 11Jul",
    xintercept = 5,
    vjust = -0.7,
    color = "darkgreen",
    linetype = "dotted"
  )