better year handling, removed early ssh pfadiskn clean, added better twitter-acc-list

.Rhistory

@@ -1,512 +1,165 @@
-cat("Positive in", curissue,"\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-d
-for(d in 1:length(drange)) {
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == drange[d], ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(text, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", tags))
-tags_found <- any(tags_found)
-if(tags_found) {
-cat("Positive in", curissue,"from",drange[d],"\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(tweets_curday)
-tags_found
-drange[d]
-as.character(drange[d])
-cat(as.character(drange[d]))
-cat(as.character(drange[d])
-cat(drange[d])
-for(d in 1:length(drange)) {
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == drange[d], ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", tags))
-tags_found <- any(tags_found)
-if(tags_found) {
-cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(tweets_curday)
-curtext
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", tags))
-tags_found <- any(tags_found)
-if(tags_found) {
-cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-}
-}
-tags_found
-for(d in 1:length(drange)) {
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == drange[d], ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", tags))
-tags_found <- any(tags_found)
-if(tags_found) {
-cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-}
-else {
-cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-curissue
-issues[1,2]
-issues[1,]
-issues[1,curissue]
-issues[2,curissue]
-issues[t,curissue]
-drange[d]
-issues$date[d]
-for(d in 1:nrow(issues)) {
-curdate <- issues$date[d]
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", tags))
-tags_found <- any(tags_found)
-if(tags_found) {
-#cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-issues[d,curissue] <- issues[d,curissue] + 1
-}
-else {
-#cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-tags_found
-curtags
-curissue
-curtext
-curdate
-tags
-issues$issue.edathy <- 0
-issues$issue.ttip <- 0
-View(issues)
-for(d in 1:nrow(issues)) {
-curdate <- issues$date[d]
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-tags_found <- str_detect(curtext, sprintf("%s", curtags))
-tags_found <- any(tags_found)
-if(tags_found) {
-#cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-issues[d,curissue] <- issues[d,curissue] + 1
-}
-else {
-#cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-View(tweets_curday)
-write.csv(tweets_curday, "tweets_curday.csv")
-curtags
-curtext <- "Dies ist ein toller Text zum Testen mit Spacko"
-curtags <- c("toller", "testen", "pack")
-str_detect(curtext, sprintf("%s", curtags))
-curtags
-str_c("", curtags, "")
-str_c(" ", curtags, " ")
-curtags <- str_c(" ", curtags, " ")
-str_detect(curtext, sprintf("%s", curtags))
-curtags <- c("toller", "testen", "pack")
-curtext <- tolower(curtext)
-str_detect(curtext, sprintf("%s", curtags))
-curtext
-curtext <- "ein toller text testen(haha) spacko"
-"bla"
-str_detect(curtext, sprintf("%s", curtags))
-str_detect(curtext, "\\Wtesten\\W")
-str_detect(curtext, "\\Wtesten\\w")
-str_detect(curtext, "\\Wtesten\\W")
-str_detect(curtext, "\\Wpack\\W")
-str_detect(curtext, "\\Wpacko\\W")
-curtags <- str_c("\\W", curtags, "\\W")
-str_detect(curtext, sprintf("%s", curtags))
-curtags
-curtext <- "ein toller text testen-mit spacko"
-str_detect(curtext, sprintf("%s", curtags))
-curtags
-issues$issue.edathy <- 0
-issues$issue.ttip <- 0
-issuelist <- xmlToList("issues.xml")
-issueheads <- names(issuelist)
-issues[issueheads] <- 0
-View(issues)
-for(d in 1:nrow(issues)) {
-curdate <- issues$date[d]
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-curtags <- str_c("\\W", curtags, "\\W")
-tags_found <- str_detect(curtext, sprintf("%s", curtags))
-tags_found <- any(tags_found)
-if(tags_found) {
-#cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-issues[d,curissue] <- issues[d,curissue] + 1
-}
-else {
-#cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-issuelist <- xmlToList("issues.xml")
-issueheads <- names(issuelist)
-issues[issueheads] <- 0
-for(d in 1:nrow(issues)) {
-curdate <- issues$date[d]
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-curtags <- str_c("\\W", curtags, "\\W")
-tags_found <- str_detect(curtext, sprintf("%s", curtags))
-tags_found <- any(tags_found)
-if(tags_found) {
-#cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-issues[d,curissue] <- issues[d,curissue] + 1
-}
-else {
-#cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-issuelist <- xmlToList("issues.xml")
-issueheads <- names(issuelist)
-issues[issueheads] <- 0
-View(issues)
-issuelist <- xmlToList("issues.xml")
-issueheads <- names(issuelist)
-issues[issueheads] <- 0
-View(issues)
-issues <- data.frame(date = drange)
-issuelist <- xmlToList("issues.xml")
-issueheads <- names(issuelist)
-issues[issueheads] <- 0
-View(issues)
-for(d in 1:nrow(issues)) {
-curdate <- issues$date[d]
-cat(as.character(curdate),"\n")
-# Put all tweets from specific day in a temporary DF
-tweets_curday <- tweets[tweets[, "created_at"] == curdate, ]
-for(t in 1:nrow(tweets_curday)){
-# Select tweet's text, make it lowercase and remove hashtag indicators (#)
-curtext <- tolower(as.character(tweets_curday$text[t]))
-curtext <- str_replace_all(curtext, "#", "")
-for(i in 1:length(issuelist)) {
-curtags <- as.character(issuelist[[i]])
-curissue <- names(issuelist)[i]
-curtags <- str_c("\\W", curtags, "\\W")
-tags_found <- str_detect(curtext, sprintf("%s", curtags))
-tags_found <- any(tags_found)
-if(tags_found) {
-#cat("Positive in", curissue,"from",as.character(drange[d]),"\n")
-issues[d,curissue] <- issues[d,curissue] + 1
-}
-else {
-#cat("Nothing found\n")
-}
-} # /for issuelist
-} # /for tweets_curday
-} # /for drange
-View(issues)
-plot(x = issues$date, y=issues$issue.ttip)
-plot(x = issues$date, y=issues$issue.ttip, type="l")
-test <- c("issues$issue.ttip", "issues$issue.nsa")
-plot(x = issues$date, y=test, type="l")
-test
-melt
-library(ggplot2)
-library(reshape2)
-df <- melt(issues,id="date")
-View(df)
-ggplot(df,aes(x=Year,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth()
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_point()
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,colour="red",method="loess", se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="loess", se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="lm", se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="gam", se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="gam",formula = y ~ s(x, k = 3), se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="gam",formula = y ~ x, se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="loess",formula = y ~ x, se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=3,method="loess",formula = y ~ x, se=FALSE)
-ggplot(df,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
-opts(legend.position = "none")
-theme(legend.position = "none")
-View(issues)
-require(lubridate)
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+read.csv("politiker2.csv")
+read.csv("politiker2.csv")
+list1 <- read.csv("politiker2.csv")
+View(list1)
+list1$name
+list1$name[1]
+for(i in 1:length(list1)) {
+lastname <- as.character(list1$name[i])
+}
+str_extract(lastname, "\\w+?")
 require(XML)
-require(ggplot2)
-require(reshape2)
-date_start
-save(issues, "issues.RData")
-save(issues, file = "issues.RData")
-weeks(1)
-weeks(354)
-drange
-date_start + weeks(0:7)
-date_start <- as.Date("2014-01-01")
-date_end <- as.Date("2014-12-01")
-drange <- as.integer(date_end - date_start)
-drange / 7
-round(drange/7)
-round(drange/7,0)
-signif(drange/7)
-signif(drange/7, 0)
-issues_bak <- issues
-View(df)
-issues_melt <- melt(issues,id="date")
-ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
-drange <- as.integer(date_end - date_start)
-d
-wrange <- as.integer(date_end - date_start)
-wrange
-wrange <- (as.integer(date_end - date_start) / 7)
-wrange
-format(round(wrange, 1), nsmall = 1).
-format(round(wrange, 1), nsmall = 1)
-sprintf("%.1f",wrange)
-sprintf("%f",wrange)
-sprintf("%.1",wrange)
-sprintf("%1f",wrange)
-sprintf("%.0f",wrange)
-floor(wrange)
-wrange <- (as.integer(date_end - date_start) / 7)
-wrange <- floor(wrange)
-wrange <- date_start + weeks(0:wdrange)
-wrange <- date_start + weeks(0:wrange)
-wrange
-wrange[3]
-wrange[3] + 1800
-wrange[3] + 1
-wrange[3] + 7
-View(issues)
-issues$dates[3] - wrange [2]
-issues$dates[3] - wrange[2]
-wrange
-class(wrange[2])
-class(issues$dates[3])
-class(issues$date[3])
-issues$date[3] - wrange[2]
-issues$date[1]
-issues$date[2]
-wrange[1]
-wrange[2]
-wrange[1:2]
-days(wrange[1:2])
-ddays(wrange[1:2])
-days(1:2)
-wrange[1] + days(0:6)
-wrange
-issues_week <- data.frame(week = wrange)
-View(issues_week)
-wrange <- floor(wrange)
-wrange <- (as.integer(date_end - date_start) / 7)
-wrange <- floor(wrange)
-wrange
-wrange <- date_start + weeks(0:wrange)
-issues_week <- data.frame(week = wrange)
-View(issues_week)
-wrange <- (as.integer(date_end - date_start) / 7)
-wrange <- floor(wrange) - 1
-wrange <- date_start + weeks(0:wrange)
-issues_week <- data.frame(week = wrange)
-View(issues_week)
-wrange[1] + days(0:6)
-issues_week$week[2]
-issues_week$week[2] + 1
-currange <- issues_week$week[w] + days(0:6)
-w <- 1
-currange <- issues_week$week[w] + days(0:6)
-currange
-currange[7]
-str_detect(names(issues), "^issue")
-str_extract(names(issues), "^issue\.+")
-str_extract(names(issues), "^issue\\.+")
-str_extract(names(issues), "^issue\\..+")
-issueheads
-issues[issueheads[2],]
-issues[,issueheads[2]]
-issues[,issueheads[1]]
-View(issues_week)
-View(issues)
-issues[issues[, "date"] == wrange[1]]
-issues[issues[, "date"] == wrange[1], ]
-issues[issues[, "date"] == wrange[3], ]
-issues[issues[, "date"] == currange, ]
-currange
-issues[issues[, "date"] = currange, ]
-issues[issues[, "date"] == currange, ]
-View(issues)
-warning()
-issues[issues[, "date"] == currange, ]
-warning()
-issues[issues[, "date"] == sprintf("%s", currange), ]
-issues[issues[, "date"] == 2014-01-02, ]
-issues[issues[, "date"] == "2014-01-02", ]
-issues[issues[, "date"] == "2014-01-03", ]
-issues[issues[, "date"] == "2014-01-07", ]
-issues[issues[, "date"] == "2014-01-08", ]
-issues[issues[, "date"] == "2014-01-01:2014-01-08", ]
-issues[issues[, "date"] == "2014-01-01:2014-01-07", ]
-test <-issues[issues[, "date"] == currange, ]
-test
-sum(testz)
-sum(test)
-curweek <- issues_week$week[w]
-currange <- curweek + days(0:6)
-curweek
-currange
-d=1
-curday <- issues$date[d]
-curday
-names(issues)[2]
-curvalue <- issues[d,c]
-d
-c
-c <- 2
-curvalue <- issues[d,c]
-vurv
-curvalue
-c=56
-curvalue
-curvalue <- issues[d,c]
-curvalue
-c
-d
-View(issues)
-issues[2,7]
-issues[7,2]
-issues[7,3]
-curissue
-curissue <- names(issues)[c]
-c
-c = 7
-curissue <- names(issues)[c]
-curvalue <- issues[d,c]
-curvalue
-issues[d,curissue]
-issues[d,7]
-issues[d,curissue]
-curissue
-d
-issues[d:d+6,curissue]
-issues[(d:d+6),curissue]
-d2 <- d+6
-d2
-issues[(d:d2),curissue]
-issues[d:d2,curissue]
-sum(issues[d:d2,curissue])
-issues_week[issueheads] <- 0
-View(issues_week)
-issues_week[w,curissue]
-View(issues)
-for(w in 1:nrow(issues_week)) {
-curweek <- issues_week$week[w]
-currange <- curweek + days(0:6)
-day <- 1
-for(d in 1:nrow(issues)) {
-curday <- issues$date[d]
-if(curweek == curday) {
-for(c in 2:ncol(issues)) {
-curissue <- names(issues)[c]
-d2 <- d + 6
-curvalue <- sum(issues[d:d2,curissue])
-issues_week[w, curissue] <- curvalue
-} # /for issues columns
-} # /if day matches first day of week
-break
-} # /for issues rows
-} # /for issues_week
-View(issues_week)
-for(w in 1:nrow(issues_week)) {
-curweek <- issues_week$week[w]
-currange <- curweek + days(0:6)
-day <- 1
-for(d in 1:nrow(issues)) {
-curday <- issues$date[d]
-if(curweek == curday) {
-for(c in 2:ncol(issues)) {
-curissue <- names(issues)[c]
-d2 <- d + 6
-curvalue <- sum(issues[d:d2,curissue])
-issues_week[w, curissue] <- curvalue
-} # /for issues columns
-} # /if day matches first day of week
-} # /for issues rows
-} # /for issues_week
-View(issues_week)
-View(issues)
-View(issues_week)
-View(issues)
-View(issues_week)
-issues_week_melt <- melt(issues_week,id="week")
-ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
+require(stringr)
+str_extract(lastname, "\\w+?")
+str_extract(lastname, "\\w+")
+str_extract(lastname, "\\w+")
+list2 <- read.csv("politiker.csv")
+View(list2)
+View(list2)
+View(list2)
+View(list2)
+list1 <- read.csv("politiker2.csv")
+list2 <- read.csv("politiker.csv")
+for(i in 1:length(list1)) {
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:length(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+acc <- as.character(list2$screenname[a])
+cat(name1,":",acc,sep = "")
+}
+}
+}
+cat(name1,":",acc,sep = "")
+for(i in 1:length(list1)) {
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:length(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+acc <- as.character(list2$screenname[a])
+#cat(name1,":",acc,"\n",sep = "")
+cat("Found\n")
+}
+}
+}
+a
+for(i in 1:nrow(list1)) {
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+acc <- as.character(list2$screenname[a])
+cat(name1,":",acc,"\n",sep = "")
+#cat("Found\n")
+}
+}
+}
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+cat(name1," --> ",acc,"\n",sep = "")
+}
+}
+if(detect) {
+cat("\n")
+}
+}
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+cat(name1," --> ",acc,"(",name2,")","\n",sep = "")
+}
+}
+if(detect) {
+cat("\n")
+}
+}
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+cat(name1," --> ",acc," (",name2,")","\n",sep = "")
+}
+}
+if(detect) {
+cat("\n")
+}
+}
+c(name1," --> ",acc," (",name2,")","\n",sep = "")
+str_c(name1," --> ",acc," (",name2,")","\n",sep = "")
+str_c(name1," --> ",acc," (",name2,")")
+result <- str_c(name1," --> ",acc," (",name2,")")
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+result <- str_c(name1," --> ",acc," (",name2,")")
+write(result, "merge.txt", append = TRUE)
+}
+}
+if(detect) {
+write("", "merge.txt", append = TRUE)
+}
+}
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+verif <- as.character(list2$verified[a])
+result <- str_c(name1," --> ",acc," (",name2,") ",verif)
+write(result, "merge.txt", append = TRUE)
+}
+}
+if(detect) {
+write("", "merge.txt", append = TRUE)
+}
+}
+for(i in 1:nrow(list1)) {
+detect <- FALSE
+name1 <- as.character(list1$name[i])
+lastname1 <- str_extract(name1, "\\w+")
+for(a in 1:nrow(list2)) {
+name2 <- as.character(list2$name[a])
+if(str_detect(name2, lastname1)) {
+detect <- TRUE
+acc <- as.character(list2$screenname[a])
+verif <- as.character(list2$verified[a])
+result <- str_c(name1," --> ",acc," (",name2,") ",verif)
+write(result, "merge.txt", append = TRUE)
+}
+}
+if(detect) {
+write("", "merge.txt", append = TRUE)
+}
+}

