Für die folgende Analyse wurden alle Tweets gesammelt, die das Wort “ltw18by” beinhalten (nur original Tweets, keine Retweets). Der Datensatz enthält insgesamt 12.381 Tweets.

Den Link zum Notebook gibts hier

load(file="../data/ltw18by_tweets.Rda")
rt %>%
  mutate(created_at = created_at + hours(2)) %>%
  filter(created_at > as.POSIXct("2018-10-14 16:00:00")) %>%
  ts_plot("5 minutes") +
  ggplot2::labs(
    x = NULL, y = NULL,
    title = "Frequenz der #ltw18by Tweets",
    subtitle = "aggregiert über ein 5 Minuten Intervall",
    caption = "\nSource: Data collected from Twitter's REST API via rtweet"
  )

rt %>%
  count(screen_name, sort=TRUE) %>%
  top_n(15) %>%
  ggplot(aes(reorder(screen_name, n),n)) +
  geom_col(fill = col[1], alpha = 0.8) +
  coord_flip() +
  labs(x = NULL, y = NULL, title = "Wer hat die meisten Tweets gesendet?")

Welche Tweets wurden am häufigsten geteilt?

rt %>%
  select(screen_name, text, retweet_count) %>%
  arrange(desc(retweet_count)) %>%
  top_n(15, retweet_count) %>%
  htmlTable::htmlTable(align = "l")
screen_name text retweet_count
1 tweaxDE

Nahles verlässt Interview bei Frage, wo sie selber Fehler gemacht habe.

Liebe SPD: Falls ihr euch fragt, was euer Problem ist. Da. Da ist es. #ltwby2018 https://t.co/QHHYBe7mMG 		1209
2 heuteshow Wäre die Bayernwahl eine Party, würden sich Grüne und AfD in der Küche betrinken ohne miteinander zu reden, die CSU würde auf dem Balkon Kette rauchen und irgendwer sollte dringend mal nach der SPD gucken. #ltwBY2018 714
3 FriendOfFacts17 Die Wähler der Rechtsextremen leben in ihrer eigenen Welt, einem selbstgeschaffenen Paralleluniversum. Wie bei einer Sekte. #ltwby18 https://t.co/Gxufcoy8xw 636
4 Beatrix_vStorch Die “Große Koalition” hat in Bayern weniger Stimmen als die CSU bei der letzten Wahl 2013 allein. Die SPD wurde geschreddert. Rotgrün hat so viele Stimmen wie früher die SPD allein. Die #AfD zieht in den 15. Landtag ein. Unsere Erfolgsserie setzt sich fort. #ltwby2018 355
5 heuteshow Schwere Zeiten für die Parteien der #Groko. Es ist aber auch nicht einfach, zu ahnen, was die Menschen von der Politik fordern. Ist ja nicht so, dass 240.000 auf die Straße gehen und das auf Schilder schreiben. #Bayernwahl2018 315
6 igorpianist Wow. Zieht Euch das mal rein. Irre. Stärkste Kraft in Bayerns Städten. @Die_Gruenen #ltw18by https://t.co/v3dAeaLaXk 305
7 Hartes_Geld Die #SPD hat den #Spurwechsel vollzogen und fährt jetzt einstellig. Alle Linksbizarren zusammen haben nur knapp 30 Prozent. Trotz hysterisch medialer Unterstützung bleiben sie eine Minderheit. #ltwby2018 #LtwBayern18 https://t.co/l5mazR594d 298
8 lawyerberlin #ARD und #ZDF tun gerade so, als hätten ihre Lieblinge, also @Die_Gruenen, die #CSU besiegt und als sei #Bayern linker geworden. Das ist schlichtweg Unsinn: Die Grünen absorbieren lediglich die personell und inhalt katastrophal aufgestellte #SPD. #LtwBayern @ARDde @ZDF @spdde 293
9 mesarosch

