The following tables are corrected versions of the tables that appear in the manuscript.

First we load the necessary packages:

library(tidyverse)
library(readxl)
library(DT)
library(sjPlot)

The data are stored in an Excel file:

data <- read_excel("Copy of PBS+and+Trust+in+America_+National+PBS+Audience+Survey_January+25,+2021_08.08.xlsx")
## New names:
## * Q41 -> Q41...19
## * Q42 -> Q42...252
## * Q41 -> Q41...253
## * Q42 -> Q42...254
varlabels <- data[1,]
data <- data[-1,]

Reordering Categories

data <- data %>%
  select(Q12, Q24_4, Q32_8, Q32_2, Q32_4, Q32_6, Q32_7) %>%
  mutate(Q12 = fct_relevel(Q12, 
                           "Extremely conservative",
                           "Moderately conservative",
                           "Slightly conservative",
                           "Neither liberal nor conservative",
                           "Slightly liberal",
                           "Moderately liberal",
                           "Extremely liberal"),
         Q32_8 = fct_recode(Q32_8,
                            "Trust a lot"="A lot",
                            "Somewhat trust"="Somewhat"),
         Q32_8 = fct_relevel(Q32_8,
                             "Trust a lot",
                             "Somewhat trust",
                             "Neither trust nor distrust",
                             "Somewhat distrust",
                             "Distrust a lot", 
                             "No opinion"),
         Q32_2 = fct_recode(Q32_2,
                            "Trust a lot"="A lot",
                            "Somewhat trust"="Somewhat"),
         Q32_2 = fct_relevel(Q32_2,
                             "Trust a lot",
                             "Somewhat trust",
                             "Neither trust nor distrust",
                             "Somewhat distrust",
                             "Distrust a lot", 
                             "No opinion"),
         Q32_4 = fct_recode(Q32_4,
                            "Trust a lot"="A lot",
                            "Somewhat trust"="Somewhat"),
         Q32_4 = fct_relevel(Q32_4,
                             "Trust a lot",
                             "Somewhat trust",
                             "Neither trust nor distrust",
                             "Somewhat distrust",
                             "Distrust a lot", 
                             "No opinion"),         
         Q32_6 = fct_recode(Q32_6,
                            "Trust a lot"="A lot",
                            "Somewhat trust"="Somewhat"),
         Q32_6 = fct_relevel(Q32_6,
                             "Trust a lot",
                             "Somewhat trust",
                             "Neither trust nor distrust",
                             "Somewhat distrust",
                             "Distrust a lot", 
                             "No opinion"),         
         Q32_7 = fct_recode(Q32_7,
                            "Trust a lot"="A lot",
                            "Somewhat trust"="Somewhat"),
         Q32_7 = fct_relevel(Q32_7,
                             "Trust a lot",
                             "Somewhat trust",
                             "Neither trust nor distrust",
                             "Somewhat distrust",
                             "Distrust a lot", 
                             "No opinion"))

Table 5.1.2: Trust in PBS and Political Leaning

data %>% select(Q12, Q24_4) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in PBS"))
Political Leaning Trust in PBS Total
Distrust a great
deal 		Neither trust nor
distrust 		No opinion Somewhat distrust Somewhat trust Trust a great deal
Extremely
conservative 		6 35 7 24 93 131 296
Moderately
conservative 		5 32 1 11 93 83 225
Slightly
conservative 		5 24 4 12 53 58 156
Neither liberal nor
conservative 		7 44 17 6 111 140 325
Slightly liberal 2 8 2 0 38 81 131
Moderately liberal 1 12 0 0 38 166 217
Extremely liberal 3 6 1 3 47 122 182
Total 29 161 32 56 473 781 1532
χ2=182.433 · df=30 · Cramer’s V=0.154 · Fisher’s p=0.000

Table 5.1.3: Trust in Adult Educational Programming and Political Leaning

