處理來自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"