处理来自R的lapply函数的输出/从列表中删除元素

Question

我想将R的lapply函数返回的信息修剪为第一个元素。

所以，对于这样的事情

is(rnorm(10,10)) 
[1] "numeric"  "vector"  "atomicVector" "index"  "number"  ... 

我想在刚刚结束只保留第1个要素"numeric"

完整的例子

x <- rnorm(10,10) 
y <- sample(c("a","b","c"),10, replace = TRUE) 
z <- factor(sample(c("a","b","c"),10, replace = TRUE)) 
dat.fake <- data.frame(x,y,z, stringsAsFactors = FALSE) 

使用lapply得到数据帧中每列的信息

lapply(dat.fake,is) 

我想只得到

$x 
[1] "numeric"  
$y 
[1] "character"   
$z 
[1] "factor" 

而不是

$x 
[1] "numeric"  "vector"  "atomicVector" ... 
$y 
[1] "character"   "vector"    "data.frameRowLabels" ... 
[6] "index"    
$z 
[1] "factor" "integer" "oldClass" "numeric" "vector" 

全力输出的是有没有办法中lapply做到这一点或类似的功能，或者什么是最有效的处理由lapply返回的列表中的信息的方式？

Answer 1

在这种情况下，一个匿名函数似乎最有意义：

> lapply(dat.fake,function(x) is(x)[1]) 
$x 
[1] "numeric" 

$y 
[1] "character" 

$z 
[1] "factor" 

---

要回答的标题提出的问题，使用基本提取：

> temp <- lapply(dat.fake, is) 
> lapply(temp, "[", 1) 
$x 
[1] "numeric" 

$y 
[1] "character" 

$z 
[1] "factor" 

Answer 2

另外，效率低下的方法是定义一个新的函数，该函数仅提取矢量的第一个元素（这是此列表中的每个元素）并再次使用lapply

与newfunction

lapply(lapply.out,first.element) #**EDITED** 

和输出

first.element <- function(x) 
{ 
    x[1] 
} 


lapply.out <- lapply(dat.fake,is) 

使用lapply抓起只是一个载体的第1个要素的新功能是

$x 
[1] "numeric" 
$y 
[1] "character" 
$z 
[1] "factor"