在R中从data.table列计算中位数
我正在尝试计算多列的中位数，但是我的数据有些问题。它看起来像以下示例。 我正在尝试计算多列的中位数，但是我的数据有些问题。它看起来像以下示例。library(data.table) dt <- data.table("ID" = c(1,2,3,4),"none" = c(0,5,5,...
使用lapply()如何获取列表中每个元素的名称?
想象一下我有以下列表： > test <- list("a" = 1, "b" = 2) 列表中的每个元素都有一个名称： > names(test) 现在，我想使用lapply()来提取该名称，因为我想将其用于新函数中，该函数将使用lapply调用。 我只是不知道...
作为sapply函数参数的美元符号运算符未按预期工作
我有以下清单test_list=list(list(a=1,b=2),list(a=3,b=4)) 我想提取所有列表元素名称为a的元素。我可以通过以下方式实现sapply(test_list,`[[`,"a") 这使我得到了正确的结果。#[1] 1 3 尝试使用美元符号操作符“$”时，我得到了...
R：lapply函数 - 跳过当前函数循环
我正在对多个文件的列表使用lapply函数。有没有一种方法可以在不返回任何内容的情况下跳过当前文件上的函数，只是跳到文件列表中的下一个文件？ 确切地说，我有一个if语句检查一个条件，如果该语句返回FALSE，我想跳到下一个文件。
在R中快速替代split函数的方法
我使用split()对一个包含1.3百万行和20列的数据帧进行分区，以便使用parLapply()并行调用每个分区中的函数。我按两列分割/分区，它们都是字符类型。看起来有大约47K个唯一ID和12K个唯一代码，但不是每个ID和代码的组合都匹配。得到的分区数大约为250K。以下是split()的...
从lapply返回匿名函数-出了什么问题？
尝试使用lapply创建一系列相似的函数时，我发现列表中的所有函数都是相同的，并且等于最后一个元素应该是什么。 考虑以下内容：pow <- function(x,y) x^y pl <- lapply(1:3,function(y) function(x) pow(x,y)) p...
在函数内部使用lapply中的get函数
这个问题可能看起来有点复杂，但让我烦恼了一段时间。这也只是出于好奇，因为我已经有了完成所需的方法，所以并不是很重要。 在R中，我需要一个函数来返回一个命名的列表对象，其中包括用户输入的所有参数和值。为此，我编写了以下代码（玩具示例）：foo <- function(a=1, b=5, ...
将“文件名”列添加到表格中，因为要读取和绑定多个文件。
我有多个目录中的多个csv文件，想要将它们读入到一个R的tribble或data.table中。我使用"list.files()"函数，并将recursive参数设置为TRUE来创建文件名和路径列表，然后使用"lapply()"函数来读取多个csv文件，最后用"bind_rows()"函数将它...
在 lapply 函数中赋值的方法
这是一个我经常会用循环写的玩具示例。我很难想出一行代码的解决方法。我相信我以前见过它，但没有留下深刻印象。smallFrame <- data.frame(colA = c('A', 'B', 'C' ,'D'), colB = c(1,1,1,1)) someList <- li...