Wer glaubt: „Wir müssen jetzt genau analysieren, woran es lag“, der schickt auch Problemberichte an Microsoft.

Wir müssen jetzt nix analysieren, sondern das, was wir die letzten x-mal „genau analysiert“ haben, auch mal anders machen. #ltwby18 #LtwBayern2018 		281
10 krk979 Das hohe Wahlergebnis der Grünen zeigt vor allem eines: In Bayern geht es offenbar so manchen schlicht zu gut. Ein Blick nach Baden-Württemberg, wo unter den Grünen das Schulsystem abstürzt und die Wirtschaft zurückfällt, könnte heilbar sein. #LtwBy18 https://t.co/Y23VCUsY65 272
11 ZDF

Wie sehen die Werte der CSU, SPD und Grüne in den acht bayrischen Städten mit mehr als 100.000 Einwohner aus.

#ltwby18 #ltwby2018 https://t.co/M5YtbrG5a4 		264
12 robinalexander_ Nach #Bayernwahl greift @CDU die @CSU frontal an: Daniel Günther zählt im Interview mit @welt das komplette Führungspersonal an und stellt kaum verholen traditionelle CSU-Privilegien in @cducsubt in Frage. Nicht denkbar ohne Merkels Segen. https://t.co/sTkq5QnPz3 #ltwby2018 https://t.co/HxEAm73nrG 260
13 EuropeElects

EU27, Europe Elects analysis:

Green Party election results swing 14 October 2018

Bavaria: +8.9 …Munich: +18.2

Luxembourg: +5.0 … Luxembourg City: +6.7

Flanders: +5.5 … Antwerp: +10.2

In all six cases: historic high.

#Elections2018 #ltwBY18 #Walen2018 @europeangreens 		227
14 Hartes_Geld Da können Medien deuten und herumdrucksen was sie wollen: In #Bayern wurde klar Merkel, ihre #GroKO und ihre Flüchtlingspolitik abgewählt. Was sonst? #ltwBY18 https://t.co/HHMWlPgqYG 226
15 gato_vasco

#UltimaHora ➥Elecciones en Baviera y Luxemburgo, el cataclismo apoteósico de la IzMierda es bíblico⤵

#PSOE 🌹 🇱🇺4º 🇩🇪5º

#Podemos ☭ 🇱🇺7º (Último) 🇩🇪7º (Último)

*Europa dice NO al olor a naftalina de Psoe-Podemos😹

**Irrumpe +11% el Alt-Right AfD🇩🇪

#LtwBy18 🇪🇸 #FelizLunes https://t.co/3opfe7DZib 		223

Welche Tweets wurden am häufigsten favorisiert?

rt %>%
  select(screen_name, text, favorite_count) %>%
  arrange(desc(favorite_count)) %>%
  top_n(15, favorite_count) %>%
  htmlTable::htmlTable(align = "l")
screen_name text favorite_count
1 heuteshow Wäre die Bayernwahl eine Party, würden sich Grüne und AfD in der Küche betrinken ohne miteinander zu reden, die CSU würde auf dem Balkon Kette rauchen und irgendwer sollte dringend mal nach der SPD gucken. #ltwBY2018 4529
2 tweaxDE

Nahles verlässt Interview bei Frage, wo sie selber Fehler gemacht habe.