data %>% select(Q12, Q32_8) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in Adult Educational Programming"))
Political Leaning Trust in Adult
Educational
Programming 		Total
Trust a lot Somewhat trust Neither trust nor
distrust 		Somewhat distrust Distrust a lot No opinion
Extremely
conservative 		139 99 32 13 5 8 296
Moderately
conservative 		82 86 37 11 3 6 225
Slightly
conservative 		58 48 32 8 4 6 156
Neither liberal nor
conservative 		102 107 73 10 3 29 324
Slightly liberal 65 42 15 5 0 4 131
Moderately liberal 118 75 17 1 0 6 217
Extremely liberal 107 56 13 3 1 2 182
Total 671 513 219 51 16 61 1531
χ2=118.226 · df=30 · Cramer’s V=0.124 · Fisher’s p=0.000

Table 5.2.1: Trust in Public Funding and Political Leaning

data %>% select(Q12, Q32_2) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in Public Funding"))
Political Leaning Trust in Public
Funding 		Total
Trust a lot Somewhat trust Neither trust nor
distrust 		Somewhat distrust Distrust a lot No opinion
Extremely
conservative 		129 121 29 7 4 6 296
Moderately
conservative 		66 102 40 8 5 4 225
Slightly
conservative 		57 49 34 9 3 4 156
Neither liberal nor
conservative 		109 111 71 11 3 20 325
Slightly liberal 65 38 20 3 1 4 131
Moderately liberal 113 83 18 2 1 0 217
Extremely liberal 103 69 5 3 1 1 182
Total 642 573 217 43 18 39 1532
χ2=130.054 · df=30 · Cramer’s V=0.130 · Fisher’s p=0.000

Table 5.3.1.1: Trust in PBS National News and Political Leaning

data %>% select(Q12, Q32_4) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in PBS National News"))
Political Leaning Trust in PBS
National News 		Total
Trust a lot Somewhat trust Neither trust nor
distrust 		Somewhat distrust Distrust a lot No opinion
Extremely
conservative 		126 84 41 30 5 9 295
Moderately
conservative 		65 85 45 18 7 5 225
Slightly
conservative 		50 43 32 23 3 5 156
Neither liberal nor
conservative 		85 108 76 18 6 32 325
Slightly liberal 59 42 19 4 1 6 131
Moderately liberal 118 67 22 3 1 6 217
Extremely liberal 98 57 17 3 3 4 182
Total 601 486 252 99 26 67 1531
χ2=153.296 · df=30 · Cramer’s V=0.142 · Fisher’s p=0.000

Table 5.3.2.1: Trust in Children’s Programming and Political Leaning

data %>% select(Q12, Q32_6) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in Children’s Programming"))
Political Leaning Trust in Children’s
Programming 		Total
Trust a lot Somewhat trust Neither trust nor
distrust 		Somewhat distrust Distrust a lot No opinion
Extremely
conservative 		128 95 24 20 6 23 296
Moderately
conservative 		74 69 54 7 3 17 224
Slightly
conservative 		49 43 22 12 3 27 156
Neither liberal nor
conservative 		120 83 54 8 5 55 325
Slightly liberal 50 43 15 4 1 18 131
Moderately liberal 93 58 15 2 4 45 217
Extremely liberal 88 55 17 2 3 17 182
Total 602 446 201 55 25 202 1531
χ2=107.065 · df=30 · Cramer’s V=0.118 · Fisher’s p=0.000

Table 5.3.2.2: Trust in PBS Kids Games and Political Leaning

data %>% select(Q12, Q32_7) %>%
  sjtab(fun = 'xtab', var.labels = c("Political Leaning", "Trust in PBS Kids Games"))
Political Leaning Trust in PBS Kids
Games 		Total
Trust a lot Somewhat trust Neither trust nor
distrust 		Somewhat distrust Distrust a lot No opinion
Extremely
conservative 		128 77 41 11 9 23 289
Moderately
conservative 		47 69 53 9 9 27 214
Slightly
conservative 		39 33 30 9 5 36 152
Neither liberal nor
conservative 		76 85 66 5 4 79 315
Slightly liberal 35 30 25 4 2 30 126
Moderately liberal 66 45 27 2 3 69 212
Extremely liberal 83 42 22 3 1 31 182
Total 474 381 264 43 33 295 1490
χ2=137.260 · df=30 · Cramer’s V=0.136 · Fisher’s p=0.000