统计向量列表中的新元素数量
我想统计以前没有出现过的新元素。以下是一个示例数据： var1 <- list('2003' = 1:3, '2004' = c(4:3), '2005' = c(6,4,1), '2006' = 1:4 ) 我想要获得输出。 newcount <- list('2003'...
expand.grid和mapply的组合使用？
我正在尝试创建一个变体的mapply函数（现在叫做xapply），它结合了expand.grid和mapply的功能（有点像）。也就是说，对于一个函数FUN和一个参数列表L1，L2，L3，...（长度未知），它应该生成一个长度为n1*n2*n3的列表（其中ni是列表i的长度），这个列表是将函数...
如何在列表中获取数据框的名称？
如何从列表中获取数据框的名称？当然，get()可以获取对象本身，但我想要它的名称以便在另一个函数中使用。这是用例，如果您更愿意建议解决方法： lapply(somelistOfDataframes, function(X) { ddply(X, .(idx, bynameofX), ...
在函数内部使用lapply中的get函数
这个问题可能看起来有点复杂，但让我烦恼了一段时间。这也只是出于好奇，因为我已经有了完成所需的方法，所以并不是很重要。 在R中，我需要一个函数来返回一个命名的列表对象，其中包括用户输入的所有参数和值。为此，我编写了以下代码（玩具示例）：foo <- function(a=1, b=5, ...
在Shiny模块中使用lapply()在renderUI()函数中。
我正在尝试将一段代码转换成一个 Shiny 模块，但是在 lapply() 中生成的 renderPlot() 函数似乎无法正常工作。我已经创建了下面的简单示例来演示这个问题。 （注意：这里使用的是 renderText() 调用，但是相同的行为也适用。） app_normal.R: l...
在多个列上应用tidyr::separate函数
我将迭代数据帧中的列，并根据分隔符拆分它们。我使用 tidyr::separate，一次一个列地处理可以运行。 例如： df<- data.frame(a = c("5312,2020,1212"), b = c("345,982,284")) df <- separate(...
将这个循环封装在一个函数中，为什么会将其加速8倍？
我试图更深入地了解在R中循环和*apply函数之间的区别。在这里，我进行了一个实验，用三种不同的方式计算前10,000个三角数。 unwrapped: 简单的for循环 wrapped: 我将之前相同的循环封装成一个函数。 vapply: 使用vapply和匿名函数。 结果让我感到意外...
如何对列表中的子列表应用lapply函数
假设我有一个列表，其中嵌套着另一个列表，并且我有一些仅适用于向量的函数（如stringr包中的str_replace）。该函数应在实际包含信息的每个元素上执行其工作，这就需要解决以下问题： 问题1：是否有特定的解决方案？ 问题2：是否有通用解决方案？ 使用循环应该可以解决问题，但这并不优雅...