166 lines
4.0 KiB
R
166 lines
4.0 KiB
R
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)
|
|
}
|
|
}
|