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