diff --git a/data-raw/2019-11-20-us-elections-debate-speaking-time.html b/data-raw/2019-11-20-us-elections-debate-speaking-time.html new file mode 100644 index 0000000..fadc826 --- /dev/null +++ b/data-raw/2019-11-20-us-elections-debate-speaking-time.html @@ -0,0 +1,431 @@ + + + + Which Candidates Got the Most Speaking Time in the Democratic Debate - The New York Times + + + + + + + + + + + + + + + + + + + + + + + + + +

Advertisement

Which Candidates Got the Most Speaking Time in the Democratic Debate

+ + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + +
+ + + +

+ + How Long Each Candidate Spoke + + + + +

+ + + + + + +
+ + + + + + +
+ +

Impeachment

+
+ +
+ +

Electability

+
+ +
+ +

Economic inequality

+
+ +
+ +

Health care

+
+ +
+ +

Party strategy

+
+ +
+ +

Climate change

+
+ +
+ +

Foreign policy

+
+ +
+ +

Women’s issues

+
+ +
+ +

Criminal justice

+
+ +
+ +

Election reform

+
+ + + + +
+ + + + + + + + +
+
+
+ + + + + + + + + + + + + + + + + + + + + +
+ + + Note: Each bar segment represents the length of a candidate’s response to a question. +
+ + +
+ +

+ Senator Elizabeth Warren of Massachusetts and Pete Buttigieg, mayor of South Bend, Ind., had the most speaking time in the November Democratic presidential debate. Here are the issues that have gotten the most time at the debates before this one. +

+

+ The candidates spent the most time touting their own electability and plans to beat President Trump. Foreign policy and economic inequality each were discussed for more than 13 minutes, while climate change received about seven minutes of time. +

+ + + + + + + + + + + + +
+ + + + + + + + + + + + + + +
+
+ + + + + + + + + + + + + + + + +
+ +

+ Get full coverage of the debate here. +

+ +
+ + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + +
+ +
+ + + + \ No newline at end of file diff --git a/data-raw/debates2019.R b/data-raw/debates2019.R index fb3466f..bbada93 100644 --- a/data-raw/debates2019.R +++ b/data-raw/debates2019.R @@ -22,6 +22,7 @@ if (!file.exists(here::here("data-raw/2019-07-30-us-elections-debate-speaking-ti if (!file.exists(here::here("data-raw/2019-07-31-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/07/31/us/elections/debate-speaking-time.html", here::here("data-raw/2019-07-31-us-elections-debate-speaking-time.html")) if (!file.exists(here::here("data-raw/2019-09-12-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/09/12/us/elections/debate-speaking-time.html", here::here("data-raw/2019-09-12-us-elections-debate-speaking-time.html")) if (!file.exists(here::here("data-raw/2019-10-15-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/10/15/us/elections/debate-speaking-time.html", here::here("data-raw/2019-10-15-us-elections-debate-speaking-time.html")) +if (!file.exists(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html"))) download.file("https://www.nytimes.com/interactive/2019/11/20/us/elections/debate-speaking-time.html", here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html")) read_html(here::here("data-raw/2019-06-26-us-elections-debate-speaking-time.html")) %>% html_nodes(xpath = ".//script[contains(., 'NYTG_DEMDEBATES')]") %>% @@ -299,13 +300,65 @@ read_html(here::here("data-raw/2019-10-15-us-elections-debate-speaking-time.html ) %>% as_tibble() -> oct_day_1 +read_html(here::here("data-raw/2019-11-20-us-elections-debate-speaking-time.html")) %>% + html_nodes(xpath = ".//script[contains(., 'NYTG_DEMDEBATES')]") %>% + html_text() %>% + stri_split_lines() %>% + unlist() %>% + .[3] %>% + stri_replace_first_regex("^.*NYTG_DEMDEBATES = ", "") %>% + jsonlite::fromJSON() %>% + as_tibble() %>% + mutate( + elapsed = as.numeric(elapsed)/60, + debate_date = as.Date("2019-11-20"), + speaker = stri_trans_totitle(speaker), + timestamp = parse_time(timestamp), + debate_group = 5, + night = 1 + ) %>% + filter(speaker != "") %>% + mutate( + topic = case_when( + topic == "" ~ "Other", + grepl("climate", topic) ~ "Climate", + grepl("criminal-justice", topic) ~ "Criminal Justice", + grepl("electability", topic) ~ "Electability", + grepl("election-reform", topic) ~ "Election Reform", + grepl("executive-power", topic) ~ "Executive Power", + grepl("candidate-age", topic) ~ "Age", + grepl("foreign-policy", topic) ~ "Foreign Policy", + grepl("gun-control", topic) ~ "Gun Control", + grepl("health-care", topic) ~ "Healthcare", + grepl("immigration", topic) ~ "Immigration", + grepl("impeachment", topic) ~ "Impeachment", + grepl("income-inequality", topic) ~ "Income Inequality", + grepl("economy", topic) ~ "Economy", + grepl("middle-east policy", topic) ~ "Foreign Policy", + grepl("opioids", topic) ~ "Opioids", + grepl("party-strategy", topic) ~ "Party Strategy", + grepl("public-service", topic) ~ "Public Service", + grepl("tech-companies", topic) ~ "Tech Companies", + grepl("white-supremacist violence", topic) ~ "White-Supremacy", + grepl("womens-issues", topic) ~ "Women's Rights", + TRUE ~ topic + ) + ) %>% + filter( + !is.na(timestamp), + speaker != "", + speaker != "Moderator" + ) %>% + as_tibble() -> nov_day_1 + bind_rows( jun_day_1, jun_day_2, jul_day_1, jul_day_2, sep_day_1, - oct_day_1 + oct_day_1, + nov_day_1 ) -> debates2019 usethis::use_data(debates2019, overwrite = TRUE) diff --git a/data/debates2019.rda b/data/debates2019.rda index 3d8e777..7509c04 100644 Binary files a/data/debates2019.rda and b/data/debates2019.rda differ