In SchweizerischerGewerkschaftsbund/gsgb: Grafiken und Farben des Schweizerischen Gewerkschaftsbundes

#Load functions and set working directory
source("I:/ABT1/_Datenablage/3_R-Skripte/SGB_data_prep_functions.R")
library(gsgb)
library(knitr)
library(flextable) #für Word-Tabellen im SGB-Layout
library(officer)   #für Word-Tabellen im SGB-Layout

#Set up general knitr options
knitr::opts_chunk$set(echo = TRUE, warning=FALSE, message=FALSE, fig.width=3.5, fig.height=2.5, dpi=600)
# Working directory in knitr (uncomment next line if desired)
# knitr::opts_knit$set(root.dir="I:/ABT1/_Datenablage/3_R-Skripte/rmarkdown-Vorlagen")

# Set SGB ggplot theme
th <- theme_sgb()
theme_set(th)

# flextable SGB theme function
flextable_sgb <- function(x){
  x <- flextable::flextable(x)
  x <- flextable::colformat_num(x, big.mark = "'", digits = 0)
  x <- flextable::border_remove(x = x) 
  x <- flextable::bold(x, part = "header")
  sb  <- officer::fp_border(color = "black", width = 1)
  x <- flextable::hline_top(x, border = sb, part = "header" )
  x <- flextable::hline_top(x, border = sb, part = "body" )
  x <- flextable::hline_bottom(x, border = sb, part = "body")
  x <- flextable::fontsize(x,size = 10, part = "header")
  x <- flextable::fontsize(x,size = 10, part = "body")
  x <- flextable::align_text_col(x, align = "left", header = FALSE, footer = FALSE)
  x <- flextable::align_nottext_col(x, align = "right")
  x <- flextable::font(x, fontname = "NimbusSanNov", part = "header")
  x <- flextable::font(x, fontname = "NimbusSanNov", part = "body")
  return(x)
}

# Speicherort .rda-Dateien festlegen
wd_rda  <- "I:/ABT1/_Datenablage/1_Aufbereitete_Daten/rda/"       
wd_predictions <- "I:/ABT1/_Datenablage/5_Prognosen/rda/"

Wenig Unterstüzung ausserhalb der SVP, starke Gegenmobilisierung: Weshalb die BGI scheiterte

Starker Kontrast zwischen BGI- und MEI-Resultat

Im Gegensatz zur Masseneinwanderungsinitiative (MEI) fiel die Begrenzungsinitiative (BGI) auf breiter Front durch. Für die BGI reichte es nur zu einem Ja-Anteil von 38.3 Prozent bei der Stimmbevölkerung und 3.5 zu-stimmenden Ständen (Schwyz, Glarus, Tessin und Appenzell-Innerrhoden). Dagegen sorgten 6 Jahren zuvor 50.3 Prozent der Stimmbevölkerung und 12.5 Stände für eine knappe Annahme der MEI.

Und hier ein Plot:

Plot Titel

(Plot Untertitel)

ggplot(data=iris,aes(x=Sepal.Length, y=Sepal.Width, col=Species)) + 
  geom_point()+
  labs(x="Length",y="Width")+
  scale_colour_manual(values = usecol(pal = pal_sgb_pref))

ggsave(file="plot.png")

Plots aus externer Datei:

Plot aus externer Datei

(Plot Untertitel)

Und noch eine Tabelle:

knitr-Tabelle

tab <- matrix((1:8)*1000, ncol=4)
tab <- as.data.frame(tab)
rn <- c("a","b")
tab <-data.frame(rn, tab)
names(tab) <- c(" ",letters[1:4])
kable(tab, digits = 1, format.args = list(big.mark = "'", scientific = FALSE))

flextab-Tabelle

tab <- matrix((1:8)*1000, ncol=4)
tab <- as.data.frame(tab)
rn <- c("a","b")
tab <- data.frame(rn, tab)
names(tab) <- c(" ",letters[1:4])
flextable_sgb(tab)

SchweizerischerGewerkschaftsbund/gsgb documentation built on Dec. 18, 2021, 1 p.m.