我有以下清单test_list=list(list(a=1,b=2),list(a=3,b=4)) 我想提取所有列表元素名称为a的元素。我可以通过以下方式实现sapply(test_list,`[[`,"a") 这使我得到了正确的结果。#[1] 1 3 尝试使用美元符号操作符“$”时，我得到了...

我有一个字符的列表列表，例如：l <- list(list("A"),list("B"),list("C","D")) 你可以看到，有一些元素是长度大于1的列表。 我想将这个列表转换为字符向量，但我想让长度大于1的列表在字符向量中出现为单个元素。 unlist函数无法实现这一点，而是...

当我第一次开始使用R编程时，我经常会使用dplyr count（）。library(tidyverse) mtcars %>% count(cyl) 一旦我开始使用apply函数，我就开始遇到与count()有关的问题。如果在count()的末尾简单地添加ungroup()，问题...

我有一个矩阵：mat <- matrix(c(0,0,0,0,1,1,1,1,-1,-1,-1,-1), ncol = 4 , nrow = 4) 我使用以下函数筛选仅包含正数条目的列，但对于具有负条目的列，我会得到一个NULL。如何从lapply、apply和sapply的输出中抑制N...

我想获得列表中的每个最后一个元素。我发现可以使用sapply函数获取第一个元素。sapply(a,`[`,1) 然而，我并不真正理解 [ 的意思，也不知道如何以类似的方式获取最后一个元素。这段代码无法工作。sapply(a,`]`,1)

我需要获取至少有一个NA值的列名。 df<-data.frame(a=1:3,b=c(NA,8,6), c=c('t',NA,7)) 我需要获取 "b, c"。 我找到了这段代码： sapply(df, function(x) any(is.na(x))) 但我只需要包...

我正在尝试在数据框的多个分组内查找不包括“NA”的多个列的平均值 airquality <- data.frame(City = c("CityA", "CityA","CityA", "CityB","CityB",...

我想确定一个大型数据表的列类别。colClasses <- sapply(DT, FUN=function(x)class(x)[1]) 代码可以运行，但是本地副本会被存储到内存中：> memory.size() [1] 687.59 > colClasses <- s...

我定义了一个自定义函数，就像这样：my.fun = function() { for (i in 1:1000) { ... for (j in 1:20) { ... } } return(outp...

我希望运行一个函数，它查看两个向量，根据两个向量中的值的符号返回不同的值。我已经编写了一个可以比较两个值的函数，但是我想在两个向量上运行它。因此，我使用了sapply，但是得到的结果与预期不同。 bear.correction<- function(x,y){ ...