R_twitter_webthing/variables.R at master · katsel/R_twitter_webthing · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# commonly needed variables

tatort_days <- c("2013-11-17","2013-11-24","2013-12-01","2013-12-08",
                 "2013-12-15","2013-12-22","2013-12-26","2013-12-29",
                 "2014-01-01","2014-01-05","2014-01-12","2014-01-19",
                 "2014-01-26","2014-02-02","2014-02-09","2014-02-16",
                 "2014-02-23","2014-03-02","2014-03-09","2014-03-16",
                 "2014-03-30")

tatort_labels <- c("Sun 2013-11-17 (Tatort, Dortmund)","Sun 2013-11-24 (Tatort, Hamburg)",
                   "Sun 2013-12-01 (Tatort, Stuttgart)","Sun 2013-12-08 (Tatort, Ffm.)",
                   "Sun 2013-12-15 (Polizeiruf, Berlin/BB)","Sun 2013-12-22 (Tatort, München)",
                   "Thu 2013-12-26 (Tatort, Weimar)","Sun 2013-12-29 (Tatort, Kiel)",
                   "Wed 2014-01-01 (Tatort, Leipzig)","Sun 2014-01-05 (Tatort Doppelfolge, Ffm./Köln)",
                   "Sun 2014-01-12 (Polizeiruf, Rostock)","Sun 2014-01-19 (Tatort, Konstanz)",
                   "Sun 2014-01-26 (Tatort, Saarbrücken)","Sun 2014-02-02 (Tatort, Dortmund)",
                   "Sun 2014-02-09 (Tatort, Berlin)","Sun 2014-02-16 (Tatort, Ludwigshafen)",
                   "Sun 2014-02-23 (Tatort, Bremen)","Sun 2014-03-02 (Tatort, Wien)",
                   "Sun 2014-03-09 (Tatort, Hamburg)","Sun 2014-03-16 (Tatort, Leipzig)",
                   "Sun 2014-03-30 (Tatort, Kiel)")

mystopwords <- c("beim","dass","mal","ne","nem","nen","ner","schon")

frequentwords <- c("@tatort","tatort","#tatort",
                   "@polizeiruf","@polizeiruf110","polizeiruf",
                   "#polizeiruf","#polizeiruf110")