christian/hateimparlament
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' into genderequality-alternative

Browse Source
This commit is contained in:
christian
2021-08-10 17:54:04 +02:00
parent 7daf9e553c b11289e093
commit b09742815a
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/analyze.R
+2 -2
View File
@@ -48,14 +48,14 @@ party_colors <- c(
FDP="#FEEB34", FDP="#FEEB34",
"CDU/CSU"="#000000", "CDU/CSU"="#000000",
SPD="#DF0B25", SPD="#DF0B25",
"BÜNDNIS 90/DIE GRÜNEN"="#4A932B", "B\u00DCNDNIS 90/DIE GR\u00DCNEN"="#4A932B",
"DIE LINKE"="#BC3475", "DIE LINKE"="#BC3475",
"AfD&Fraktionslos"="#AAAAFF", "AfD&Fraktionslos"="#AAAAFF",
Fraktionslos="#AAAAAA" Fraktionslos="#AAAAAA"
) )
party_order <- factor(c("Fraktionslos", "AfD&Fraktionslos", party_order <- factor(c("Fraktionslos", "AfD&Fraktionslos",
"DIE LINKE", "BÜNDNIS 90/DIE GRÜNEN", "SPD", "CDU/CSU", "DIE LINKE", "B\u00DCNDNIS 90/DIE GR\u00DCNEN", "SPD", "CDU/CSU",
"FDP", "AfD", NA_character_)) "FDP", "AfD", NA_character_))
#' Bar chart visualizing fraction based data #' Bar chart visualizing fraction based data
R/parse.R
+3 -3
View File
@@ -55,7 +55,7 @@ read_all <- function(path="inst/records/", pattern="-data\\.xml") {
"SPD" = str_detect(fraction, "SPD"), "SPD" = str_detect(fraction, "SPD"),
"FDP" = str_detect(fraction, "FDP"), "FDP" = str_detect(fraction, "FDP"),
"DIE_LINKE" = str_detect(fraction, "DIE LINKE"), "DIE_LINKE" = str_detect(fraction, "DIE LINKE"),
"BUENDNIS_90_DIE_GRUENEN" = str_detect(fraction, "BÜNDNIS 90/DIE GRÜNEN"), "BUENDNIS_90_DIE_GRUENEN" = str_detect(fraction, "B\u00DCNDNIS 90/DIE GR\u00DCNEN"),
"AfD" = str_detect(fraction, "AfD")) %>% "AfD" = str_detect(fraction, "AfD")) %>%
select(-fraction) -> select(-fraction) ->
applause applause
@@ -172,8 +172,8 @@ parse_speech <- function(speech_xml, date) {
comments = comments) comments = comments)
} }
fractionpattern <- "BÜNDNIS(SES)?\\W*90/DIE\\W*GRÜNEN|CDU/CSU|AfD|SPD|DIE LINKE|FDP|LINKEN" fractionpattern <- "B\u00DCNDNIS(SES)?\\W*90/DIE\\W*GR\u00DCNEN|CDU/CSU|AfD|SPD|DIE LINKE|FDP|LINKEN"
fractionnames <- c("BÜNDNIS 90/DIE GRÜNEN", "CDU/CSU", "AfD", "SPD", "DIE LINKE", "FDP", fractionnames <- c("B\u00DCNDNIS 90/DIE GR\u00DCNEN", "CDU/CSU", "AfD", "SPD", "DIE LINKE", "FDP",
"Fraktionslos") "Fraktionslos")
parse_comment <- function(comment, speech_id, on_speaker) { parse_comment <- function(comment, speech_id, on_speaker) {
R/repair.R
+2 -2
View File
@@ -1,7 +1,7 @@
fractions <- c("AFD" = "AfD", fractions <- c("AFD" = "AfD",
"AFD&FRAKTIONSLOS" = "AfD&Fraktionslos", "AFD&FRAKTIONSLOS" = "AfD&Fraktionslos",
"BÜNDNIS90/" = "BÜNDNIS 90/DIE GRÜNEN", "B\u00DCNDNIS90/" = "B\u00DCNDNIS 90/DIE GR\u00DCNEN",
"BÜNDNIS90/DIEGRÜNEN" = "BÜNDNIS 90/DIE GRÜNEN", "B\u00DCNDNIS90/DIEGR\u00DCNEN" = "B\u00DCNDNIS 90/DIE GR\u00DCNEN",
"FRAKTIONSLOS" = "Fraktionslos", "FRAKTIONSLOS" = "Fraktionslos",
"DIELINKE" = "DIE LINKE", "DIELINKE" = "DIE LINKE",
"SPD" = "SPD", "SPD" = "SPD",