Liebe SPD: Falls ihr euch fragt, was euer Problem ist. Da. Da ist es. #ltwby2018 https://t.co/QHHYBe7mMG 		3987
3 heuteshow Schwere Zeiten für die Parteien der #Groko. Es ist aber auch nicht einfach, zu ahnen, was die Menschen von der Politik fordern. Ist ja nicht so, dass 240.000 auf die Straße gehen und das auf Schilder schreiben. #Bayernwahl2018 1767
4 heuteshow Weder Seehofer noch Söder denken über einen Rücktritt nach. Jedenfalls keiner über den eigenen. #ltwBY2018 1709
5 DiePARTEI Unser Wahlsieg in Bayern wird jetzt genau analysiert. Personelle oder inhaltliche Konsequenzen sind aber bereits ausgeschlossen. #ltwBY18 1532
6 extra3 Söder glaubt, dass man ihn bitten wird weiterzumachen. Das muss diese Demut sein, von der er unmittelbar nach der Wahl sprach. #ltwby2018 1455
7 Beatrix_vStorch Die “Große Koalition” hat in Bayern weniger Stimmen als die CSU bei der letzten Wahl 2013 allein. Die SPD wurde geschreddert. Rotgrün hat so viele Stimmen wie früher die SPD allein. Die #AfD zieht in den 15. Landtag ein. Unsere Erfolgsserie setzt sich fort. #ltwby2018 1431
8 heuteshow Zitterpartie bei der FDP: Erreichen sie die fünf Prozent? Normalerweise interessiert man sich da ja nicht für Menschen am Existenzminimum. #ltwBY2018 1401
9 FriendOfFacts17 Die Wähler der Rechtsextremen leben in ihrer eigenen Welt, einem selbstgeschaffenen Paralleluniversum. Wie bei einer Sekte. #ltwby18 https://t.co/Gxufcoy8xw 1361
10 mesarosch

Wer glaubt: „Wir müssen jetzt genau analysieren, woran es lag“, der schickt auch Problemberichte an Microsoft.

Wir müssen jetzt nix analysieren, sondern das, was wir die letzten x-mal „genau analysiert“ haben, auch mal anders machen. #ltwby18 #LtwBayern2018 		1308
11 skyttedal Socialdemokraterna i Bayern ser ut att kunna få under 10 procent. Helt klart en utdöende rörelse. #ltwby2018 1281
12 igorpianist Wow. Zieht Euch das mal rein. Irre. Stärkste Kraft in Bayerns Städten. @Die_Gruenen #ltw18by https://t.co/v3dAeaLaXk 1203
13 extra3 Markus Söder: “Ich nehme den Regierungsauftrag an”. Ich morgen im Lotto-Laden: “Ich nehme den Lottogewinn an!” #ltwby2018 #LtwBayern18 1182
14 heuteshow Die AfD holt in Bayern über 10 Prozent. Es gibt also wirklich Wähler, denen die CSU zu wenig rechts ist! #ltwBY2018 1142
15 heuteshow Horst Seehofer schließt seinen Rücktritt aus. Er will weiter scheitern, aber besser. #ltwBY2018 1107 
library(tidytext)
# define stopwords
stop_words <- stopwords::stopwords("de", source = "snowball")
stop_words <- c(stop_words, "https","t.co","mal","mehr","ltw18by","ltwby18","ltwby2018","dass","ltwbayern", "ltwby")
tokenized <- rt %>%
  select(status_id, screen_name, created_at, text) %>% 
  unnest_tokens("words", text) %>%
  filter(!words %in% stop_words)

tokenized %>%
  count(words, sort = T) %>%
  top_n(30) %>%
  ggplot(aes(reorder(words, n),n)) +
  geom_col(fill = col[1], alpha=0.8) +
  coord_flip() +
  labs(x = NULL, y = NULL, title = "Top 30 Wörter in den Tweets")
## Selecting by n

bigrams <- rt %>%
  select(status_id, screen_name, created_at, text) %>% 
  unnest_tokens(bigram, text, token="ngrams", n=2) %>%
  separate(bigram, c("word1", "word2"), sep = " ") %>%
  filter(!word1 %in% stop_words) %>% 
    filter(!word2 %in% stop_words) %>%
  unite(bigram, word1, word2, sep=" ")

bigrams %>%
  count(bigram, sort=T) %>%
  top_n(30) %>%
  ggplot(aes(reorder(bigram, n),n)) +
  geom_col(fill = col[1], alpha=0.8) +
  coord_flip() +
  labs(x = NULL, y = NULL, title = "Top 30 Bigrams in den Tweets")
## Selecting by n