extract-twitter-accounts.R

@@ -10,10 +10,22 @@ setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
 source("functions.R")
 
 
-acc_url <- "http://www.bundestwitter.de/api/politiker"
-acc_df <- fromJSON(acc_url)
+#acc_url <- "http://www.bundestwitter.de/api/politiker"
+#acc_df <- fromJSON(acc_url)
 
+acc_df <- read.csv("politiker2.csv")
 
+delrow <- NULL
+for(r in 1:nrow(acc_df)) {
+  acc <- as.character(acc_df$twitter_acc[r])
+  if(!nzchar(acc)) {
+    delrow <- c(delrow, r)
+  }
+}
+acc_df <- acc_df[-delrow, ]
+rm(delrow, r, acc)
+acc_df$row.names <- NULL
+row.names(acc_df) <- NULL
 
 
 # COLLECT ALL TWEETS ------------------------------------------------------
@@ -42,11 +54,15 @@ api_params <- c(
 api_url <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
 max_count <- "200"
 keep <- c("created_at", "id_str", "text", "retweet_count")
+
+# tweets_complete: All tweets
+# tweets_full: All tweets of current user
+# tweets_temp: The current max 200 tweets of current user
 tweets_full <- data.frame(user=character(), name=character(), created_at=character(), id_str=character(), text=character(), retweet_count=character())
 tweets_complete <- tweets_full
 
-for(a in 346:nrow(acc_df)) {
-  user <- as.character(acc_df$screenname[a])
+for(a in 1:nrow(acc_df)) {
+  user <- as.character(acc_df$twitter_acc[a])
   name <- as.character(acc_df$name[a])
   max_id <- "999999999999999999"
   loop <- 1
@@ -104,43 +120,54 @@ for(a in 346:nrow(acc_df)) {
     }
    
     ## Last loop is reached. Now clear the data frame
-    # Is the last tweet in tweets_temp from 2013?
-    status <- str_detect(tweets_temp$created_at[nrow(tweets_temp)], "2014$")
-    if (!status) { # Starting when tweet not from 2014
+#     # Is the last tweet in tweets_temp from 2013?
+#     status <- str_detect(tweets_temp$created_at[nrow(tweets_temp)], "2014$")
+    
+    # Extract year of last tweet in tweets_temp
+    year_last <- as.numeric(str_extract(tweets_temp$created_at[nrow(tweets_temp)], "\\d{4}$"))
+    status <- year_last < 2014
+    if (status) { # Starting when tweet is earlier than 2014 (i.e. 2013, 2012...)
       
-      # Delete all tweets other than from 2014
-      old <- 0
-      for(r in 1:nrow(tweets_temp)) {
-        status <- str_detect(tweets_temp$created_at[r], "2014$")
-        if(is.na(status)) { 
-          #status <- FALSE
-          cat("[INFO] NA-Status in Tweet", r)
-        }
-        if(!status) { # Starting when tweet not from 2014
-          old <- old + 1
-        }
+      # Is even the first tweet older than 2014?
+      year_first <- as.numeric(str_extract(tweets_temp$created_at[1], "\\d{4}$"))
+      status <- year_first < 2014
+      if(status) {
+        cat("[INFO] Timeline enhält keinen einzigen aus 2014\n")
       }
-      if(old > 0) {
-        old <- old - 1
-        
-        # If even the first entry isn't from 2014, we have to set "old" manually because of a bug
-        status <- str_detect(tweets_temp$created_at[1], "2014$")
-        if(!status) {
-          old <- nrow(tweets_temp)
-          cat("[INFO] Timeline enhält keinen einzigen aus 2014\n")
-        }
-        
-        # delete all lines which are older than 2014
-        tweets_temp <- head(tweets_temp, -old)
-      }
-      rm(old)
       
+#       # Delete all tweets other than from 2014
+#       old <- 0
+#       for(r in 1:nrow(tweets_temp)) {
+#         status <- str_detect(tweets_temp$created_at[r], "2014$")
+#         if(is.na(status)) { 
+#           #status <- FALSE
+#           cat("[INFO] NA-Status in Tweet", r)
+#         }
+#         if(!status) { # Starting when tweet not from 2014
+#           old <- old + 1
+#         }
+#       }
+#       if(old > 0) {
+#         old <- old - 1
+#         
+#         # If even the first entry isn't from 2014, we have to set "old" manually because of a bug
+#         status <- str_detect(tweets_temp$created_at[1], "2014$")
+#         if(!status) {
+#           old <- nrow(tweets_temp)
+#           cat("[INFO] Timeline enhält keinen einzigen aus 2014\n")
+#         }
+#         
+#         # delete all lines which are older than 2014
+#         tweets_temp <- head(tweets_temp, -old)
+#       }
+#       rm(old)
+
       tweets_full <- insertRow(tweets_full, tweets_temp)
       #rm(tweets_temp)
       break  # End loop because 2013 is reached
     }
     
-    # The last tweet is still from 2014, so we need another loop
+    # The last tweet is newer or equal 2014, so we need another loop
     else {
       # Setting max_id to gather next 200 tweets
       max_id <- tweets_temp$id_str[nrow(tweets_temp)]
@@ -157,7 +184,7 @@ for(a in 346:nrow(acc_df)) {
   write.csv(tweets_complete, "tweets_complete.csv")
 
   
-  # Every tweet from 2014 from user[a] is downloaded. Now next user in for-loop
+  # Every tweet from 2014 or newer from user[a] is downloaded. Now next user in for-loop
 }
 rm(a, code, current, error, loop, max_id, name, query, r, status, user, wait, tweets_full, tweets_temp)
 
@@ -178,7 +205,7 @@ Sys.setlocale("LC_TIME", "C")
 tweets$created_at <- as.POSIXct(tweets$created_at, format = "%a %b %d %H:%M:%S %z %Y")
 tweets <- tweets[order(tweets$created_at), ]
 
-# Finally delete every tweet not from 2014
+# Finally delete every tweet not from 2014 (so also )
 delrow <- NULL
 for(r in 1:nrow(tweets)) {
   if(format(tweets$created_at[r], "%Y") != "2014") {

issuecomp.R

@@ -84,13 +84,13 @@ for(w in 1:nrow(issues_week)) {
 
 # Level: days
 issues_melt <- melt(issues,id="date")
-ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
+ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_line(size=1)
+ggplot(issues_melt,aes(x=date,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="loess",formula = y ~ x, se=FALSE)
 
 # Level: weeks
 issues_week_melt <- melt(issues_week,id="week")
-ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_line()
-ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_smooth(size=0.5,method="loess",formula = y ~ x, se=FALSE)
+ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_line(size=1)
+ggplot(issues_week_melt,aes(x=week,y=value,colour=variable,group=variable)) + geom_smooth(size=1,method="loess",formula = y ~ x, se=FALSE)
 
 
 # POSSIBLY USEFUL CODE ----------------------------------------------------

issues.xml

@@ -1,18 +1,16 @@
 <issuelist>
-    <issue.ttip>
-        <tag>ttip</tag>
-        <tag>ceta</tag>
-        <tag>freihandelsabkommen</tag>
-    </issue.ttip>
     
-    <issue.energiewende>
+    <issue.green>
+        <tag>umwelt</tag>
+        <tag>energie</tag>
         <tag>energiewende</tag>
         <tag>atomkraft</tag>
         <tag>windkraft</tag>
         <tag>wasserkraft</tag>
         <tag>solarstrom</tag>
         <tag>kraftwerk</tag>
-    </issue.energiewende>
+        <tag>strom</tag>
+    </issue.green>
     
     <issue.ukraine>
         <tag>ukraine</tag>
@@ -22,21 +20,6 @@
         <tag>kiew</tag>
     </issue.ukraine>
     
-    <issue.vds>
-        <tag>vds</tag>
-        <tag>vorratsdatenspeicherung</tag>
-        <tag>datenschutz</tag>
-    </issue.vds>
-    
-    <issue.euelec>
-        <tag>schulz</tag>
-        <tag>kommission</tag>
-        <tag>juncker</tag>
-        <tag>ec2014</tag>
-        <tag>ep2014</tag>
-        <tag>europawahl</tag>
-    </issue.euelec>
-    
     <issue.labour>
         <tag>arbeitsmarkt</tag>
         <tag>mindestlohn</tag>
@@ -50,6 +33,7 @@
         <tag>snowden</tag>
         <tag>bnd</tag>
         <tag>gchq</tag>
+        <tag>überwachung</tag>
     </issue.nsa>
     
     <issue.wm2014>
@@ -87,12 +71,6 @@
         <tag>ebola</tag>
     </issue.ebola>
     
-    <issue.nsu>
-        <tag>nsu</tag>
-        <tag>mundlos</tag>
-        <tag>zschäpe</tag>
-    </issue.nsu>
-    
     <issue.edathy>
         <tag>edathy</tag>
         <tag>kinderpornographie</tag>
@@ -101,6 +79,13 @@
         <tag>pädophilie</tag>
     </issue.edathy>
 
+    <issue.conservative>
+        <tag>christ</tag>
+        <tag>christlich</tag>
+        <tag>christen</tag>
+        <tag>inflation</tag>
+    </issue.conservative>
+
     <issue.control>
         <tag>pillepalle</tag>
         <tag>schundluder</tag>

issues.xml.long

@@ -0,0 +1,100 @@
+<issuelist>
+    
+    <issue.energiewende>
+        <tag>energie</tag>
+        <tag>energiewende</tag>
+        <tag>atomkraft</tag>
+        <tag>windkraft</tag>
+        <tag>wasserkraft</tag>
+        <tag>solarstrom</tag>
+        <tag>kraftwerk</tag>
+        <tag>strom</tag>
+    </issue.energiewende>
+    
+    <issue.ukraine>
+        <tag>ukraine</tag>
+        <tag>euromaidan</tag>
+        <tag>krim</tag>
+        <tag>putin</tag>
+        <tag>kiew</tag>
+    </issue.ukraine>
+    
+    <issue.euelec>
+        <tag>schulz</tag>
+        <tag>kommission</tag>
+        <tag>juncker</tag>
+        <tag>ec2014</tag>
+        <tag>ep2014</tag>
+        <tag>europawahl</tag>
+    </issue.euelec>
+    
+    <issue.labour>
+        <tag>arbeitsmarkt</tag>
+        <tag>mindestlohn</tag>
+        <tag>arbeitslosigkeit</tag>
+        <tag>hartz4</tag>
+        <tag>arbeitslos</tag>
+    </issue.labour>
+    
+    <issue.nsa>
+        <tag>nsa</tag>
+        <tag>snowden</tag>
+        <tag>bnd</tag>
+        <tag>gchq</tag>
+    </issue.nsa>
+    
+    <issue.wm2014>
+        <tag>wm2014</tag>
+        <tag>weltmeister</tag>
+        <tag>meister</tag>
+        <tag>finale</tag>
+        <tag>halbfinale</tag>
+        <tag>viertelfinale</tag>
+        <tag>achtelfinale</tag>
+        <tag>brager</tag>
+        <tag>gerbra</tag>
+        <tag>argger</tag>
+        <tag>gerarg</tag>
+        <tag>wm</tag>
+        <tag>stadion</tag>
+    </issue.wm2014>
+    
+    <issue.middleeast>
+        <tag>israel</tag>
+        <tag>gaza</tag>
+        <tag>naher osten</tag>
+        <tag>nahen osten</tag>
+        <tag>nahost</tag>
+    </issue.middleeast>
+    
+    <issue.iraq>
+        <tag>irak</tag>
+        <tag>isis</tag>
+        <tag>is</tag>
+        <tag>kalifat</tag>
+    </issue.iraq>
+    
+    <issue.ebola>
+        <tag>ebola</tag>
+    </issue.ebola>
+    
+    <issue.nsu>
+        <tag>nsu</tag>
+        <tag>mundlos</tag>
+        <tag>zschäpe</tag>
+    </issue.nsu>
+    
+    <issue.edathy>
+        <tag>edathy</tag>
+        <tag>kinderpornographie</tag>
+        <tag>kipo</tag>
+        <tag>pädophil</tag>
+        <tag>pädophilie</tag>
+    </issue.edathy>
+
+    <issue.control>
+        <tag>pillepalle</tag>
+        <tag>schundluder</tag>
+        <tag>whatthefuck</tag>
+    </issue.control>
+</issuelist>

merge.txt

@@ -0,0 +1,737 @@
+Aken, Jan van --> jan_vanaken (Jan van Aken) 0
+
+Albsteiger, Katrin -->  (Katrin Albsteiger) 1
+
+Altmaier, Peter --> peteraltmaier (Peter Altmaier) 1
+
+Amtsberg, Luise --> Luise_Amtsberg (Luise Amtsberg) 0
+
+Andreae, Kerstin --> KerstinAndreae (Kerstin Andreae) 1
+
+Annen, Niels --> NielsAnnen (Niels Annen) 1
+
+Arnold, Rainer --> rainerarnold (Rainer Arnold) 1
+
+Baerbock, Annalena --> ABaerbock (Annalena Baerbock) 1
+
+Bahr, Ulrike --> danielbahr (Daniel Bahr) 1
+
+Bär, Dorothee --> baerbelbas (Bärbel Bas) 1
+Bär, Dorothee --> BaerbelHoehn (Bärbel Höhn) 1
+Bär, Dorothee --> BaerbelKofler (Bärbel Kofler) 1
+Bär, Dorothee --> DoroBaer (Dorothee Bär) 1
+
+Bartol, Sören --> soerenbartol (Sören Bartol) 1
+
+Bartsch, Dr. Dietmar --> DietmarBartsch (Dietmar Bartsch) 0
+
+Bartz, Julia --> JuliaBartzMdB (Julia Bartz) 1
+
+Bas, Bärbel --> baerbelbas (Bärbel Bas) 1
+
+Bätzing-Lichtenthäler, Sabine --> Sabine_Baetzing (Sabine Bätzing) 1
+
+Beck, Marieluise --> MarieluiseBeck (Marieluise Beck) 0
+Beck, Marieluise --> Volker_Beck (Volker Beck) 1
+
+Beck, Volker --> MarieluiseBeck (Marieluise Beck) 0
+Beck, Volker --> Volker_Beck (Volker Beck) 1
+
+Beermann, Maik --> MaikBeermann (Maik Beermann) 1
+
+Behrens, Herbert --> HerbertBehrens (Herbert Behrens) 0
+Behrens, Herbert --> Manfredbehrens (Manfred Behrens) 1
+
+Behrens, Manfred --> HerbertBehrens (Herbert Behrens) 0
+Behrens, Manfred --> Manfredbehrens (Manfred Behrens) 1
+
+Beyer, Peter --> PeterbeyerCDU (Peter Beyer) 0
+
+Bilger, Steffen --> SteffenBilger (Steffen Bilger) 1
+
+Binder, Karin --> karinbinder (Karin Binder) 0
+
+Birkwald, Matthias W. --> MWBirkwald (Matthias W. Birkwald) 1
+
+Brantner, Dr. Franziska --> fbrantner (Franziska Brantner) 0
+
+Braun, Dr. Helge --> HBraun (Dr. Helge Braun) 1
+
+Brehmer, Heike --> HeikeBrehmerMdB (Heike Brehmer) 0
+
+Brinkhaus, Ralph --> rbrinkhaus (Ralph Brinkhaus) 1
+
+Brugger, Agnieszka --> agnieszka_mdb (Agnieszka Brugger) 1
+
+Buchholz, Christine --> ch_buchholz (Christine Buchholz) 1
+
+Bülow, Marco --> marcobuelow (Marco Bülow) 1
+
+Castellucci, Prof. Dr. Lars --> larscastellucci (Lars Castellucci) 1
+
+De Ridder, Dr. rer. pol. Daniela --> DennisRohde (Dennis Rohde) 1
+De Ridder, Dr. rer. pol. Daniela --> DetlevPilger (Detlev Pilger) 1
+De Ridder, Dr. rer. pol. Daniela --> Diether_Dehm (Dr. Diether Dehm) 0
+De Ridder, Dr. rer. pol. Daniela --> ekindeligoez (Ekin Deligöz) 1
+
+Dehm, Dr. Diether --> Diether_Dehm (Dr. Diether Dehm) 0
+
+Deligöz, Ekin --> ekindeligoez (Ekin Deligöz) 1
+
+Diaby, Dr. rer. nat. Karamba --> KarambaDiaby (Karamba Diaby) 1
+
+Dörner, Katja --> katjadoerner (Katja Dörner) 1
+
+Dröge, Katharina --> katdro (Katharina Dröge) 0
+
+Ebner, Harald --> ebner_sha (Harald Ebner) 1
+
+Engelmeier, Michaela --> michaelaengel (Michaela Engelmeier) 1
+
+Ernst, Klaus --> edrossmann (Dr. Ernst Dieter Rossmann) 1
+Ernst, Klaus --> Burgbacher (Ernst Burgbacher) 0
+Ernst, Klaus --> ernst_klaus (Klaus Ernst) 1
+Ernst, Klaus --> PErnstberger (Petra Ernstberger) 1
+
+Ernstberger, Petra --> PErnstberger (Petra Ernstberger) 1
+
+Esken, Saskia --> EskenSaskia (Saskia Esken) 1
+
+Evers-Meyer, Karin --> KarinEversMeyer (Evers-Meyer) 1
+
+Fabritius, Dr. Bernd --> BerndFabritius (Dr. Bernd Fabritius) 1
+
+Feist, Dr. Thomas --> drthomasfeist (Dr. Thomas Feist) 0
+
+Ferner, Elke --> Elke_Ferner (Elke Ferner) 1
+
+Fischer, Axel E. --> Axel_Fischer (Axel Fischer) 0
+
+Fischer, Dirk --> Axel_Fischer (Axel Fischer) 0
+
+Flisek, Christian --> ChristianFlisek (Christian Flisek) 1
+
+Franke, Dr. Edgar --> FrankeEdgar (Edgar Franke) 1
+
+Freese, Ulrich --> UliFreese (Uli Freese) 0
+
+Friedrich, Dr. Hans-Peter --> FOstendorff (Friedrich Ostendorff) 0
+
+Fuchs, Dr. Michael --> drmfuchs (Dr. Michael Fuchs) 0
+
+Fuchtel, Hans-Joachim --> fuchtel (Hans-Joachim Fuchtel) 1
+
+Gabriel, Sigmar --> GabiHillerOhm (Gabriele Hiller-Ohm) 1
+Gabriel, Sigmar --> GabiKatzmarek (Gabriele Katzmarek) 0
+Gabriel, Sigmar --> sigmargabriel (Sigmar Gabriel) 1
+
+Gebhart, Dr. Thomas --> thomasgebhart (Thomas Gebhart) 1
+
+Gehrcke, Wolfgang --> WolfgangGehrcke (Wolfgang Gehrcke) 0
+
+Gehring, Kai --> KaiGehring (Kai Gehring) 1
+
+Gohlke, Nicole --> NicoleGohlke (Nicole Gohlke) 1
+
+Golze, Diana --> GolzeMdB (Diana Golze) 0
+
+Göring-Eckardt, Katrin --> GoeringEckardt (Katrin Göring-Eckardt) 1
+
+Griese, Kerstin --> KerstinGriese (Kerstin Griese) 1
+
+Gröhe, Hermann --> groehe (Hermann Gröhe) 1
+
+Grosse-Brömer, Michael --> MGrosseBroemer (Michael Grosse-Brömer) 1
+
+Groth, Annette --> Annette_Groth (Annette Groth) 0
+
+Grund, Manfred --> manfred_grund (Manfred Grund) 1
+
+Gundelach, Dr. Herlind --> HGundelach (Herlind Gundelach) 0
+
+Gutting, Olav --> olavgutting (Olav Gutting) 0
+
+Gysi, Dr. Gregor --> GregorGysi (Dr. Gregor Gysi) 1
+
+Hahn, Dr. André --> hahnflo (Florian Hahn) 1
+
+Hahn, Florian --> hahnflo (Florian Hahn) 1
+
+Hakverdi, Metin --> MetinHakverdi (Metin Hakverdi) 0
+
+Hänsel, Heike --> HeikeHaensel (Heike Hänsel) 1
+
+Harbarth, Dr. Stephan --> stephanharbarth (Dr. Stephan Harbarth) 1
+
+Hardt, Jürgen --> juergenhardt (Jürgen Hardt) 1
+
+Hartmann, Michael --> HartmannMdB (Michael Hartmann) 1
+Hartmann, Michael --> sebast_hartmann (Sebastian Hartmann) 1
+
+Hartmann, Sebastian --> HartmannMdB (Michael Hartmann) 1
+Hartmann, Sebastian --> sebast_hartmann (Sebastian Hartmann) 1
+
+Haßelmann, Britta --> BriHasselmann (Britta Haßelmann) 1
+
+Hauer, Matthias --> MatthiasHauer (Matthias Hauer) 0
+
+Hauptmann, Mark --> MarkHauptmann (Mark Hauptmann) 0
+
+Heider, Dr. Matthias --> MatthiasHeider (Dr. Matthias Heider) 0
+
+Heil, Hubertus --> hubertus_heil (Hubertus Heil) 1
+Heil, Hubertus --> MechthildHeil (Mechthild Heil) 1
+
+Heil, Mechthild --> hubertus_heil (Hubertus Heil) 1
+Heil, Mechthild --> MechthildHeil (Mechthild Heil) 1
+
+Hein, Dr. Rosemarie --> RosemarieHein (Dr. Rosemarie Hein) 0
+Hein, Dr. Rosemarie --> FrankHeinrich (Frank Heinrich) 1
+Hein, Dr. Rosemarie --> heinzpaula (Heinz Paula) 1
+Hein, Dr. Rosemarie --> HeinenUlla (Ursula Heinen-Esser) 1
+
+Heinrich, Frank --> FrankHeinrich (Frank Heinrich) 1
+
+Heinrich, Gabriela --> FrankHeinrich (Frank Heinrich) 1
+
+Held, Marcus --> marcus_held (Marcus Held) 0
+
+Hiller-Ohm, Gabriele --> GabiHillerOhm (Gabriele Hiller-Ohm) 1
+
+Hinz, Petra --> PriskaHinz (Priska Hinz) 1
+
+Hinz, Priska --> PriskaHinz (Priska Hinz) 1
+
+Hirte, Christian --> ChristianHirte (Christian Hirte) 1
+Hirte, Christian --> HHirte (Heribert Hirte) 0
+
+Hirte, Prof. Dr. iur. Heribert --> ChristianHirte (Christian Hirte) 1
+Hirte, Prof. Dr. iur. Heribert --> HHirte (Heribert Hirte) 0
+
+Hitschler, Thomas --> ThomasHitschler (Thomas Hitschler) 0
+
+Högl, Dr. Eva --> EvaHoegl (Dr. Eva Högl) 1
+
+Höhn, Bärbel --> BaerbelHoehn (Bärbel Höhn) 1
+
+Hornhues, Bettina --> BettinaHornhues (Bettina Hornhues) 0
+
+Huber, Karl-Heinz --> hubertus_heil (Hubertus Heil) 1
+Huber, Karl-Heinz --> charlesmhuber49 (Karl-Keinz Huber) 0
+
+Hunko, Andrej --> AndrejHunko (Andrej Hunko) 0
+
+Ilgen, Matthias --> MatthiasIlgen (Matthias Ilgen) 0
+
+Janecek, Dieter --> DJanecek (Dieter Janecek) 1
+
+Jarzombek, Thomas --> tj_tweets (Thomas Jarzombek) 1
+
+Jung, Andreas --> jungfj (Dr. Franz Josef Jung) 0
+Jung, Andreas --> XaverJung (Xaver Jung) 0
+
+Jung, Dr. Franz Josef --> jungfj (Dr. Franz Josef Jung) 0
+Jung, Dr. Franz Josef --> XaverJung (Xaver Jung) 0
+
+Jung, Xaver --> jungfj (Dr. Franz Josef Jung) 0
+Jung, Xaver --> XaverJung (Xaver Jung) 0
+
+Kaczmarek, Oliver --> KaczmarekOliver (Oliver Kaczmarek) 1
+
+Kahrs, Johannes --> kahrs (Johannes Kahrs) 1
+
+Kampmann, Christina --> c_kampmann (Christina Kampmann) 1
+
+Kanitz, Steffen --> steffenkanitz (Steffen Kanitz) 0
+
+Karawanskij, Susanna --> SuzaKarawanskij (Susanna Karawanskij) 0
+
+Karl, Alois --> charlesmhuber49 (Karl-Keinz Huber) 0
+
+Kaster, Bernhard --> BernhardKaster (Bernhard Kaster) 0
+
+Katzmarek, Gabriele --> GabiKatzmarek (Gabriele Katzmarek) 0
+
+Kaufmann, Dr. Stefan --> StefanKaufmann (Dr. Stefan Kaufmann) 1
+
+Kekeritz, Uwe --> UweKekeritz (Uwe Kekeritz) 0
+
+Kelber, Ulrich --> UlrichKelber (Ulrich Kelber) 1
+
+Kiesewetter, Roderich --> RKiesewetter (Roderich Kiesewetter) 1
+
+Kindler, Sven-Christian --> sven_kindler (Sven Kindler) 1
+
+Kipping, Katja --> katjakipping (Katja Kipping) 1
+
+Kiziltepe, Cansel --> CanselK (Cansel Kiziltepe) 1
+
+Klein, Volkmar --> MariaKlSchmeink (Maria Klein-Schmeink) 1
+Klein, Volkmar --> VolkmarKlein (Volkmar Klein) 1
+
+Klein-Schmeink, Maria --> MariaKlSchmeink (Maria Klein-Schmeink) 1
+Klein-Schmeink, Maria --> VolkmarKlein (Volkmar Klein) 1
+
+Klimke, Jürgen --> Klimke_CDU (Jürgen Klimke) 0
+
+Klingbeil, Lars --> larsklingbeil (Lars Klingbeil) 1
+
+Koenigs, Tom --> KoenigsGruen (Tom Koenigs) 1
+
+Koeppen, Jens --> JensKoeppen (Jens Koeppen) 1
+
+Kofler, Dr. Bärbel --> BaerbelKofler (Bärbel Kofler) 1
+
+Kolbe, Daniela --> danielakolbe (Daniela Kolbe) 1
+
+Körber, Carsten --> sebastian0505 (Sebastian Körber) 1
+
+Koschyk, Hartmut --> koschyk (Hartmut Koschyk) 0
+
+Kotting-Uhl, Sylvia --> BabettesChefin (Sylvia Kotting-Uhl) 1
+
+Krellmann, Jutta --> JuttaKrellmann (Jutta Krellmann) 0
+
+Kretschmer, Michael --> kretsc (Michael Kretschmer) 1
+
+Krings, Dr. Günter --> guenterkrings (Günter Krings) 0
+
+Krischer, Oliver --> Oliver_Krischer (Oliver Krischer) 1
+
+Kruse, Rüdiger --> RuedigerKruse (Rüdiger Kruse) 1
+
+Kühn, Christian --> ChrisKuehn_mdb (Chris Kühn) 0
+Kühn, Christian --> Dr_Roy_Kuehne (Dr. Roy Kühne) 0
+Kühn, Christian --> stephankuehn (Stephan Kühn) 0
+
+Kühn, Stephan --> ChrisKuehn_mdb (Chris Kühn) 0
+Kühn, Stephan --> Dr_Roy_Kuehne (Dr. Roy Kühne) 0
+Kühn, Stephan --> stephankuehn (Stephan Kühn) 0
+
+Kühn-Mengel, Helga --> ChrisKuehn_mdb (Chris Kühn) 0
+Kühn-Mengel, Helga --> Dr_Roy_Kuehne (Dr. Roy Kühne) 0
+Kühn-Mengel, Helga --> stephankuehn (Stephan Kühn) 0
+
+Kühne, Dr. Roy --> Dr_Roy_Kuehne (Dr. Roy Kühne) 0
+
+Künast, Renate --> RenateKuenast (Renate Künast) 1
+
+Kurth, Markus --> markuskurthmdb (Markus Kurth) 1
+Kurth, Markus --> Patrick_Kurth (Patrick Kurth) 1
+Kurth, Markus --> undinekurth (Undine Kurth) 1
+
+Lange, Christian --> LangeMdB (Christian Lange) 1
+
+Lange, Ulrich --> LangeMdB (Christian Lange) 1
+
+Lay, Caren --> CarenLay (Caren Lay) 1
+
+Lazar, Monika --> monikalazar (Monika Lazar) 1
+
+Leidig, Sabine --> SabineLeidig (Sabine Leidig) 1
+
+Leikert, Dr. Katja --> KLeikert (Katja Isabel Leikert) 0
+
+Lemke, Steffi --> SteffiLemke (Steffi Lemke) 1
+
+Lemme, Steffen-Claudio --> SCLemme (Steffen-Claudio Lemme) 1
+
+Lengsfeld, Dr. Philipp --> PLengsfeld (Dr. Philipp Lengsfeld) 1
+
+Leutert, Michael --> MichaelLeutert (Michael Leutert) 1
+
+Liebich, Stefan --> berlinliebich (Stefan Liebich) 1
+
+Lietz, Matthias --> MatthiasLietz (Matthias Lietz) 0
+
+Lindholz, Andrea --> AndreaLindholz (Andrea Lindholz) 0
+
+Lindner, Dr. Tobias --> c_lindner (Christian Lindner) 1
+Lindner, Dr. Tobias --> martin_lindner (Dr. Martin Lindner) 1
+Lindner, Dr. Tobias --> tobiaslindner (Dr. Tobias Lindner) 1
+
+Lischka, Burkhard --> LischkaB (Burkhard Lischka) 1
+
+Lötzsch, Dr. Gesine --> Team_GLoetzsch (Dr. Gesine Lötzsch) 0
+Lötzsch, Dr. Gesine --> Team_GLoetzsch (Dr. Gesine Lötzsch) 0
+
+Maisch, Nicole --> NicoleMaisch (Nicole Maisch) 1
+
+Malecha-Nissen, Dr. Birgit --> malechanissen (Birgit Malecha-Nissen) 0
+
+Mattfeldt, Andreas --> AMattfeldt (Andreas Mattfeldt) 0
+
+Mattheis, Hilde --> HildeMattheis (Hilde Mattheis) 1
+
+Meier, Reiner --> horstmeierhofer (Horst Meierhofer) 0
+
+Meister, Dr. Michael --> meister_schafft (Dr. Michael Meister) 1
+
+Meiwald, Peter --> PeterMeiwald (Peter Meiwald) 1
+
+Merkel, Dr. Angela --> petramerkel (Petra Merkel) 1
+
+Metzler, Jan --> JanMetzler (Jan Metzler) 0
+
+Mihalic, Irene --> IreneMihalic (Irene Mihalic) 1
+
+Mißfelder, Philipp --> Missfelder (Philipp Mißfelder) 1
+
+Möhring, Cornelia --> Conni_Moehring (Cornelia Möhring) 0
+
+Möring, Karsten --> KarstenMoering (Karsten Möring) 0
+
+Mortler, Marlene --> marlenemortler (Marlene Mortler) 1
+
+Movassat, Niema --> NiemaMovassat (Niema Movassat) 1
+
+Müller, Bettina --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Bettina --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Bettina --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Bettina --> petramuellerFDP (Petra Müller) 1
+Müller, Bettina --> smuellermdb (Stefan Müller) 1
+
+Müller, Carsten --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Carsten --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Carsten --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Carsten --> petramuellerFDP (Petra Müller) 1
+Müller, Carsten --> smuellermdb (Stefan Müller) 1
+
+Müller, Detlef --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Detlef --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Detlef --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Detlef --> petramuellerFDP (Petra Müller) 1
+Müller, Detlef --> smuellermdb (Stefan Müller) 1
+
+Müller, Dr. Gerd --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Dr. Gerd --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Dr. Gerd --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Dr. Gerd --> petramuellerFDP (Petra Müller) 1
+Müller, Dr. Gerd --> smuellermdb (Stefan Müller) 1
+
+Müller, Norbert --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Norbert --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Norbert --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Norbert --> petramuellerFDP (Petra Müller) 1
+Müller, Norbert --> smuellermdb (Stefan Müller) 1
+
+Müller, Stefan --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller, Stefan --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller, Stefan --> Kerstin_Mueller (Kerstin Müller) 1
+Müller, Stefan --> petramuellerFDP (Petra Müller) 1
+Müller, Stefan --> smuellermdb (Stefan Müller) 1
+
+Müller-Gemmeke, Beate --> GrueneBeate (Beate Müller-Gemmeke) 1
+Müller-Gemmeke, Beate --> muellersoenksen (Burkhardt Müller-Sönksen) 1
+Müller-Gemmeke, Beate --> Kerstin_Mueller (Kerstin Müller) 1
+Müller-Gemmeke, Beate --> petramuellerFDP (Petra Müller) 1
+Müller-Gemmeke, Beate --> smuellermdb (Stefan Müller) 1
+
+Mutlu, Özcan --> OezcanMutlu (Özcan Mutlu) 1
+
+Neu, Dr. Alexander S. --> AlexanderSNeu (Alexander S. Neu) 0
+
+Nick, Dr. Andreas --> DrAndreasNick (Andreas Nick) 1
+
+Nissen, Ulli --> malechanissen (Birgit Malecha-Nissen) 0
+Nissen, Ulli --> UlliNissen (Ulli Nissen) 0
+
+Nord, Thomas --> NordMdb (Thomas Nord) 0
+
+Notz, Dr. Konstantin von --> KonstantinNotz (Dr. Konstantin von Notz) 1
+
+Nouripour, Omid --> nouripour (Omid Nouripour) 1
+
+Nowak, Helmut --> Helmut_Nowak (Helmut Fedor Nowak) 0
+
+Nüßlein, Dr. iur. Georg --> georgnuesslein (Dr. iur. Georg Nüßlein) 0
+
+Oellers, Wilfried --> WilfriedOellers (Wilfried Oellers) 0
+
+Oppermann, Thomas --> ThomasOppermann (Thomas Oppermann) 1
+
+Ostendorff, Friedrich --> FOstendorff (Friedrich Ostendorff) 0
+
+Özdemir, Cem --> oezdemir_spd (Mahmut Özdemir) 0
+
+Özdemir, Mahmut --> oezdemir_spd (Mahmut Özdemir) 0
+
+Pantel, Sylvia --> SylviaPantel (Sylvia Pantel) 0
+
+Pau, Petra --> heinzpaula (Heinz Paula) 1
+Pau, Petra --> lisapaus (Lisa Paus) 1
+Pau, Petra --> paul_schaefer (Paul Schäfer) 0
+Pau, Petra --> PetraPauMaHe (Petra Pau) 1
+
+Paus, Lisa --> lisapaus (Lisa Paus) 1
+
+Petzold, Harald --> HPetzold (Harald Alfred Petzold) 0
+
+Petzold, Ulrich --> HPetzold (Harald Alfred Petzold) 0
+
+Pfeiffer, Dr. Joachim --> SibyllePfeiffer (Sibylle Pfeiffer) 1
+
+Pfeiffer, Sibylle --> SibyllePfeiffer (Sibylle Pfeiffer) 1
+
+Pilger, Detlev --> DetlevPilger (Detlev Pilger) 1
+
+Post, Achim --> Achim_P (Achim Post) 0
+Post, Achim --> FlorianPost (Florian Post) 0
+
+Post, Florian --> Achim_P (Achim Post) 0
+Post, Florian --> FlorianPost (Florian Post) 0
+
+Pothmer, Brigitte --> BrigittePothmer (Brigitte Pothmer) 1
+
+Priesmeier, Dr. Wilhelm --> Dr_W_Priesmeier (Dr. Wilhelm Priesmeier) 0
+
+Pronold, Florian --> FlorianPronold (Florian Pronold) 1
+
+Rabanus, Martin --> MartinRabanus (Martin Rabanus) 1
+
+Radomski, Kerstin --> KerstinRadomski (Kerstin Radomski) 0
+
+Rainer, Alois --> rainerarnold (Rainer Arnold) 1
+Rainer, Alois --> rainerspiering (Rainer Spiering) 0
+Rainer, Alois --> rainerstinner (Rainer Stinner) 1
+
+Rawert, Mechthild --> MechthildRawert (Mechthild Rawert) 1
+
+Rebmann, Stefan --> RebmannMdB (Stefan Rebmann) 1
+
+Rehberg, Eckhardt --> EckhardtRehberg (Eckhardt Rehberg) 0
+
+Reiche, Katherina --> g_reichenbach (Gerold Reichenbach) 1
+
+Reichenbach, Gerold --> g_reichenbach (Gerold Reichenbach) 1
+
+Renner, Martina --> MartinaRenner (Martina Renner) 0
+
+Rimkus, Andreas --> SPDDuesseldorf (Andreas Rimkus) 0
+Rimkus, Andreas --> SPDuesseldorf (Andreas Rimkus) 0
+
+Rix, Sönke --> SoenkeRix (Soenke Rix) 1
+
+Rohde, Dennis --> DennisRohde (Dennis Rohde) 1
+
+Rosemann, Dr. Martin --> MartinRosemann (Dr. Martin Rosemann) 0
+
+Röspel, René --> reneroespel (René Röspel) 1
+
+Rossmann, Dr. Ernst Dieter --> edrossmann (Dr. Ernst Dieter Rossmann) 1
+
+Rößner, Tabea --> TabeaRoessner (Tabea Rößner) 1
+
+Roth, Claudia --> MiRo_SPD (Michael Roth) 1
+
+Roth, Michael --> MiRo_SPD (Michael Roth) 1
+
+Rüddel, Erwin --> Erwin_Rueddel (Erwin Rüddel) 1
+
+Rüffer, Corinna --> crueffer (Corinna Rüffer) 0
+
+Rüthrich, Susann --> SusannRuethrich (Susann Rüthrich) 0
+
+Sarrazin, Manuel --> ManuelSarrazin (Manuel Sarrazin) 1
+
+Sawade, Annette --> AnnetteSawade (Annette Sawade) 1
+
+Schäfer, Anita --> paul_schaefer (Paul Schäfer) 0
+
+Schäfer, Axel --> paul_schaefer (Paul Schäfer) 0
+
+Schauws, Ulle --> ulle_schauws (Ulle Schauws) 1
+
+Scheuer, Andreas --> AndiScheuer (Dr. Andreas Scheuer) 1
+
+Schimke, Jana --> JanaSchimke (Jana Schimke) 0
+
+Schipanski, Tankred --> TSchipanski (Tankred Schipanski) 0
+
+Schlecht, Michael --> mschlecht (Michael Schlecht) 0
+
+Schmidt, Christian --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Christian --> silviaschmidt (Silvia Schmidt) 1
+
+Schmidt, Dagmar --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Dagmar --> silviaschmidt (Silvia Schmidt) 1
+
+Schmidt, Dr. Frithjof --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Dr. Frithjof --> silviaschmidt (Silvia Schmidt) 1
+
+Schmidt, Gabriele --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Gabriele --> silviaschmidt (Silvia Schmidt) 1
+
+Schmidt, Matthias --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Matthias --> silviaschmidt (Silvia Schmidt) 1
+
+Schmidt, Ulla --> dieschmidt (Dagmar Schmidt) 0
+Schmidt, Ulla --> silviaschmidt (Silvia Schmidt) 1
+
+Schneider, Carsten --> schneidercar (Carsten Schneider) 1
+Schneider, Carsten --> ulrich_hn (Ulrich Schneider) 0
+
+Schnieder, Patrick --> PSchnieder (Patrick Schnieder) 1
+
+Schön, Nadine --> NadineSchoen (Nadine Schön) 1
+
+Schröder, Dr. Kristina --> schroeder_k (Dr. Kristina Schröder) 1
+
+Schröder, Dr. Ole --> schroeder_k (Dr. Kristina Schröder) 1
+
+Schulz, Swen --> jimmyschulz (Jimmy Schulz) 1
+Schulz, Swen --> K_SA (Kordula Schulz-Asche) 1
+Schulz, Swen --> swenschulz (Swen Schulz) 1
+
+Schulz-Asche, Kordula --> jimmyschulz (Jimmy Schulz) 1
+Schulz-Asche, Kordula --> K_SA (Kordula Schulz-Asche) 1
+Schulz-Asche, Kordula --> swenschulz (Swen Schulz) 1
+
+Schummer, Uwe --> UweSchummer (Uwe Schummer) 1
+
+Schuster, Armin --> armin_schuster (Armin Schuster) 1
+
+Schwabe, Frank --> FrankSchwabe (Frank Schwabe) 1
+
+Schwartze, Stefan --> s_schwartze (Stefan Schwartze) 0
+
+Schwarz, Andreas --> schwarz_spd (Andreas Schwarz) 0
+Schwarz, Andreas --> Schwarz_MdB (Andreas Schwarz) 1
+Schwarz, Andreas --> TinaSchwarzer (Christina Schwarzer) 1
+Schwarz, Andreas --> rischwasu (Rita Schwarzelühr-Sutter) 1
+
+Schwarzelühr-Sutter, Rita --> rischwasu (Rita Schwarzelühr-Sutter) 1
+
+Schwarzer, Christina --> TinaSchwarzer (Christina Schwarzer) 1
+
+Sensburg, Prof. Dr. Patrick --> PatrickSensburg (Patrick Sensburg) 1
+
+Siebert, Bernd --> BerndSiebert (Bernd Siebert) 0
+
+Sieling, Dr. Carsten --> carstensieling (Dr. Carsten Sieling) 1
+
+Singhammer, Johannes --> JohannesSingham (Johannes Singhammer) 0
+
+Sitte, Dr. Petra --> Petra_Sitte_MdB (Dr. Petra Sitte) 1
+
+Sorge, Tino --> TinoSorge (Tino Sorge) 0
+
+Spahn, Jens --> jensspahn (Jens Spahn) 0
+
+Spiering, Rainer --> rainerspiering (Rainer Spiering) 0
+
+Stadler, Svenja --> maxstadler (Max Stadler) 0
+
+Steffel, Dr. Frank --> franksteffel (Dr. Frank Steffel) 1
+
+Steffen, Sonja --> SteffenBilger (Steffen Bilger) 1
+Steffen, Sonja --> DerRostocker (Steffen Bockhahn) 0
+Steffen, Sonja --> steffenkanitz (Steffen Kanitz) 0
+Steffen, Sonja --> SCLemme (Steffen-Claudio Lemme) 1
+
+Stein, Peter --> SteinbachErika (Erika Steinbach) 1
+Stein, Peter --> JoSteiniger (Johannes Eberhard Steiniger) 0
+Stein, Peter --> peersteinbrueck (Peer Steinbrück) 1
+Stein, Peter --> SteinekeCDU (Sebastian Steineke) 1
+
+Steinbach, Erika --> SteinbachErika (Erika Steinbach) 1
+
+Steinbrück, Peer --> peersteinbrueck (Peer Steinbrück) 1
+
+Steineke, Sebastian --> SteinekeCDU (Sebastian Steineke) 1
+
+Steiniger, Johannes --> JoSteiniger (Johannes Eberhard Steiniger) 0
+
+Stier, Dieter --> DieterStier (Dieter Stier) 0
+
+Storjohann, Gero --> gero_storjohann (Gero Storjohann) 0
+
+Strässer, Christoph --> ChStraesser (Christoph Strässer) 1
+
+Strengmann-Kuhn, Dr. Wolfgang --> W_SK (Dr. Wolfgang Strengmann-Kuhn) 1
+
+Ströbele, Hans-Christian --> MdB_Stroebele (Hans-Christian Ströbele) 1
+
+Tack, Kerstin --> kerstin_tack (Kerstin Tack) 1
+Tack, Kerstin --> KirstenTackmann (Kirsten Tackmann) 1
+
+Tackmann, Dr. Kirsten --> KirstenTackmann (Kirsten Tackmann) 1
+
+Tank, Azize --> TSchipanski (Tankred Schipanski) 0
+
+Tauber, Dr. Peter --> petertauber (Dr. Peter Tauber) 1
+
+Tausend, Claudia --> ctausend (Claudia Rosina Tausend) 0
+
+Terpe, Dr. Harald --> terpeundteam (Harald Terpe) 1
+
+Thews, Michael --> michael_thews (Michael Thews) 1
+
+Trittin, Jürgen --> JTrittin (Jürgen Trittin) 1
+
+Uhl, Dr. Hans-Peter --> BabettesChefin (Sylvia Kotting-Uhl) 1
+
+Ullrich, Dr. Volker --> VolkerUllrich (Volker Ullrich) 1
+
+Ulrich, Alexander --> UlrichKelber (Ulrich Kelber) 1
+Ulrich, Alexander --> ulrich_hn (Ulrich Schneider) 0
+
+Verlinden, Dr. Julia --> julia_verlinden (Julia Verlinden) 0
+
+Vogel, Volkmar --> johannesvogel (Johannes Vogel) 1
+
+Vogler, Kathrin --> voglerk (Kathrin Vogler) 0
+
+Vogt, Ute --> UteVogt (Ute Vogt) 1
+
+Volmering, Sven --> SvenVolmering (Sven Volmering) 1
+
+Wagenknecht, Dr. Sahra --> SWagenknecht (Sahra Wagenknecht) 1
+
+Wagner, Doris --> Arfst_Wagner (Arfst Wagner) 1
+Wagner, Doris --> DorisWagner_MdB (Doris Wagner) 1
+
+Walter-Rosenheimer, Beate --> BeateWaRo (Beate Walter-Rosenheimer) 0
+
+Wanderwitz, Marco --> wanderwitz (Marco Wanderwitz) 0
+
+Warken, Nina --> ninawarken (Nina Warken) 0
+
+Wawzyniak, Halina --> Halina_Waw (Halina Wawzyniak) 1
+
+Weber, Gabi --> GabiWeberSPD (Gabi Weber) 1
+
+Wegner, Kai --> kaiwegner (Kai Wegner) 1
+
+Weinberg, Harald --> HaraldWeinberg (Harald Weinberg) 0
+Weinberg, Harald --> MarcusWeinberg (Marcus Weinberg) 1
+
+Weinberg, Marcus --> HaraldWeinberg (Harald Weinberg) 0
+Weinberg, Marcus --> MarcusWeinberg (Marcus Weinberg) 1
+
+Weisgerber, Dr. Anja --> anjaweisgerber (Anja Weisgerber) 0
+
+Wellenreuther, Ingo --> Wellenreuther (Ingo Wellenreuther) 0
+
+Werner, Katrin --> Katrin_Werner (Katrin Werner) 0
+
+Wilms, Dr. Valerie --> WilmsVal (Dr. Valerie Wilms) 1
+
+Wöhrl, Dagmar G. --> DWoehrl (Dagmar Wöhrl) 1
+
+Wolff, Waltraud --> Hartfrid_Wolff (Hartfrid Wolff) 1
+Wolff, Waltraud --> waltraud_wolff (Waltraud Wolff) 1
+
+Zech, Tobias --> TobiasZech (Tobias Josef Zech) 0
+
+Ziegler, Dagmar --> ZieglerMdB (Dagmar Ziegler) 1
+
+Zimmer, Prof. Dr. Matthias --> JensZimmermann1 (Jens Zimmermann) 1
+Zimmer, Prof. Dr. Matthias --> matthiaszimmer (Prof. Dr. Matthias Zimmer) 0
+
+Zimmermann, Dr. Jens --> JensZimmermann1 (Jens Zimmermann) 1
+
+Zimmermann, Pia --> JensZimmermann1 (Jens Zimmermann) 1
+
+Zimmermann, Sabine --> JensZimmermann1 (Jens Zimmermann) 1
+

politiker-transform.R

@@ -0,0 +1,48 @@
+require(XML)
+require(stringr)
+
+setwd("~/Dokumente/Uni/Aktuell/BA-Arbeit/uni-ba-issuecomp")
+
+mdb <- readLines("politiker2.txt")
+
+mdb_names <- unlist(str_extract_all(mdb, ".+?,.+?,"))
+mdb_names <- str_replace_all(mdb_names, ",$", "")
+
+mdb_party <- unlist(str_extract_all(mdb, "[[:alnum:] /]+$"))
+mdb_party <- str_replace_all(mdb_party, "^ ", "")
+
+mdb_party <- str_replace_all(mdb_party, "CDU/CSU", "cducsu")
+mdb_party <- str_replace_all(mdb_party, "Bündnis 90/Die Grünen", "gruene")
+mdb_party <- str_replace_all(mdb_party, "Die Linke", "linke")
+mdb_party <- str_replace_all(mdb_party, "SPD", "spd")
+
+mdb_list <- data.frame(name = mdb_names, party = mdb_party)
+
+write.csv(mdb_list, "politiker2.csv", row.names=FALSE)
+
+############
+
+list1 <- read.csv("politiker2.csv")
+list2 <- read.csv("politiker.csv")
+
+for(i in 1:nrow(list1)) {
+  detect <- FALSE
+  name1 <- as.character(list1$name[i])
+  lastname1 <- str_extract(name1, "\\w+")
+  
+  for(a in 1:nrow(list2)) {
+    name2 <- as.character(list2$name[a])
+    
+    if(str_detect(name2, lastname1)) {
+      detect <- TRUE
+      acc <- as.character(list2$screenname[a])
+      verif <- as.character(list2$verified[a])
+      result <- str_c(name1," --> ",acc," (",name2,") ",verif)
+      write(result, "merge.txt", append = TRUE)
+    }
+  }
+  if(detect) {
+    write("", "merge.txt", append = TRUE)
+  }
+  
+}

politiker.csv

@@ -0,0 +1,370 @@
+name,screenname,verified
+Achim Post,Achim_P,0
+Agnes Krumwiede,AgnesKrumwiede,1
+Agnieszka Brugger,agnieszka_mdb,1
+Alexander S. Neu,AlexanderSNeu,0
+Andrea Lindholz,AndreaLindholz,0
+Andreas Mattfeldt,AMattfeldt,0
+Andreas Nick,DrAndreasNick,1
+Andreas Rimkus,SPDDuesseldorf,0
+Andreas Rimkus,SPDuesseldorf,0
+Andreas Schwarz,schwarz_spd,0
+Andreas Schwarz,Schwarz_MdB,1
+Andrej Hunko,AndrejHunko,0
+Anja Weisgerber,anjaweisgerber,0
+Annalena Baerbock,ABaerbock,1
+Annette Groth,Annette_Groth,0
+Annette Sawade,AnnetteSawade,1
+Arfst Wagner,Arfst_Wagner,1
+Armin Schuster,armin_schuster,1
+Astrid Klug,AstridKlug,1
+Axel Fischer,Axel_Fischer,0
+Aydan Özoguz,oezoguz,1
+Bärbel Bas,baerbelbas,1
+Bärbel Höhn,BaerbelHoehn,1
+Bärbel Kofler,BaerbelKofler,1
+Beate Müller-Gemmeke,GrueneBeate,1
+Beate Walter-Rosenheimer,BeateWaRo,0
+Bernd Siebert,BerndSiebert,0
+Bernhard Kaster,BernhardKaster,0
+Bettina Hornhues,BettinaHornhues,0
+Biggi Bender,BiggiBender,1
+Birgit Homburger,birgithomburger,1
+Birgit Malecha-Nissen,malechanissen,0
+Björn Sänger,bjoernsaenger,1
+Brigitte Pothmer,BrigittePothmer,1
+brigitte zypries,brigittezypries,1
+Britta Haßelmann,BriHasselmann,1
+Burkhard Lischka,LischkaB,1
+Burkhardt Müller-Sönksen,muellersoenksen,1
+Cansel Kiziltepe,CanselK,1
+Caren Lay,CarenLay,1
+Carsten Schneider,schneidercar,1
+CDU/CSU,cducsubt,1
+Chris Kühn,ChrisKuehn_mdb,0
+Christian Flisek,ChristianFlisek,1
+Christian Hirte,ChristianHirte,1
+Christian Lange,LangeMdB,1
+Christian Lindner,c_lindner,1
+Christina Kampmann,c_kampmann,1
+Christina Schwarzer,TinaSchwarzer,1
+Christine Aschenberg-Dugnus,cad59,1
+Christine Buchholz,ch_buchholz,1
+Christoph Schnurr,ch_schnurr,1
+Christoph Strässer,ChStraesser,1
+Claudia Rosina Tausend,ctausend,0
+Corinna Rüffer,crueffer,0
+Cornelia Möhring,Conni_Moehring,0
+Cornelia Pieper,CorneliaPieper,1
+Dagmar Schmidt,dieschmidt,0
+Dagmar Wöhrl,DWoehrl,1
+Dagmar Ziegler,ZieglerMdB,1
+Daniel Bahr,danielbahr,1
+Daniela Kolbe,danielakolbe,1
+Dennis Rohde,DennisRohde,1
+Detlev Pilger,DetlevPilger,1
+Diana Golze,GolzeMdB,0
+Dieter Janecek,DJanecek,1
+Dieter Stier,DieterStier,0
+Dietmar Bartsch,DietmarBartsch,0
+Doris Wagner,DorisWagner_MdB,1
+Dorothee Bär,DoroBaer,1
+Dorothée Menzner,DorotheeMenzner,0
+Dr. Andreas Scheuer,AndiScheuer,1
+Dr. Bernd Fabritius,BerndFabritius,1
+Dr. Birgit Reinemund,BirgitReinemund,1
+Dr. Carsten Sieling,carstensieling,1
+Dr. Dagmar Enkelmann,dagmarenkelmann,0
+Dr. Diether Dehm,Diether_Dehm,0
+Dr. Erik Schweickert,ErikSchweickert,1
+Dr. Ernst Dieter Rossmann,edrossmann,1
+Dr. Eva Högl,EvaHoegl,1
+Dr. Florian Toncar,florian_toncar,1
+Dr. Frank Steffel,franksteffel,1
+Dr. Franz Josef Jung,jungfj,0
+Dr. Gesine Lötzsch,Team_GLoetzsch,0
+Dr. Gesine Lötzsch,Team_GLoetzsch,0
+Dr. Gregor Gysi,GregorGysi,1
+Dr. Helge Braun,HBraun,1
+Dr. Hermann E. Ott,Hermann_Ott,1
+Dr. Hermann Otto Solms,solms,1
+Dr. iur. Georg Nüßlein,georgnuesslein,0
+Dr. Konstantin von Notz,KonstantinNotz,1
+Dr. Kristina Schröder,schroeder_k,1
+Dr. Lutz Knopek,LutzKnopek,1
+Dr. Martin Lindner,martin_lindner,1
+Dr. Martin Rosemann,MartinRosemann,0
+Dr. Matthias Heider,MatthiasHeider,0
+Dr. Michael Fuchs,drmfuchs,0
+Dr. Michael Meister,meister_schafft,1
+Dr. Peter Tauber,petertauber,1
+Dr. Petra Sitte,Petra_Sitte_MdB,1
+Dr. Philipp Lengsfeld,PLengsfeld,1
+Dr. Rosemarie Hein,RosemarieHein,0
+Dr. Roy Kühne,Dr_Roy_Kuehne,0
+Dr. Stefan Kaufmann,StefanKaufmann,1
+Dr. Stephan Harbarth,stephanharbarth,1
+Dr. Thomas Feist,drthomasfeist,0
+Dr. Tobias Lindner,tobiaslindner,1
+Dr. Valerie Wilms,WilmsVal,1
+Dr. Volker Wissing,Wissing,1
+Dr. Wilhelm Priesmeier,Dr_W_Priesmeier,0
+Dr. Wolfgang Strengmann-Kuhn,W_SK,1
+Eckart von Klaeden,evonklaeden,0
+Eckhardt Rehberg,EckhardtRehberg,0
+Edgar Franke,FrankeEdgar,1
+Ekin Deligöz,ekindeligoez,1
+Elke Ferner,Elke_Ferner,1
+Erika Steinbach,SteinbachErika,1
+Ernst Burgbacher,Burgbacher,0
+Erwin Rüddel,Erwin_Rueddel,1
+Evers-Meyer,KarinEversMeyer,1
+FDP-Fraktion,FDP_Fraktion,1
+Florian Bernschneider,fbernschneider,1
+Florian Hahn,hahnflo,1
+Florian Post,FlorianPost,0
+Florian Pronold,FlorianPronold,1
+Frank Heinrich,FrankHeinrich,1
+Frank Schäffler,f_schaeffler,1
+Frank Schwabe,FrankSchwabe,1
+Franziska Brantner,fbrantner,0
+Friedrich Ostendorff,FOstendorff,0
+Gabi Weber,GabiWeberSPD,1
+Gabriele Hiller-Ohm,GabiHillerOhm,1
+Gabriele Katzmarek,GabiKatzmarek,0
+Gero Storjohann,gero_storjohann,0
+Gerold Reichenbach,g_reichenbach,1
+Gisela Piltz,Gisela_Piltz,1
+Grüne im Bundestag,GrueneBundestag,1
+Gudrun Kopp,gudrunkopp,1
+Günter Gloser,guentergloser,1
+Günter Krings,guenterkrings,0
+Halina Wawzyniak,Halina_Waw,1
+Hans-Christian Ströbele,MdB_Stroebele,1
+Hans-Joachim Fuchtel,fuchtel,1
+Hans-Joachim Otto,hansjoachimotto,1
+Hans-Josef Fell,HJFell,1
+Harald Alfred Petzold,HPetzold,0
+Harald Ebner,ebner_sha,1
+Harald Koch,HaraldKoch5,0
+Harald Terpe,terpeundteam,1
+Harald Weinberg,HaraldWeinberg,0
+Hartfrid Wolff,Hartfrid_Wolff,1
+Hartmut Koschyk,koschyk,0
+Heidemarie Wieczorek-Zeul,wieczorekzeul,1
+Heidrun Dittrich,HeidrunDittrich,0
+Heike Brehmer,HeikeBrehmerMdB,0
+Heike Hänsel,HeikeHaensel,1
+Heinz Paula,heinzpaula,1
+Helmut Fedor Nowak,Helmut_Nowak,0
+Herbert Behrens,HerbertBehrens,0
+Heribert Hirte,HHirte,0
+Herlind Gundelach,HGundelach,0
+Hermann Gröhe,groehe,1
+Hilde Mattheis,HildeMattheis,1
+Horst Meierhofer,horstmeierhofer,0
+Hubertus Heil,hubertus_heil,1
+Ingo Wellenreuther,Wellenreuther,0
+Ingrid Hönlinger,Hoenlinger,0
+Ingrid Nestle,Ingrid_Nestle,1
+Ingrid Remmers,Ingrid_Remmers,0
+Irene Mihalic,IreneMihalic,1
+Jan Metzler,JanMetzler,0
+Jan Mücke,jan_muecke,1
+Jan van Aken,jan_vanaken,0
+Jana Schimke,JanaSchimke,0
+Jens Koeppen,JensKoeppen,1
+Jens Petermann,Jens_Petermann,0
+Jens Spahn,jensspahn,0
+Jens Zimmermann,JensZimmermann1,1
+Jimmy Schulz,jimmyschulz,1
+Johannes Eberhard Steiniger,JoSteiniger,0
+Johannes Kahrs,kahrs,1
+Johannes Singhammer,JohannesSingham,0
+Johannes Vogel,johannesvogel,1
+Jörg van Essen,joergvanessen,1
+Josef Winkler,JosefWinkler,1
+Julia Bartz,JuliaBartzMdB,1
+Julia Verlinden,julia_verlinden,0
+Jürgen Hardt,juergenhardt,1
+Jürgen Klimke,Klimke_CDU,0
+Jürgen Trittin,JTrittin,1
+Jutta Krellmann,JuttaKrellmann,0
+Kai Gehring,KaiGehring,1
+Kai Wegner,kaiwegner,1
+Karamba Diaby,KarambaDiaby,1
+Karin Binder,karinbinder,0
+Karl-Keinz Huber,charlesmhuber49,0
+Karsten Möring,KarstenMoering,0
+Katharina Dröge,katdro,0
+Kathrin Vogler,voglerk,0
+Katja Dörner,katjadoerner,1
+Katja Isabel Leikert,KLeikert,0
+Katja Kipping,katjakipping,1
+Katrin Albsteiger,,1
+Katrin Göring-Eckardt,GoeringEckardt,1
+Katrin Werner,Katrin_Werner,0
+Kerstin Andreae,KerstinAndreae,1
+Kerstin Griese,KerstinGriese,1
+Kerstin Müller,Kerstin_Mueller,1
+Kerstin Radomski,KerstinRadomski,0
+Kerstin Tack,kerstin_tack,1
+Kirsten Tackmann,KirstenTackmann,1
+Klaus Ernst,ernst_klaus,1
+Kordula Schulz-Asche,K_SA,1
+Lars Castellucci,larscastellucci,1
+Lars Klingbeil,larsklingbeil,1
+Lars Lindemann,LFLindemann,1
+Linksfraktion,Linksfraktion,1
+Lisa Paus,lisapaus,1
+Luise Amtsberg,Luise_Amtsberg,0
+Mahmut Özdemir,oezdemir_spd,0
+Maik Beermann,MaikBeermann,1
+Manfred Behrens,Manfredbehrens,1
+Manfred Grund,manfred_grund,1
+Manfred Todtenhausen,MTodtenhausen,0
+Manuel Höferlin,ManuelHoeferlin,1
+Manuel Sarrazin,ManuelSarrazin,1
+Marco Bülow,marcobuelow,1
+Marco Buschmann,MarcoBuschmann,1
+Marco Wanderwitz,wanderwitz,0
+Marcus Held,marcus_held,0
+Marcus Weinberg,MarcusWeinberg,1
+Maria Klein-Schmeink,MariaKlSchmeink,1
+Marieluise Beck,MarieluiseBeck,0
+Mark Hauptmann,MarkHauptmann,0
+Markus Kurth,markuskurthmdb,1
+Marlene Mortler,marlenemortler,1
+Martin Rabanus,MartinRabanus,1
+Martina Renner,MartinaRenner,0
+Matthias Hauer,MatthiasHauer,0
+Matthias Ilgen,MatthiasIlgen,0
+Matthias Lietz,MatthiasLietz,0
+Matthias W. Birkwald,MWBirkwald,1
+Max Stadler,maxstadler,0
+Mechthild Heil,MechthildHeil,1
+Mechthild Rawert,MechthildRawert,1
+Memet Kilic,Memet_Kilic,1
+Metin Hakverdi,MetinHakverdi,0
+Michael Grosse-Brömer,MGrosseBroemer,1
+Michael Hartmann,HartmannMdB,1
+Michael Kretschmer,kretsc,1
+Michael Leutert,MichaelLeutert,1
+Michael Roth,MiRo_SPD,1
+Michael Schlecht,mschlecht,0
+Michael Thews,michael_thews,1
+Michaela Engelmeier,michaelaengel,1
+Monika Lazar,monikalazar,1
+Nadine Schön,NadineSchoen,1
+Nicole Bracht-Bendt,brachtbendt,1
+Nicole Gohlke,NicoleGohlke,1
+Nicole Maisch,NicoleMaisch,1
+Niels Annen,NielsAnnen,1
+Niema Movassat,NiemaMovassat,1
+Nina Warken,ninawarken,0
+Olav Gutting,olavgutting,0
+Oliver Kaczmarek,KaczmarekOliver,1
+Oliver Krischer,Oliver_Krischer,1
+Oliver Luksic,OlliLuksic,1
+Omid Nouripour,nouripour,1
+Otto Fricke,Otto_Fricke,1
+Özcan Mutlu,OezcanMutlu,1
+Patrick Döring,patrickdoering,1
+Patrick Kurth,Patrick_Kurth,1
+Patrick Schnieder,PSchnieder,1
+Patrick Sensburg,PatrickSensburg,1
+Paul Schäfer,paul_schaefer,0
+Peer Steinbrück,peersteinbrueck,1
+Peter Altmaier,peteraltmaier,1
+Peter Aumer,PeterAumer,0
+Peter Beyer,PeterbeyerCDU,0
+Peter Meiwald,PeterMeiwald,1
+Petra Ernstberger,PErnstberger,1
+Petra Merkel,petramerkel,1
+Petra Müller,petramuellerFDP,1
+Petra Pau,PetraPauMaHe,1
+Philipp Mißfelder,Missfelder,1
+Priska Hinz,PriskaHinz,1
+Prof. Dr. Matthias Zimmer,matthiaszimmer,0
+Rainer Arnold,rainerarnold,1
+Rainer Spiering,rainerspiering,0
+Rainer Stinner,rainerstinner,1
+Raju Sharma,sharma_ra,0
+Ralph Brinkhaus,rbrinkhaus,1
+Renate Künast,RenateKuenast,1
+René Röspel,reneroespel,1
+Rita Schwarzelühr-Sutter,rischwasu,1
+Roderich Kiesewetter,RKiesewetter,1
+Rüdiger Kruse,RuedigerKruse,1
+Ruprecht Polenz,RuprechtPolenz,1
+Sabine Bätzing,Sabine_Baetzing,1
+Sabine Leidig,SabineLeidig,1
+Sabine Leutheusser-Schnarrenberger,sls_bmj,1
+Sahra Wagenknecht,SWagenknecht,1
+Saskia Esken,EskenSaskia,1
+Sebastian Blumenthal,seb_blumenthal,1
+Sebastian Hartmann,sebast_hartmann,1
+Sebastian Körber,sebastian0505,1
+Sebastian Steineke,SteinekeCDU,1
+Serkan Tören,serkan_toeren,1
+Sevim Dagdelen,SevimDagdelen,0
+Sibylle Pfeiffer,SibyllePfeiffer,1
+Sigmar Gabriel,sigmargabriel,1
+Silvia Schmidt,silviaschmidt,1
+Soenke Rix,SoenkeRix,1
+Sören Bartol,soerenbartol,1
+SPD im Bundestag,spdbt,1
+Stefan Liebich,berlinliebich,1
+Stefan Müller,smuellermdb,1
+Stefan Rebmann,RebmannMdB,1
+Stefan Schwartze,s_schwartze,0
+Steffen Bilger,SteffenBilger,1
+Steffen Bockhahn,DerRostocker,0
+Steffen Kanitz,steffenkanitz,0
+Steffen-Claudio Lemme,SCLemme,1
+Steffi Lemke,SteffiLemke,1
+Stephan Kühn,stephankuehn,0
+Stephan Thomae,StephanThomae,1
+Susann Rüthrich,SusannRuethrich,0
+Susanna Karawanskij,SuzaKarawanskij,0
+Sven Kindler,sven_kindler,1
+Sven Volmering,SvenVolmering,1
+Swen Schulz,swenschulz,1
+Sylvia Canel,SylviaCanel,1
+Sylvia Kotting-Uhl,BabettesChefin,1
+Sylvia Pantel,SylviaPantel,0
+Tabea Rößner,TabeaRoessner,1
+Tankred Schipanski,TSchipanski,0
+Thilo Hoppe,ThiloHoppeMdB,0
+Thomas Gebhart,thomasgebhart,1
+Thomas Hitschler,ThomasHitschler,0
+Thomas Jarzombek,tj_tweets,1
+Thomas Nord,NordMdb,0
+Thomas Oppermann,ThomasOppermann,1
+Tino Sorge,TinoSorge,0
+Tobias Josef Zech,TobiasZech,0
+Tom Koenigs,KoenigsGruen,1
+Torsten Staffeldt,ToStaffeldt,0
+Uli Freese,UliFreese,0
+Ulle Schauws,ulle_schauws,1
+Ulli Nissen,UlliNissen,0
+Ulrich Kelber,UlrichKelber,1
+Ulrich Schneider,ulrich_hn,0
+Ulrike Flach,ulrikeflach,1
+Undine Kurth,undinekurth,1
+Ursula Heinen-Esser,HeinenUlla,1
+Uta Zapf,utazapf,1
+Ute Koczy,UteKoczy,1
+Ute Vogt,UteVogt,1
+Uwe Kekeritz,UweKekeritz,0
+Uwe Schummer,UweSchummer,1
+Viola von Cramon,ViolavonCramon,1
+Volker Beck,Volker_Beck,1
+Volker Ullrich,VolkerUllrich,1
+Volkmar Klein,VolkmarKlein,1
+Waltraud Wolff,waltraud_wolff,1
+Wilfried Oellers,WilfriedOellers,0
+Wolfgang Gehrcke,WolfgangGehrcke,0
+Wolfgang Neskovic,Team_Neskovic,0
+Xaver Jung,XaverJung,0
+Yvonne Ploetz,YvonnePloetz,0

politiker2.csv

@@ -0,0 +1,641 @@
+name,party,twitter_acc,twitter_verified
+"Aken, Jan van",linke,jan_vanaken,0
+"Albani, Stephan",cducsu,,
+"Albsteiger, Katrin",cducsu,dieAlbsteigerin,1
+"Alpers, Agnes",linke,agnesalpers,0
+"Altmaier, Peter",cducsu,peteraltmaier,1
+"Amtsberg, Luise",gruene,Luise_Amtsberg,0
+"Andreae, Kerstin",gruene,KerstinAndreae,1
+"Annen, Niels",spd,NielsAnnen,1
+"Arndt-Brauer, Ingrid",spd,,
+"Arnold, Rainer",spd,rainerarnold,1
+"Auernhammer, Artur",cducsu,,
+"Baehrens, Heike",spd,,
+"Baerbock, Annalena",gruene,ABaerbock,1
+"Bahr, Ulrike",spd,,
+"Bär, Dorothee",cducsu,DoroBaer,1
+"Barchmann, Heinz-Joachim",spd,,
+"Bareiß, Thomas",cducsu,bareiss,0
+"Barley, Dr. Katarina",spd,,
+"Barnett, Doris",spd,,
+"Bartels, Dr. Hans-Peter",spd,,
+"Barthel, Klaus",spd,,
+"Barthle, Norbert",cducsu,,
+"Bartke, Dr. Matthias",spd,,
+"Bartol, Sören",spd,soerenbartol,1
+"Bartsch, Dr. Dietmar",linke,DietmarBartsch,0
+"Bartz, Julia",cducsu,JuliaBartzMdB,1
+"Bas, Bärbel",spd,baerbelbas,1
+"Bätzing-Lichtenthäler, Sabine",spd,Sabine_Baetzing,1
+"Baumann, Günter",cducsu,,
+"Beck, Marieluise",gruene,MarieluiseBeck,0
+"Beck, Volker",gruene,Volker_Beck,1
+"Becker, Dirk",spd,,
+"Beckmeyer, Uwe",spd,,
+"Beermann, Maik",cducsu,MaikBeermann,0
+"Behrens, Herbert",linke,HerbertBehrens,0
+"Behrens, Manfred",cducsu,Manfredbehrens,1
+"Bellmann, Veronika",cducsu,,
+"Benning, Sybille",cducsu,,
+"Berghegger, Dr. André",cducsu,,
+"Bergner, Dr. Christoph",cducsu,,
+"Bertram, Ute",cducsu,,
+"Beyer, Peter",cducsu,PeterbeyerCDU,0
+"Bilger, Steffen",cducsu,SteffenBilger,1
+"Binder, Karin",linke,karinbinder,0
+"Binding, Lothar",spd,,
+"Binninger, Clemens",cducsu,,
+"Birkwald, Matthias W.",linke,MWBirkwald,1
+"Bleser, Peter",cducsu,,
+"Blienert, Burkhard",spd,,
+"Bluhm, Heidrun",linke,,
+"Böhmer, Prof. Dr. Maria",cducsu,,
+"Bosbach, Wolfgang",cducsu,,
+"Brackmann, Norbert",cducsu,,
+"Brähmig, Klaus",cducsu,,
+"Brand, Michael",cducsu,,
+"Brandl, Dr. Reinhard",cducsu,,
+"Brandt, Helmut",cducsu,,
+"Brantner, Dr. Franziska",gruene,fbrantner,0
+"Brase, Willi",spd,,
+"Brauksiepe, Dr. Ralf",cducsu,,
+"Braun, Dr. Helge",cducsu,HBraun,1
+"Brehmer, Heike",cducsu,HeikeBrehmerMdB,0
+"Brinkhaus, Ralph",cducsu,rbrinkhaus,1
+"Brugger, Agnieszka",gruene,agnieszka_mdb,1
+"Brunner, Dr. Karl-Heinz",spd,,
+"Buchholz, Christine",linke,ch_buchholz,1
+"Bulling-Schröter, Eva",linke,,
+"Bulmahn, Edelgard",spd,,
+"Bülow, Marco",spd,marcobuelow,1
+"Burkert, Martin",spd,,
+"Caesar, Cajus",cducsu,,
+"Castellucci, Prof. Dr. Lars",spd,larscastellucci,1
+"Claus, Roland",linke,,
+"Connemann, Gitta",cducsu,,
+"Crone, Petra",spd,,
+"Daldrup, Bernhard",spd,,
+"Dağdelen, Sevim",linke,sevimdagdelen,0
+"De Ridder, Dr. rer. pol. Daniela",spd,,
+"Dehm, Dr. Diether",linke,Diether_Dehm,0
+"Deligöz, Ekin",gruene,ekindeligoez,1
+"Diaby, Dr. rer. nat. Karamba",spd,KarambaDiaby,1
+"Dinges-Dierig, Alexandra",cducsu,,
+"Dittmar, Sabine",spd,,
+"Dobrindt, Alexander",cducsu,,
+"Donth, Michael",cducsu,,
+"Dörflinger, Thomas",cducsu,,
+"Dörmann, Martin",spd,,
+"Dörner, Katja",gruene,katjadoerner,1
+"Dött, Marie-Luise",cducsu,,
+"Drobinski-Weiß, Elvira",spd,,
+"Dröge, Katharina",gruene,katdro,0
+"Durz, Hansjörg",cducsu,,
+"Ebner, Harald",gruene,ebner_sha,1
+"Eckenbach, Jutta",cducsu,,
+"Edathy, Sebastian",spd,,
+"Ehrmann, Siegmund",spd,,
+"Engelmeier, Michaela",spd,michaelaengel,1
+"Erler, Dr. h.c. Gernot",spd,,
+"Ernst, Klaus",linke,ernst_klaus,1
+"Ernstberger, Petra",spd,PErnstberger,1
+"Esken, Saskia",spd,EskenSaskia,1
+"Evers-Meyer, Karin",spd,KarinEversMeyer,1
+"Fabritius, Dr. Bernd",cducsu,BerndFabritius,1
+"Färber, Hermann",cducsu,,
+"Fechner, Dr. Johannes",spd,,
+"Feiler, Uwe",cducsu,,
+"Feist, Dr. Thomas",cducsu,drthomasfeist,0
+"Felgentreu, Dr. Fritz",spd,,
+"Ferlemann, Enak",cducsu,,
+"Ferner, Elke",spd,Elke_Ferner,1
+"Finckh-Krämer, Dr. rer. nat. Ute",spd,,
+"Fischbach, Ingrid",cducsu,,
+"Fischer, Axel E.",cducsu,Axel_Fischer,0
+"Fischer, Dirk",cducsu,,
+"Flachsbarth, Dr. Maria",cducsu,,
+"Flisek, Christian",spd,ChristianFlisek,1
+"Flosbach, Klaus-Peter",cducsu,,
+"Fograscher, Gabriele",spd,,
+"Franke, Dr. Edgar",spd,FrankeEdgar,1
+"Freese, Ulrich",spd,UliFreese,0
+"Frei, Thorsten",cducsu,,
+"Freitag, Dagmar",spd,,
+"Freudenstein, Dr. Astrid",cducsu,,
+"Friedrich, Dr. Hans-Peter",cducsu,,
+"Frieser, Michael",cducsu,,
+"Fuchs, Dr. Michael",cducsu,drmfuchs,0
+"Fuchtel, Hans-Joachim",cducsu,fuchtel,1
+"Funk, Alexander",cducsu,,
+"Gabriel, Sigmar",spd,sigmargabriel,1
+"Gädechens, Ingo",cducsu,,
+"Gambke, Dr. Thomas",gruene,,
+"Gastel, Matthias",gruene,,
+"Gauweiler, Dr. Peter",cducsu,,
+"Gebhart, Dr. Thomas",cducsu,thomasgebhart,1
+"Gehrcke, Wolfgang",linke,WolfgangGehrcke,0
+"Gehring, Kai",gruene,KaiGehring,1
+"Gerdes, Michael",spd,,
+"Gerig, Alois",cducsu,,
+"Gerster, Martin",spd,,
+"Gienger, Eberhard",cducsu,,
+"Giousouf, Cemile",cducsu,,
+"Gleicke, Iris",spd,,
+"Glöckner, Angelika",spd,,
+"Gohlke, Nicole",linke,NicoleGohlke,1
+"Golze, Diana",linke,GolzeMdB,0
+"Göppel, Josef",cducsu,,
+"Göring-Eckardt, Katrin",gruene,GoeringEckardt,1
+"Gottschalck, Ulrike",spd,,
+"Griese, Kerstin",spd,KerstinGriese,1
+"Grindel, Reinhard",cducsu,,
+"Groden-Kranich, Ursula",cducsu,,
+"Gröhe, Hermann",cducsu,groehe,1
+"Gröhler, Klaus-Dieter",cducsu,,
+"Groneberg, Gabriele",spd,,
+"Groß, Michael",spd,,
+"Grosse-Brömer, Michael",cducsu,MGrosseBroemer,1
+"Grotelüschen, Astrid",cducsu,,
+"Groth, Annette",linke,Annette_Groth,0
+"Grötsch, Uli",spd,,
+"Grübel, Markus",cducsu,,
+"Grund, Manfred",cducsu,manfred_grund,1
+"Grundmann, Oliver",cducsu,,
+"Grütters, Monika",cducsu,,
+"Gundelach, Dr. Herlind",cducsu,HGundelach,0
+"Gunkel, Wolfgang",spd,,
+"Güntzler, Fritz",cducsu,,
+"Gutting, Olav",cducsu,olavgutting,0
+"Gysi, Dr. Gregor",linke,GregorGysi,1
+"Haase, Christian",cducsu,,
+"Hagedorn, Bettina",spd,,
+"Hagl-Kehl, Rita",spd,,
+"Hahn, Dr. André",linke,,
+"Hahn, Florian",cducsu,hahnflo,1
+"Hajduk, Anja",gruene,,
+"Hakverdi, Metin",spd,MetinHakverdi,0
+"Hampel, Ulrich",spd,,
+"Hänsel, Heike",linke,HeikeHaensel,1
+"Harbarth, Dr. Stephan",cducsu,stephanharbarth,1
+"Hardt, Jürgen",cducsu,juergenhardt,1
+"Hartmann, Michael",spd,HartmannMdB,1
+"Hartmann, Sebastian",spd,sebast_hartmann,1
+"Hasselfeldt, Gerda",cducsu,,
+"Haßelmann, Britta",gruene,BriHasselmann,1
+"Hauer, Matthias",cducsu,MatthiasHauer,0
+"Hauptmann, Mark",cducsu,MarkHauptmann,0
+"Heck, Dr. Stefan",cducsu,,
+"Heidenblut, Dirk",spd,,
+"Heider, Dr. Matthias",cducsu,MatthiasHeider,0
+"Heiderich, Helmut",cducsu,,
+"Heil, Hubertus",spd,hubertus_heil,1
+"Heil, Mechthild",cducsu,MechthildHeil,1
+"Hein, Dr. Rosemarie",linke,RosemarieHein,0
+"Heinrich, Frank",cducsu,FrankHeinrich,1
+"Heinrich, Gabriela",spd,,
+"Held, Marcus",spd,marcus_held,0
+"Helfrich, Mark",cducsu,,
+"Heller, Uda",cducsu,,
+"Hellmich, Wolfgang",spd,,
+"Hellmuth, Jörg",cducsu,,
+"Hendricks, Dr. Barbara",spd,,
+"Henke, Rudolf",cducsu,,
+"Henn, Heidtrud",spd,,
+"Hennrich, Michael",cducsu,,
+"Herzog, Gustav",spd,,
+"Heveling, Ansgar",cducsu,,
+"Hiller-Ohm, Gabriele",spd,GabiHillerOhm,1
+"Hintze, Peter",cducsu,,
+"Hinz, Petra",spd,,
+"Hinz, Priska",gruene,PriskaHinz,1
+"Hirte, Christian",cducsu,ChristianHirte,1
+"Hirte, Prof. Dr. iur. Heribert",cducsu,HHirte,0
+"Hitschler, Thomas",spd,ThomasHitschler,0
+"Hochbaum, Robert",cducsu,,
+"Hoffmann, Alexander",cducsu,,
+"Hoffmann, Thorsten",cducsu,,
+"Hofreiter, Dr. Anton",gruene,,
+"Höger, Inge",linke,,
+"Högl, Dr. Eva",spd,EvaHoegl,1
+"Höhn, Bärbel",gruene,BaerbelHoehn,1
+"Holmeier, Karl",cducsu,,
+"Holzenkamp, Franz-Josef",cducsu,,
+"Hoppenstedt, Dr. Hendrik",cducsu,,
+"Horb, Margaret",cducsu,,
+"Hornhues, Bettina",cducsu,BettinaHornhues,0
+"Huber, Karl-Heinz",cducsu,charlesmhuber49,0
+"Hübinger, Anette",cducsu,,
+"Hunko, Andrej",linke,AndrejHunko,0
+"Hupach, Sigrid",linke,,
+"Hüppe, Hubert",cducsu,,
+"Ilgen, Matthias",spd,MatthiasIlgen,0
+"Irlstorfer, Erich",cducsu,,
+"Janecek, Dieter",gruene,DJanecek,1
+"Jantz, Christina",spd,,
+"Jarzombek, Thomas",cducsu,tj_tweets,1
+"Jelpke, Ulla",linke,,
+"Jörrißen, Sylvia",cducsu,,
+"Jost, Reinhold",spd,,
+"Jung, Andreas",cducsu,,
+"Jung, Dr. Franz Josef",cducsu,jungfj,0
+"Jung, Xaver",cducsu,XaverJung,0
+"Junge, Frank",spd,,
+"Juratovic, Josip",spd,,
+"Jurk, Thomas",spd,,
+"Jüttner, Dr. Egon",cducsu,,
+"Kaczmarek, Oliver",spd,KaczmarekOliver,1
+"Kahrs, Johannes",spd,kahrs,1
+"Kalb, Bartholomäus",cducsu,,
+"Kammer, Hans-Werner",cducsu,,
+"Kampeter, Steffen",cducsu,,
+"Kampmann, Christina",spd,c_kampmann,1
+"Kanitz, Steffen",cducsu,steffenkanitz,0
+"Kapschack, Ralf",spd,,
+"Karawanskij, Susanna",linke,SuzaKarawanskij,0
+"Karl, Alois",cducsu,,
+"Karliczek, Anja",cducsu,,
+"Kassner, Kerstin",linke,,
+"Kaster, Bernhard",cducsu,BernhardKaster,0
+"Katzmarek, Gabriele",spd,GabiKatzmarek,0
+"Kauder, Volker",cducsu,,
+"Kaufmann, Dr. Stefan",cducsu,StefanKaufmann,1
+"Kekeritz, Uwe",gruene,UweKekeritz,0
+"Kelber, Ulrich",spd,UlrichKelber,1
+"Kermer, Marina",spd,,
+"Keul, Katja",gruene,,
+"Kiesewetter, Roderich",cducsu,RKiesewetter,1
+"Kindler, Sven-Christian",gruene,sven_kindler,1
+"Kippels, Dr. Georg",cducsu,,
+"Kipping, Katja",linke,katjakipping,1
+"Kiziltepe, Cansel",spd,CanselK,1
+"Klare, Arno",spd,,
+"Klein, Volkmar",cducsu,VolkmarKlein,1
+"Klein-Schmeink, Maria",gruene,MariaKlSchmeink,1
+"Klimke, Jürgen",cducsu,Klimke_CDU,0
+"Klingbeil, Lars",spd,larsklingbeil,1
+"Knoerig, Axel",cducsu,,
+"Koenigs, Tom",gruene,KoenigsGruen,1
+"Koeppen, Jens",cducsu,JensKoeppen,1
+"Kofler, Dr. Bärbel",spd,BaerbelKofler,1
+"Kolbe, Daniela",spd,danielakolbe,1
+"Kömpel, Birgit",spd,,
+"Koob, Markus",cducsu,,
+"Körber, Carsten",cducsu,,
+"Korte, Jan",linke,,
+"Koschyk, Hartmut",cducsu,koschyk,0
+"Kotting-Uhl, Sylvia",gruene,BabettesChefin,1
+"Kovac, Kordula",cducsu,,
+"Kramme, Anette",spd,,
+"Krellmann, Jutta",linke,JuttaKrellmann,0
+"Kretschmer, Michael",cducsu,kretsc,1
+"Krichbaum, Gunther",cducsu,,
+"Krings, Dr. Günter",cducsu,guenterkrings,0
+"Krischer, Oliver",gruene,Oliver_Krischer,1
+"Krüger, Dr. Hans-Ulrich",spd,,
+"Kruse, Rüdiger",cducsu,RuedigerKruse,1
+"Kudla, Bettina",cducsu,,
+"Kühn, Christian",gruene,ChrisKuehn_mdb,0
+"Kühn, Stephan",gruene,stephankuehn,0
+"Kühn-Mengel, Helga",spd,,
+"Kühne, Dr. Roy",cducsu,Dr_Roy_Kuehne,0
+"Künast, Renate",gruene,RenateKuenast,1
+"Kunert, Katrin",linke,,
+"Kurth, Markus",gruene,markuskurthmdb,1
+"Lach, Günter",cducsu,,
+"Lagosky, Uwe",cducsu,,
+"Lambrecht, Christine",spd,,
+"Lamers, Dr. Dr. h.c. Karl A.",cducsu,,
+"Lämmel, Andreas G.",cducsu,,
+"Lammert, Prof. Dr. Norbert",cducsu,,
+"Landgraf, Katharina",cducsu,,
+"Lange, Christian",spd,LangeMdB,1
+"Lange, Ulrich",cducsu,,
+"Lanzinger, Barbara",cducsu,,
+"Launert, Dr. Silke",cducsu,,
+"Lauterbach, Dr. Karl",spd,,
+"Lay, Caren",linke,CarenLay,1
+"Lazar, Monika",gruene,monikalazar,1
+"Lehrieder, Paul",cducsu,,
+"Leidig, Sabine",linke,SabineLeidig,1
+"Leikert, Dr. Katja",cducsu,KLeikert,0
+"Lemke, Steffi",gruene,SteffiLemke,1
+"Lemme, Steffen-Claudio",spd,SCLemme,1
+"Lengsfeld, Dr. Philipp",cducsu,PLengsfeld,1
+"Lenkert, Ralph",linke,,
+"Lenz, Dr. Andreas",cducsu,,
+"Lerchenfeld, Philipp Graf",cducsu,,
+"Leutert, Michael",linke,MichaelLeutert,1
+"Leyen, Dr. Ursula von der",cducsu,,
+"Lezius, Antje",cducsu,,
+"Liebich, Stefan",linke,berlinliebich,1
+"Liebing, Ingbert",cducsu,,
+"Lietz, Matthias",cducsu,MatthiasLietz,0
+"Lindholz, Andrea",cducsu,AndreaLindholz,0
+"Lindner, Dr. Tobias",gruene,tobiaslindner,1
+"Linnemann, Dr. Carsten",cducsu,,
+"Lips, Patricia",cducsu,,
+"Lischka, Burkhard",spd,LischkaB,1
+"Lorenz, Wilfried",cducsu,,
+"Lösekrug-Möller, Gabriele",spd,,
+"Lotze, Hiltrud",spd,,
+"Lötzsch, Dr. Gesine",linke,Team_GLoetzsch,0
+"Lücking-Michel, Dr. Claudia",cducsu,,
+"Luczak, Dr. Jan-Marco",cducsu,,
+"Ludwig, Daniela",cducsu,,
+"Lühmann, Kirsten",spd,,
+"Lutze, Thomas",linke,,
+"Maag, Karin",cducsu,,
+"Magwas, Yvonne",cducsu,,
+"Mahlberg, Thomas",cducsu,,
+"Maisch, Nicole",gruene,NicoleMaisch,1
+"Maizière, Dr. Thomas de",cducsu,,
+"Malecha-Nissen, Dr. Birgit",spd,malechanissen,0
+"Manderla, Gisela",cducsu,,
+"Marks, Caren",spd,,
+"Marschall, Matern von",cducsu,,
+"Marwitz, Hans-Georg von der",cducsu,,
+"Mast, Katja",spd,,
+"Mattfeldt, Andreas",cducsu,AMattfeldt,0
+"Mattheis, Hilde",spd,HildeMattheis,1
+"Mayer, Stephan",cducsu,,
+"Meier, Reiner",cducsu,,
+"Meister, Dr. Michael",cducsu,meister_schafft,1
+"Meiwald, Peter",gruene,PeterMeiwald,1
+"Merkel, Dr. Angela",cducsu,,
+"Metzler, Jan",cducsu,JanMetzler,0
+"Michalk, Maria",cducsu,,
+"Michelbach, Dr. h. c. Hans",cducsu,,
+"Middelberg, Dr. Mathias",cducsu,,
+"Miersch, Dr. Matthias",spd,,
+"Mihalic, Irene",gruene,IreneMihalic,1
+"Mindrup, Klaus",spd,,
+"Mißfelder, Philipp",cducsu,Missfelder,1
+"Mittag, Susanne",spd,,
+"Möhring, Cornelia",linke,Conni_Moehring,0
+"Monstadt, Dietrich",cducsu,,
+"Möring, Karsten",cducsu,KarstenMoering,0
+"Mortler, Marlene",cducsu,marlenemortler,1
+"Motschmann, Elisabeth",cducsu,,
+"Movassat, Niema",linke,NiemaMovassat,1
+"Müller, Bettina",spd,,
+"Müller, Carsten",cducsu,,
+"Müller, Detlef",spd,,
+"Müller, Dr. Gerd",cducsu,,
+"Müller, Norbert",linke,,
+"Müller, Stefan",cducsu,smuellermdb,1
+"Müller-Gemmeke, Beate",gruene,GrueneBeate,1
+"Müntefering, Michelle",spd,,
+"Murmann, Dr. Philipp",cducsu,,
+"Mutlu, Özcan",gruene,OezcanMutlu,1
+"Mützenich, Dr. Rolf",spd,,
+"Nahles, Andrea",spd,,
+"Neu, Dr. Alexander S.",linke,AlexanderSNeu,0
+"Nick, Dr. Andreas",cducsu,DrAndreasNick,1
+"Nietan, Dietmar",spd,,
+"Nissen, Ulli",spd,UlliNissen,0
+"Noll, Michaela",cducsu,,
+"Nord, Thomas",linke,NordMdb,0
+"Notz, Dr. Konstantin von",gruene,KonstantinNotz,1
+"Nouripour, Omid",gruene,nouripour,1
+"Nowak, Helmut",cducsu,Helmut_Nowak,0
+"Nüßlein, Dr. iur. Georg",cducsu,georgnuesslein,0
+"Oellers, Wilfried",cducsu,WilfriedOellers,0
+"Oppermann, Thomas",spd,ThomasOppermann,1
+"Oßner, Florian",cducsu,,
+"Ostendorff, Friedrich",gruene,FOstendorff,0
+"Ostermann, Dr. Tim",cducsu,,
+"Otte, Henning",cducsu,,
+"Özdemir, Cem",gruene,cem_oezdemir,1
+"Özdemir, Mahmut",spd,oezdemir_spd,0
+"Özoğuz, Aydan",spd,oezoguz,1
+"Pahlmann, Ingrid",cducsu,,