twitter01

textmining

twitter

Published

October 28, 2022

Exercise

Laden Sie die neuesten Tweets an karl_lauterbach herunter!

Solution

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.3     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.4     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.0
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(rtweet)


Attaching package: 'rtweet'

The following object is masked from 'package:purrr':

    flatten

Einloggen bei Twitter; zuerst die Credentials bereithalten:

source("/Users/sebastiansaueruser/credentials/hate-speech-analysis-v01-twitter.R")

Dann anmelden, z.B. als Bot:

auth <- rtweet_bot(api_key = API_Key,
                   api_secret = API_Key_Secret,
                   access_token = Access_Token,
                   access_secret = Access_Token_Secret)

… Oder als App, das bringt bessere Raten mit sich:

auth <- rtweet_app(bearer_token = Bearer_Token)

Test:

sesa_test <- get_timeline(user = "sauer_sebastian", n = 3) %>% 
  select(full_text)

sesa_test

1 RT @fuecks: By the way: Systematic destruction of life-sustaining infrastructures …
2 RT @NoContextBrits: No shortbread for little Nazis. https://t.co/F6FUPvRz94        
3 RT @ernst_gennat: 2 oder 3 Jahre #Tempolimit von 120 km/h. Abschließend Evaluation…

Tweets an Karl Lauterbach suchen:

karl1 <- search_tweets("@karl_lauterbach")

In Auszügen:

"@Karl_Lauterbach Ein Minister der alle paar Stunden Zeit hat einen Mist zu verbreiten...."   
"@Karl_Lauterbach @focusonline Long Covid ist nichts anderes als schwere Nebenwirkungen der Gentherapie!"  "@Karl_Lauterbach @focusonline Wer schützt uns vor Long Lauterbach?"
"@Karl_Lauterbach Also Karl, primär fordere ich und viele andere eher erstmal dein sofortigen Rücktritt."  "@Karl_Lauterbach Behalt deinen Senf für dich!"                                                            "@Karl_Lauterbach Oh Gott 😱"     
"@Karl_Lauterbach Ach nein, der Clown mit Lebensangst ….\n\nhttps://t.co/8cQZeHh6Ew"                       "@Karl_Lauterbach Ich kenne nur Leute mit Long Covid, die mehrfach geimpft sind! Das ist kein Witz! Scheinbar liegt’s wohl doch an den Spritzen???"                                                            "@Karl_Lauterbach @focusonline Interessiert keine Sau 😉"                      
"RT @Karl_Lauterbach @focusonline „Lauterbachs Aussagen können fundamental nicht stimmen“\nhttps://t.co/rfxnWAWiZX"                                                                          "@Karl_Lauterbach @focusonline 🤡😂😂😂😂😂😂"                                         
"@Karl_Lauterbach Jau und sie sind kein fähiger Gesundheitsminister, sondern lediglich ein gekaufter Coronaminister"

Puh, viele toxische Tweets, wie es scheint.

Und ohne Retweets (RT) und ohne Replies:

karl2 <- search_tweets("@karl_lauterbach", 
  include_rts = FALSE, `-filter` = "replies")

Tweets, die an Karl Lauterbach gerichtet sind, per API-Anweisung:

karl3 <- search_tweets("to:karl_lauterbach", n = 100)

"@Karl_Lauterbach Vielen Dank, dass LongCovid ein gefundenes fressen für die jenigen ist, die nicht mehr Arbeiten wollen."       
 "@Karl_Lauterbach verpiss dich einfach! Immer dieser Schwachsinn"    
"@Karl_Lauterbach @focusonline Das sind genau die Impfnebenwirkungen! Will man nun das wenden um die Impfnebenwirkungen zu vertuschen? \nWofür ist die Impfung gut wenn nicht mal Long-Covid verhindert wird, die Ansteckung konnte sie noch nie verhindern!\nWarum sind 89% Covid Patienten geimpfte in den Spitäler?"
"@Karl_Lauterbach Was spielen Sie eigentlich für ein schmutziges Spiel?\n\nhttps://t.co/8LJIzxyF7G"   
 "@Karl_Lauterbach @focusonline Bessen von Covid! Ständig wird das Netz durchsucht, nach Artikeln,die instrumentalisiert werden, um für Impfung zu werben. Was hätte nur ein vernünftiger Gesundheitsminister mit so viel Zeit Vernünftiges im Gesundheitswesen auf die Beine stellen können..."    
"@Karl_Lauterbach Mit Dauerschaden wegen der Impfung 💉 bin ich Arbeitslos geworden in der Pflege 🤷‍♂️ Ist das normal Herr @Karl_Lauterbach ?"

Ob man mit @karl_lauterbach sucht oder `to:karl_lauterbach”, scheint keinen großen Unterschied zu machen (?).

Categories:

textmining
twitter