融化和熔结的更快替代品

时间:2018-07-13 03:09:35

标签: r data.table rbind melt

我有很多字符向量,看起来像这样:

folder

我想用单列创建一个data.table(或一个数据框架)。所以我所做的是:

List of 53095
 $ 30875  : chr [1:10] "<h2 class=\"buildings-page-title buildings- ...
 $ 30876  : chr [1:10] "<h2 class=\"buildings-page-title buildings- ...

以测试数据为例,我想要的是

# require(purr); require(data.table)
clean.data<-function(input){
  output1<-map(input, melt)
  output2<-data.frame()
 for (i in 1:length(output1)) { 
  output2<-rbind(output2, output1[[i]])

 }
 return(output2)}

但是此功能非常慢,可能是因为我的数据集很大,但是我认为我的代码很糟糕。还有其他更有效的方法来获得相同的结果吗?

1 个答案:

答案 0 :(得分:4)

一种更快的方法是if (touch.phase == TouchPhase.Ended),并创建一个单列unlist

data.frame