In schliebs/disinfo: Tools and Data for Disinformation Research

Manual download of account lists from github

If you would like to access or download the account seed lists without using R, you can directly load them via the following links:

Russian diplomat Twitter accounts and labelling browsable table or raw csv file
Chinese diplomat Twitter accounts and labelling browsable table or raw csv file

R functions to pull diplomat account and labelling data

options(tidyverse.quiet = TRUE)
library(tidyverse)
library(disinfo)
# remotes::install_github("hrbrmstr/waffle")
library(waffle)

library(extrafont)
library(emojifont)
# load.fontawesome()
# load.fontawesome(font = "fontawesome-webfont.ttf")

loadfonts(device = "win", quiet = TRUE)
loadfonts(device = "pdf", quiet = TRUE)

ru_accs <- get_accounts(country = "RU",group = "diplomats")

ru_accs %>%
  group_by(cat) %>%
  mutate(n_cat = n()) %>%
  group_by(cat,n_cat,gov_label = gov_label != "") %>%
  summarise(n = n()) %>%
  mutate(perc = n/n_cat) %>% filter(gov_label == T)

veridata <- 
  ru_accs %>% 
  group_by(cat) %>%
  mutate(n_grp = n()) %>%
  group_by(cat,n_grp,govlab = !is.na(gov_label)) %>%
  mutate(n_lab = n()) %>%
  mutate(perc = n_lab/n_grp) %>% 
  group_by(cat,n_grp,govlab ,veri = verified != F,n_lab,perc) %>%
  summarise(n = n()) %>%
  mutate(perc_veri = n/n_lab)

veridata$comb <- interaction(veridata$veri,veridata$govlab)

veridata <- 
  veridata %>%
  group_by(cat) %>% 
  arrange(desc(comb))

veridata$lab <- NA
veridata$lab[veridata$cat == "A"] <- "Ambassadors &Staffers"
veridata$lab[veridata$cat == "C"] <- "Consulates/Consuls"
veridata$lab[veridata$cat == "S"] <- "Ambassadors &Staffers"
veridata$lab[veridata$cat == "G"] <- "RU Government Accounts"
veridata$lab[veridata$cat == "E"] <- "Embassies"
veridata$lab[veridata$cat == "QG"] <- NA # exclude "Quasi-Gov"

gg3 <- 
  ggplot(veridata %>% filter(!is.na(lab))) +
  geom_pictogram(
    aes(colour = comb,label = comb ,values = n),
    n_rows = 10, size = 7,  flip = TRUE,
    family = "fontawesome-webfont"
  ) +
  scale_color_manual(name = NULL,
                     values = c("red","darkred","darkgreen","green"),
                     labels = c("Not Verified - No Government Label   ",
                                "Blue Verified Checkmark - No Government Label   ",
                                "Not Verified - Government Label   ",
                                "Blue Verified Checkmark - Government Label   ")
  )+ 
  scale_label_pictogram(
    name = NULL,
    values = c("user","check-circle","user","check-circle"),
    labels = c("Not Verified - No Government Label   ",
               "Blue Verified Checkmark - No Government Label   ",
               "Not Verified - Government Label   ",
               "Blue Verified Checkmark - Government Label   ")
  ) +
  coord_equal() + 
  facet_wrap(~ lab, scales = "fixed",nrow = 1,
             #  space = 'free',
             drop = T,
             strip.position = "bottom") +

  labs(x = NULL,y = NULL,
       title = "Russian Diplomat Labelling on Twitter and Verified Account Status",
       subtitle = paste0("Labeling status as of ",format(unique(ru_accs$labels_scraped),"%d %b %Y")))+
  theme_minimal()+ 
  theme(legend.position = "right",
        plot.title = ggplot2::element_text(family="Arial",
                                           size=22,
                                           face="bold",
                                           color = "#002147"),
        plot.subtitle = ggplot2::element_text(family="Arial",
                                              size=16,
                                              face = "bold",
                                              color= "#007fc8",#oxblue,
                                              margin=ggplot2::margin(0,0,5,0)),
        plot.caption = ggplot2::element_blank()) + 
  theme(axis.ticks.x = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.y = element_blank(),
        panel.grid.minor.y = element_blank(),
        panel.grid.major.y = element_blank(),

        panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank(),
        strip.text = element_text(size = 14,family = "Roboto",face = "bold"),
        legend.position = "bottom") #+ 


gg3