holnburger

[
    {
        "id": "f77de3f3f717c5c3",
        "type": "ha-button",
        "z": "98f3bced.07a83",
        "name": "Friday",
        "version": 0,
        "debugenabled": false,
        "outputs": 1,
        "entityConfig": "9d435f6632fb9b75",

holnburger

[
    {
        "id": "12370a346f7d923d",
        "type": "ha-button",
        "z": "98f3bced.07a83",
        "name": "Friday",
        "version": 0,
        "debugenabled": false,
        "outputs": 1,
        "entityConfig": "9d435f6632fb9b75",

holnburger

[
    {
        "id": "c2ccbafbeb0f79d3",
        "type": "inject",
        "z": "98f3bced.07a83",
        "name": "",
        "props": [
            {
                "p": "payload"
            },

holnburger

library(rtweet)
library(tidyverse)
library(ggraph)
library(tidygraph)
library(ggrepel)

# get all the members from the bundestag from each faction, use lists provided by @pollytix_gmbh
mdb_list <- lists_members("973527951173193728") %>% mutate(party = "AfD") %>%
  bind_rows(lists_members("973614171886686209") %>% mutate(party = "CDU")) %>%
  bind_rows(lists_members("973520347634028545") %>% mutate(party = "CSU")) %>%

holnburger

library(tidyverse)
library(slider)

final <- tibble::tribble(
           ~ccode, ~year, ~publicdept, ~lifeexpec, ~gdp_pc, ~cpia, ~xm_gdp, ~polity,
            "AFG", 2006L,          23,       58.8,   0.264,  3.33,    103L,    -66L,
            "AFG", 2007L,        20.1,       59.4,    0.36,  3.17,    102L,    -66L,
            "AFG", 2008L,          23,       58.8,   0.264,  3.33,    103L,    -66L,
            "AFG", 2009L,        20.1,       59.4,    0.36,  3.17,    102L,    -66L,
            "AFG", 2010L,          28,         60,    0.36,  3.33,    103L,    -66L,

holnburger

library(rvest)
library(tidyverse)
library(furrr)

#--------functions--------

get_mep_overview <- function(x){
  data_frame(
    mep_name = x %>% html_nodes(".member-name") %>% html_text(),
    mep_link = x %>% html_nodes(".single-member-container a") %>%

holnburger

# R-Script zum Tracking von Tweets und Reaktionen auf Tweets der MdBs

#---------#
#  Setup  #
#---------#

# Damit das Script funktioniert, müssen folgende Packete erst installiert werden
# Hier mit Rauten auskommentiert, sie müssen nur einmalig installiert werden

# install.packages("rtweet")

holnburger

# falls das Packet devtools und gganimate (die neue Version von github) noch nicht installiert sind
# install.packages('devtools')
# devtools::install_github('thomasp85/gganimate')
# Da wir die Werte in Prozent darstellen, wird auch das Packet scales benötigt.
# !Warnung! Sollte tidyverse oder gganimate noch nicht installiert worden sein, benötigt die Installation sehr lange.

library(gganimate)
library(tidyverse)

# Von der Seite: https://www.bundeswahlleiter.de/bundestagswahlen/2017/ergebnisse/repraesentative-wahlstatistik.html

holnburger

Keybase proof

I hereby claim:

• I am holnburger on github.
• I am holnburger (https://keybase.io/holnburger) on keybase.
• I have a public key whose fingerprint is D89D 7700 7650 B6D0 3D44 7DB8 AAA4 04B0 3235 2658

To claim this, I am signing this object: