[英]R - Cumulative storage of looped cbind() results and possible lapply solution to double for-loop
I've found a work around solution to a question I posted based on @Ryan's recommendation, given by this code: 我已经找到了解决该问题的方法,该解决方案是我根据@Ryan的建议(由以下代码给出)解决的:
for (i in seq_along(url)){
webpage <- read_html(url[i]) #loop through URL list to access html data
fac_data <- html_nodes(webpage,'.tableunder') %>% html_text()
fac_data1 <- html_nodes(webpage,'.tableunder1') %>% html_text()
fac_data <- c(fac_data, fac_data1) #Store table data on each URL in a variable
x <- fac_data %>% matrix(ncol = length(headers[[i]]), byrow=TRUE) #make matrix to extract column data
for (j in seq_along(headers[[i]])){
y <- cbind(x[,j]) #extract column data and store in temporary variable
colnames(y) <- as.character(headers[[i]][j]) #add column name
print(cbind(y)) #loop through headers list to print column data in sequence. ** cbind(y) will be overwritten when I try to store the result on a list with 'z <- cbind(y)'.
}
}
I am now able to print out all values, complete with headers of the data in question. 现在,我可以打印出所有值,并加上有关数据的标题。
Some follow-up questions will be: 一些后续问题将是:
How do I save the output of cbind(y) cumulatively in a data.frame or a list? 如何将cbind(y)的输出累积保存在data.frame或列表中? Looping through cbind(y) will overwrite values, which leaves me with only the last column from the last table. 遍历cbind(y)将覆盖值,这使我只剩下最后一张表中的最后一列。 Like this: 像这样:
退休年月 退休年月
[1,] "82年8月" [1,]“ 82年8月”
Neither do these variations work: 这些变化都不起作用:
z[[x]][j] <- cbind(y)
> source('~/Google 云端硬盘/R/scrapeFaculty.R')
Error in `*tmp*`[[x]] : 最多只能選擇一個元素
z[j] <- cbind(y)
> source('~/Google 云端硬盘/R/scrapeFaculty.R')
There were 13 warnings (use warnings() to see them)
z[[j]] <- cbind(y)
> source('~/Google 云端硬盘/R/scrapeFaculty.R')
Error in z[[j]] <- cbind(y) : 用來替換的元素比所要替換的值多
Here's the final code I used to solve this: 这是我用来解决此问题的最终代码:
for (i in seq_along(url)){
webpage <- read_html(url[i])
fac_data <- html_nodes(webpage,'.tableunder') %>% html_text()
fac_data1 <- html_nodes(webpage,'.tableunder1') %>% html_text()
fac_data <- c(fac_data, fac_data1)
x <- fac_data %>% matrix(ncol = length(headers[[i]]), byrow=TRUE) #make matrix to extract column data
y <- cbind(x[,1:length(headers[[i]])]) #extract column data
colnames(y)<- as.character(headers[[i]]) #add colunm name
ntu.hist[[i]] <- y #Cumulate results on a list.
}
I was wondering if it would be an option to cbind multiple at one time instead of looping. 我想知道是否可以一次绑定多个而不是循环绑定。 Would any of these syntax options help? 这些语法选项是否有帮助?
y <– data.frame(col1=c(1:3),col2=c(4:6),col3=c(7:9))
cbind(y[,c(1:3)])
col1 col2 col3
1 1 4 7
2 2 5 8
3 3 6 9
#In R, you can use ":" to specify a range. So 1,2,3,4 is equal to 1:4.
#If you don't want number 3 in that range, you can use c(1,2,4).
#For example:
cbind(y[,c(1,3)])
col1 col3
1 1 7
2 2 8
3 3 9
Final code: 最终代码:
Here's the final code: 这是最终代码:
for (i in seq_along(url)){
webpage <- read_html(url[i])
fac_data <- html_nodes(webpage,'.tableunder') %>% html_text()
fac_data1 <- html_nodes(webpage,'.tableunder1') %>% html_text()
fac_data <- c(fac_data, fac_data1)
x <- fac_data %>% matrix(ncol = length(headers[[i]]), byrow=TRUE) #make matrix to extract column data
y <- cbind(x[,1:length(headers[[i]])]) #extract column data
colnames(y)<- as.character(headers[[i]]) #add colunm name
ntu.hist[[i]] <- y #Cumulate results on a list.
}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.