Question

此代码将用于计算我的推文集合中的链接数。该集合来自10个帐户。问题是，我如何在一个代码中循环遍历十个帐户并将输出放在表格或图表中？ “Unames”代表帐户的名称。谢谢，

mydata <- read.csv("tweets.csv",sep=",", header=TRUE)
head(mydata)
dim(mydata)
colnames(mydata)

****＃tweets for each university ****

table(mydata$University)
Unames<- unique(mydata$University)
mystring <- function(Uname, string){
     mydata_temp <- subset(mydata,University==Uname)
     mymatch <- rep(NA,dim(mydata_temp)[1])
     for(i in 1:dim(mydata_temp)[1]){
       mymatch[i] <- length(grep(string, mydata_temp[i,2]))
     }

     return(mymatch)
}

** #web链接，例如（这里我希望看到表格或图表中所有大学的总链接。下面的代码只是逐个给我输出！

    mylink <- mystring(Unames[1],"http://")

Answer 1

所以我的怀疑是错误的，你确实有一个数据体，这个命令会产生所需的结果（你希望所有的：

 mylink <- mystring(Unames[1],"http://")

在这种情况下，你应该这样做：

links_list <- lapply(Unames, mystring, "http://")

循环一个字符串

1 个答案: