Trump Data

setwd("/Users/isaiahmireles/Desktop/Trump folder")
df <- read.csv("daytuh.csv")

unique(df$theme_label)

##  [1] "war"                            "none"                          
##  [3] "jobs"                           "crime"                         
##  [5] "healthcare"                     "democrats"                     
##  [7] "immigration"                    "religion"                      
##  [9] "Government assistance programs" "education"                     
## [11] "poverty"

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

df |> filter(theme_label=="war") |> arrange(desc(confidence))

df |> filter(theme_label=="none") |> arrange(desc(confidence))

df |> filter(theme_label=="jobs") |> arrange(desc(confidence))

df |> filter(theme_label=="crime") |> arrange(desc(confidence))

df |> filter(theme_label=="healthcare") |> arrange(desc(confidence))

df |> filter(theme_label=="democrats") |> arrange(desc(confidence))

df |> filter(theme_label=="immigration") |> arrange(desc(confidence))

df |> filter(theme_label=="religion") |> arrange(desc(confidence))

df |> filter(theme_label=="Government assistance programs") |> arrange(desc(confidence))

df |> filter(theme_label=="education") |> arrange(desc(confidence))

df |> filter(theme_label=="poverty") |> arrange(desc(confidence))

df |> group_by(theme_label) |> summarize(conf_xbar = round(mean(confidence), 3), sd_xbar = round(sd(confidence), 3)) |> arrange(desc(conf_xbar))

df |> group_by(theme_label) |> summarize(conf_xbar = round(mean(confidence), 3), sd_xbar = round(sd(confidence), 3)) |> arrange(sd_xbar)