mxmehl
/
uni-ba-socialagenda
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
master
mxmehl 8 years ago
parent 34807191b9
commit b85be742d4
11 changed files with 2779 additions and 578 deletions
Show Stats Download Patch File Download Diff File

BIN
.RData
View File

Binary file not shown.

675
.Rhistory
Unescape View File

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

97
extract-twitter-accounts.R
Unescape View File

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

8
issuecomp.R
Unescape View File

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

41
issues.xml
Unescape View File

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

100
issues.xml.long
Unescape View File

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

737
merge.txt
Unescape View File

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