r - 如何使用“lapply”获得“干净”列表？

Question

我正在使用“lapply”以 txt 格式编写函数的输出。但是，该 txt 文件带有弄脏输出的字母和数字，如下所示：

“X”

“1”0.602059991327962

虽然我只需要值，如下所示：

0.602059991327962

0.698970004336019

0.778151250383644

遵循我正在使用的代码：

box_size<-c(4,5,6,7,8,9,10,11,12,14,16,18,20,22,24,27,30,33,36,40,44,48)
ninbox2 <-c(50,40,33,28,25,22,20,18,16,14,12,11,10,9,8,7,6,6,5,5,4,4)
Log_n<-0

aux_list <- lapply(seq_along(ninbox2), function(j){

  Log_n[j] <- log10(box_size[j])
  
  
})

lapply(aux_list,function(x) write.table( data.frame(x), 'log.txt'  , append= T, sep='' ))

标签： rlapply