I am currently a PhD researcher in Politics at the University of Glasgow.
In my PhD project, I’m trying to find out how the media in the UK portrays protest events. Most literature about the topic assumes that the messages of protests are marginalised by the media through routinized 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 over the last 26 years (1992-2017) and analyse the content via framing analysis and supervised methods of computational text analysis.
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 this website).
PhD in Politics, Ongoing
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: 10 January 2020).