###### Newsmax and Congress library(tidyverse) merge1 <- read.csv("C:/Users/jvlindca/OneDrive - Ada County/RNalysis/DCinBox/HS117_members (1).csv") merge2 <- read.csv("C:/Users/jvlindca/OneDrive - Ada County/RNalysis/DCinBox/dcinbox_export_Newsmax (1).csv") merge3 <- read.csv("C:/Users/jvlindca/OneDrive - Ada County/RNalysis/DCinBox/newsletter_counts.csv") merge4 <- merge1 %>% select(bioguide_id, nominate_dim1, nominate_dim2) merge2 <- merge2 %>% rename(bioguide_id = BioGuide.ID) enewsmax <- left_join(merge2, merge4, by = "bioguide_id") enewsmax <- left_join(merge3, enewsmax, by = "bioguide_id") newsmaxdense <- ggplot(enewsmax, aes(x = nominate_dim1, fill = Party)) + geom_density(alpha = 0.4) + scale_color_manual(values = c('Republican' = 'red', 'Democratic' = 'blue')) + scale_fill_manual(values = c('Republican' = 'red', 'Democratic' = 'blue')) + xlab("\nNominate Score") + ylab("Density of Newsmax Posts\n") newsmaxdense library(stringr) enewsmax$Full.Name <- str_c(enewsmax$First.Name, " ", enewsmax$Last.Name) enewsmax$Full.Name <- as.factor(enewsmax2$Full.Name) enewsmax <- enewsmax %>% select(First.Name, Last.Name, Party) enewsmax2 <- enewsmax %>% select(!c(Subject, Body, ID)) %>% filter(Congress == 117) enewsmax2 <- enewsmax %>% select(Full.Name, number_of_newsletters, nominate_dim1, Party) %>% unique() write.csv(enewsmax, "C:/Users/jvlindca/OneDrive - Ada County/RNalysis/DCinBox/filetogetcounts.csv", row.names = FALSE) newsmaxbar <- ggplot(enewsmax2, aes(x = nominate_dim1, y = number_of_newsletters)) + geom_point(aes(colour = Party), show.legend = FALSE) + geom_smooth(method = lm) + annotate(geom = "point", x = 0.366, y = 90, colour = "orange", size = 3) + annotate(geom = "point", x = 0.366, y = 90) + annotate(geom = "text", x = 0.366, y = 90, label = " Guy Reschenthaler", hjust = "left") + annotate(geom = "point", x = 0.602, y = 34, colour = "orange", size = 3) + annotate(geom = "point", x = 0.602, y = 34) + annotate(geom = "text", x = 0.602, y = 34, label = " Matt Gaetz", hjust = "left") + annotate(geom = "point", x = 0.655, y = 74, colour = "orange", size = 3) + annotate(geom = "point", x = 0.655, y = 74) + annotate(geom = "text", x = 0.655, y = 74, label = " Rick Scott", hjust = "left") + annotate(geom = "point", x = 0.889, y = 51, colour = "orange", size = 3) + annotate(geom = "point", x = 0.889, y = 51) + annotate(geom = "text", x = 0.889, y = 51, label = "Rand Paul ", hjust = "right") + theme_minimal() + xlab("\nNominate Score") + ylab("Number of Posts Discussing Newsmax\n") newsmaxbar