parent
34807191b9
commit
b85be742d4
@ -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)
|
||||
}
|
||||
}
|
||||
|
@ -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
|
||||