I am a Post-Doc Researcher at the Chair of Political Theory and Digital Democracy at the European New School of Digital Studies (ENS), European University Viadrina Foundation Frankfurt (Oder). I recently passed my PhD in Politics at the University of Glasgow (I’m only waiting for the award letter now).
In my PhD project, I scrutinised how the media in the UK portrays protest events. Most literature about the topic assumes that the messages of protests are delegitimised by the media through routinised framing, i.e. a focus on disruption by and deviance of protesters. In my project, I collected all newspaper articles published in selected UK newspaper outlets that mention a protest in the UK over a 26 year period (1992-2017; N > 27,000) and analysed the content using an innovative approach to framing analysis that combines best-practice manual coding techniques with supervised machine learning.
After a detour that included a Master on Political Theory, I realised during my Master in Political Communication — which was originally planned as a semester abroad — how much I love working with data. Especially R, the free software environment for statistical computing and graphics, is captivating much of my attention nowadays and has helped me to combine my two most long-standing passions: Political Science and fiddling with computers. I’m using R to do nearly everything (including writing my thesis and this website).
PhD in Politics, 2021
University of Glasgow
MSc Political Communication, 2015
University of Glasgow
MA Political Theory, 2017
Goethe University of Frankfurt/Main & TU Darmstadt
BA Political Science; Economics and Economic Studies in History, 2012
Today is Valentine’s Day. And since both I and my sweetheart are
R enthusiasts, here is how to say “I love you” using a statistical programming language:
library("dplyr") library("gganimate") library("ggplot2") hrt_dat <- data.frame(t = seq(0, 2 * pi, by = 0.01)) %>% bind_rows(data.frame(t = rep(max(.$t), 300))) %>% mutate(xhrt = 16 * sin(t) ^ 3, yhrt = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t), frame = seq_along(t)) %>% mutate(text = ifelse(frame > 300, " J", "")) %>% mutate(text = ifelse(frame > 500, "A J", text)) %>% mutate(text = ifelse(frame > 628, "A + J", text)) %>% mutate(texty = 0, textx = 0) ggplot(hrt_dat, aes(x = xhrt, y = yhrt)) + geom_line(colour = "#C8152B") + geom_polygon(fill = "#C8152B") + geom_text(aes(x = textx, y = texty, label = text), size = 18, colour = "white", vjust = "center") + theme_void() + transition_reveal(frame)
Download my academic CV (last update: 22 July 2021).