如何在r中按数据类型忽略列表中的元素？

我有一个样本数据如下

所需的数据类型为

double

，但也有其他类型，如

list

。如何删除或忽略它们

       sample<-list(x1 = structure(c(0.266, 0.532, 0.797, 1.092, 1.27, 1.27, 
1.27, 1.46, 1.46, 2.34, 2.53, 2.53, 2.53, 2.53), .Dim = c(14L, 
1L), .Dimnames = list(c("m5", "m10", "m15", "m30", "h1", "h2", 
"h3", "h4", "h5", "h6", "h8", "h12", "h18", "h24"), NULL)), x2 = structure(c(1.224, 
2.395, 3.063, 5.131, 7.112, 9.474, 9.474, 10.302, 10.744, 9.474, 
12.49, 11.406, 13.571, 13.919), .Dim = c(14L, 1L), .Dimnames = list(
    c("m5", "m10", "m15", "m30", "h1", "h2", "h3", "h4", "h5", 
    "h6", "h8", "h12", "h18", "h24"), NULL)), x3 = list(1, 2, 
    3))

期望输出：

$x1
     [,1]
m5  0.266
m10 0.532
m15 0.797
m30 1.092
h1  1.270
h2  1.270
h3  1.270
h4  1.460
h5  1.460
h6  2.340
h8  2.530
h12 2.530
h18 2.530
h24 2.530

$x2
      [,1]
m5   1.224
m10  2.395
m15  3.063
m30  5.131
h1   7.112
h2   9.474
h3   9.474
h4  10.302
h5  10.744
h6   9.474
h8  12.490
h12 11.406
h18 13.571
h24 13.919

---

您可以使用

purrr

包中的keep函数。这有用吗

install.packages("purrr")
library(purrr)

new_list <- keep(sample, is.double)
new_list

install.packages（“purrr”）
图书馆（purrr）
新列表在
base R
中，我们可以使用
Filter

sample_new <- Filter(is.double, sample)

sample\u new此代码为我抛出并出错
UseMethod中的错误（“group\u by”）：“UseMethod”以不适当的方式使用了
我编辑了这个问题。它成功了。这是期望的输出；列表（x1=结构（c（0.266,0.532,0.797,1.092,1.27,1.27,1.27,1.46,1.46,2.34,2.53,2.53,2.53,2.53），.Dim=c（14L,1L），.Dimnames=列表（c（“m5”，“m10”，“m15”，“m30”，“h1”，“h2”，“h3”，“h4”，“h5”，“h6”，“h8”，“h12”，“h18”，“h24”），NULL））），x2=结构（1.224，2.395，3.063，5.131，7.112，9.474，9.474，10.302，10.744，9.474，12.49，11.406，13.571，13.919），.Dim=c（14L，1L），.Dimnames=list（c（“m5”，“m10”，“m15”，“m30”，“h1”，“h2”，“h3”，“h4”，“h5”，“h6”，“h8”，“h12”，“h18”，“h24”），NULL）））
sample_new <- Filter(is.double, sample)