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

master
mxmehl 8 years ago
parent 34807191b9
commit b85be742d4

BIN
.RData

Binary file not shown.

@ -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)
}
}

@ -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") {

@ -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 ----------------------------------------------------

@ -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>

@ -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>

@ -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