循环遍历有三个参数的函数，mapply/sapply/for循环不起作用？
循环遍历有三个参数的函数时，mapply/sapply/for循环不起作用的可能原因有多种。
- 函数参数不匹配：首先要确保函数的参数个数和顺序与循环遍历提供的参数一致。如果参数不匹配，函数将无法正确执行。可以使用print语句来检查循环遍历时每次传递给函数的参数是否正确。
- 数据类型不匹配：如果函数对于某些特定的数据类型有限制或要求，而循环遍历时提供的数据类型不符合要求，函数可能无法正常执行。可以使用class函数来检查循环遍历提供的参数的数据类型，并确保其符合函数的要求。
- 包/库加载问题：如果函数依赖于某些特定的包或库，而这些包或库未正确加载，则函数无法正常执行。可以使用library函数来加载函数所依赖的包或库。
- 函数定义问题：函数本身可能存在问题，导致无法正确执行。可以使用print语句来输出函数的中间结果，以便检查函数是否按预期执行。
针对这个问题，我推荐使用腾讯云的云函数 SCF（Serverless Cloud Function）来进行循环遍历。SCF 是一种无服务器计算服务，可以让开发者专注于编写核心业务逻辑，而无需关注服务器运维。通过在 SCF 上创建一个函数，可以使用腾讯云提供的 SDK 来编写循环遍历的逻辑，并将函数部署到云端。使用 SCF 的好处是，它能够自动处理请求的并发和负载均衡，而且只需按照实际使用的资源量付费，非常灵活和高效。
具体使用方法和示例代码可以参考腾讯云函数 SCF 的官方文档：https://cloud.tencent.com/document/product/583
相关·内容
2回答
我正在尝试根据不同的索引来子集list对象中的值。
我已经尝试了标准子设置策略，比如lapply。但是，它们只适用于固定的索引。例如，子设置每个列表元素的第一值。然而，我想在每个列表元素中选择一个不同的索引位置。
请考虑以下列表：
mylist<-list(c("25","0","33"),c("50","1"),c("100","2","3", "45"),c("12", "54"))
我可以使用lapply轻松
浏览 32提问于2019-07-16得票数 4
回答已采纳
我的数据集如下所示：
a <- rnorm(2)
b <- rnorm(2)-3
x <- rnorm(13)
y <- rnorm(2)-1
z <- rnorm(2)-2
eg <- expand.grid(a,b,x,y,z)
treatment <- c(rep(1, 2), rep(0,3))
eg <- data.frame(t(eg))
row.names(eg) <- NULL
eg <- cbind(treatment, eg)
我需要做的是对每一列运行t测试，将treatment =1组与treatment=0组进
浏览 1提问于2015-01-08得票数 1
我目前正在使用sapply调用一个加权平均函数，该函数接受两个输入，一个日期和一个日期帧，每个日期有多个值。
sapply(unique(sort(d$Date, decreasing=TRUE)), WeightedMean, data=d))
WeightedMean <- function(date, data) {...}
但是我想更新这个函数来接受三个输入。我已经创建了下面的代码，但无法在WeightedMean函数中引用这两个输入，
sapply(unique(d[order(d$Date, d$Id, decreasing=TRUE), c("Date",
浏览 0提问于2011-03-24得票数 0
回答已采纳
1回答
我试图根据矩阵A的值计算矩阵B(每列)的条件标准差。
#conditional function
foo<-function(x,y)
{
out<-sd(y[abs(x)==1])
return(out)
}
#create the matrix
A<-matrix(data=c(1,-1,0,1,0,0,0,0,1,1),nrow=5,ncol=2)
B<-matrix(data=c(3,4,5,6,7,8,9,10,11,12),nrow=5,ncol=2)
#run for the first column
foo(A[,1],B[,1])
#ru
浏览 3提问于2013-08-14得票数 0
回答已采纳
4回答
关于，我试图找出将函数列表应用于值列表的最简单方法。基本上，一个嵌套的lapply。例如，这里我们将sd和mean应用于数据集trees中。
funs <- list(sd=sd, mean=mean)
sapply(funs, function(x) sapply(trees, x))
得到：
sd mean
Girth 3.138139 13.24839
Height 6.371813 76.00000
Volume 16.437846 30.17097
但我希望避免内部的function，并有这样的东西：
sapply(funs, sapp
浏览 4提问于2015-06-10得票数 31
回答已采纳
1回答
数据集
firstList <- list(a = 1:3, b = 4:6)
secondList <- list(c = 7:9, d = 10:12)
我试图用mapply计算多个列表的平均值。
mapply(mean, firstList, secondList)
它不起作用，因为mean只按照对第一个参数进行平均值。
这样做是正确的：
mapply(mean, firstList)
mapply(mean, secondList)
然后我尝试lapply一次向mapply提供一个列表
lapply(c(firstList, secondList), function(x
浏览 1提问于2015-09-19得票数 3
回答已采纳
3回答
我有两个物体：
一个包含三个变量的数据框架：
v1 <- 1:10
v2 <- 11:20
v3 <- 21:30
df <- data.frame(v1,v2,v3)
一个包含三个元素的数字向量：
nv <- c(6,11,28)
我想比较一下第一个变量和第一个数字，第二个变量和第二个数字等等。
which(df$v1 > nv[1])
which(df$v2 > nv[2])
which(df$v3 > nv[3])
当然，在现实中，我的数据框架有更多的变量，所以手动输入每个变量不是一种选择。
我经常遇到这类问题。我需要阅读什么样的文档才能流
浏览 0提问于2015-06-04得票数 5
回答已采纳
1回答
我有个功能
myfunction <- function(x,y){
x+y
}
我想把x和y向量传递给它，得到一个长度相同的向量，也就是它们的元素之和。
因为某种原因当我用
sapply(x,myfunction,y)
我得到一个矩阵而不是向量。我做错了什么？我用错函数了吗？
示例：
x = c(1,2,3,4)
y = c(2,4,6,8)
sapply(x,myfunction,y)
> [,1] [,2] [,3] [,4]
[1,] 3 4 5 6
[2,] 5 6 7 8
浏览 3提问于2022-10-13得票数 1
回答已采纳
我在数据框中有一个数据集，其中包含以下信息：
> head(rs1)
dater adjStkPrice optSym expire strike bid ask unadjStkPrice daysLeft pnl
1 2011-01-03 127.05 SPY 131221P00115000 2013-12-21 115 14.89 15.40 127.05 1083 319.5
2 2011-01-04 126.98 SPY 131221P00115000 201
浏览 1提问于2012-04-09得票数 4
我对一个简单的任务有个大问题。我有一个由真值(0和1)和来自不同模型的几个预测值组成的数据集。我使用软件包'Metrics‘，我想使用AUC (度量中的"auc“函数)来评估每个预测。这里是一个可重复的例子。我有张桌子：
evaluate <- "true prediction_1 prediction_2 prediction_3
1 0.9 0.5 0.8
1 0.9 0.4 0.7
1 0.8 0.6 0.75
0 0.1 0.3 0.2
0 0.05 0.4 0.1
0 0.15 0.45 0.15"
Table <- read.table(
浏览 2提问于2020-12-19得票数 1
回答已采纳
我有一个由n个时间序列组成的时间序列对象，用ndiffs得到了一个得到平稳时间序列所必需的差分阶的向量。现在我想要做到这一点。但
tmp <- sapply(ts, ndiffs, alpha=0.05, test=c("kpss", "adf", "pp"))
sapply(ts, function(x) diff(x,differences = tmp) )
..is不起作用。
有没有一些不使用for循环的想法？
浏览 5提问于2017-10-11得票数 0
2回答
我有一份清单，我想要样品。样本数应与向量中的数目相对应。问题是，对于所有的列表条目，他只接受sample_size中的第一个数字。我希望任何人都能帮我！
liste_mpg<-plyr::dlply(mtcars,"mpg")
sample_size<-c(2,6,7,1,4,8,9,0,7,9,3,4,6,1,8,4,3,2,6,7,4,6,9,1,4)
test_list<-lapply(liste_mpg, function(x) sample(x,size = sample_size))
浏览 2提问于2019-07-18得票数 1
回答已采纳
1回答
这是我的职责：
f <- function(a, b, ...){
c(as.list(environment()), list(...))
}
如果我调用f(a = 2)，将不会引发错误，尽管b丢失了。在这种情况下，我想得到一个错误：
Error in f(a = 2) : argument "b" is missing, with no default
我必须添加哪些动态和有效代码，以便引发此错误？我在想以下几点：force(as.symbol(names(formals())))。
注意:如果您想知道我为什么需要这样的函数:这是一种标准化列表类型的方法。这样的列
浏览 2提问于2017-10-31得票数 2
回答已采纳
2回答
假设你有一个矩阵a
a <- matrix(1:9, 3, 3)
a
[,1] [,2] [,3]
[1,] 1 4 7
[2,] 2 5 8
[3,] 3 6 9
和向量b，指示要提取的每一行中的哪个元素。也就是说，向量b表示元素的列，例如：
b <- c(1, 3, 1)
如果我们想提取指定的数据点，我们可以简单地索引每个想要的元素，如下所示：
a[cbind(1:nrow(a),b)]
[1] 1 8 3
我想用负指数向量来做。也就是说，R应该返回一个矩阵，其中每一行省略一个元素(在本例中，是一个3x2矩阵)。如
浏览 0提问于2019-08-12得票数 1
回答已采纳
我有一个接受两个参数a和b的函数f。我有一个值列表x，我想为a插入这些值，而b是固定的。在Ruby中，我会使用map，如下所示：
x.map {|el| f(el,3) }
你怎么用R写这个？
浏览 0提问于2012-03-08得票数 2
回答已采纳
3回答
R中的压缩列表
、、
作为指导原则，我更喜欢使用lapply或*ply (来自plyr)在列表元素上应用函数，而不是显式地遍历它们。但是，当我必须一次处理一个列表时，这种方法工作得很好。当函数有多个参数时，我通常会做一个循环。
我想知道是否有可能有一个更干净的构造，仍然是功能性质的。一种可能的方法是定义一个类似于Python的函数zip(x，y)，它接受输入列表，并返回一个列表，该列表的第i个元素是list(x，y)，然后将该函数应用于该列表。但我的问题是，我是否使用了最干净的方法。我担心的不是性能优化，而是清晰度/优雅。
下面是一个简单的例子。
A <- as.list(0:9)
浏览 0提问于2011-05-27得票数 18
回答已采纳
2回答
在R中跨列应用函数
、、、
假设我在R中有一个数据帧(df)： df <- data.frame(x = rnorm(5, mean = 5), u = rnorm(5, mean = 5), y = rnorm(5, mean = 5), z = rnorm(5, mean = 5))
print(df) 我想得到第一列(x)和其他列之间的平均绝对差(MAD)。 使用此函数，我可以找到第一列和另一列(例如第二列)之间的MAD： mad <- function(dat){
abs(mean(dat[,1] - dat[,2], na.rm = TRUE))
}
mad(dat = df) 但我
浏览 19提问于2021-04-20得票数 3
回答已采纳
2回答
我有一个简单的列表和一个相同长度的简单向量。我想将向量的ith元素添加到列表的ith元素中。有比这个for循环做得更好的方法吗？
test <- list(element1=list(a=1,b=2,a1=8),
element2=list(a=9,d=17))
vec <- c(12,25)
for (i in 1:length(test)){
test[[i]] <- c(test[[i]],vec[i])
}
浏览 1提问于2012-11-14得票数 4
2回答
我用这个函数来做一些探索性的分析。
nums <- sapply(db, is.numeric)
sapply(db[,nums], function(x) {
nome <- as.character(names(x))
hist(x)
lines(density(x, na.rm = T))
})
如何将图中列的名称打印为x轴？我尝试过使用，但我无法理解函数的第二部分在本例中如何工作
浏览 1提问于2016-04-15得票数 0
回答已采纳
原谅我之前有人问过这个..。
我有多个列表，我希望合并如下
A <- list(c("R", "L", "*", "T", "M", "S", "S", "S", "S", "Y"),
c("G", "A", "G", "P", "P", "V", "P"),
c("E", "G
浏览 5提问于2017-04-26得票数 0
回答已采纳
library(rvest)
urls <- c("https://www.r-bloggers.com", "https://www.stackoverflow.com")
docsFor <- list()
for(url in urls){
docsFor[[url]] <- read_html(url)
}
docsFor[[1]]
问:我怎样才能对sapply/vapply做同样的事情？
使用sapply(urls, read_html)不起作用，因此我选择了vapply。如果我是正确的，我将需要像externalptr(0)
浏览 4提问于2019-09-22得票数 4
回答已采纳
具体来说，我想检查一列中条目的子字符串是否与另一列条目中的一个单词完全匹配，但非子字符串部分不能太长(超过四个字符)。
如果我有数据
df <- data.frame("name"=c("Denzel Washington","Andrew Garfield Junior","Ryan G Gosling"),"check"=c("Denzelboss","Garfield","Goslin"))
我希望结果是
True, True, False
第一个是因为两
浏览 4提问于2017-08-02得票数 2
回答已采纳
我知道这是一个愚蠢的新手问题，但我已经尝试了很长一段时间，需要一些意见。基本上，我正在尝试学习如何使用apply系列来省略for循环，特别是如何设置调用，使矩阵的列作为函数的参数。我将使用对rbinom函数的简单调用作为示例。
示例:这个for循环运行得很好。数据是一组整数和一组概率
success <- rep(-1, times=10) # initialize result var
num <- sample.int(20, 10) # get 10 rand
浏览 2提问于2021-03-05得票数 0
我已经创建了下面的循环，但是我想把它写成一个lapply函数。这个是可能的吗？我正在尝试应用函数，但还没有完全掌握它的诀窍。
Decay <- function(x, decay=y) stats::filter(x, decay, method = "recursive")
d<-iris[,c("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width")]
DecayX <- c(0.1,0.3,0.6,0.8,0.95)
DecVa
浏览 4提问于2018-08-13得票数 4
回答已采纳
2回答
从两个文档库开始，每个文档的数量相同：
library(tm)
c1 <- Corpus(VectorSource(c("document 1 corpus 1 text", "document 2 corpus 1 text")))
c2 <- Corpus(VectorSource(c("document 1 corpus 2 text", "document 2 corpus 2 text")))
我想要一个单一语料库的相同数量的文件与术语结合元素-明智地形成一个单一的文件，相当于：
c3 <- Corpu
浏览 4提问于2016-08-19得票数 0
回答已采纳
我正在尝试使用apply函数。我有一个名为rowcosty()的函数：
rowcosty <- function(p,x,y){
return (-1*y*log(hyp(p,x))-(1-y)*log(1-hyp(p,x)))
}
hyp <- function(p, input){
return (sigmoid(p %*% input))
}
sigmoid <- function(y){
return (1/(1 + exp(-y)))
}
在我的例子中，p是长度为5000的向量，x是维数为5000 x 400的矩阵，y也是长度为5000的
浏览 0提问于2014-03-16得票数 1
回答已采纳
2回答
我有两个data.frames，如下所示：
DF1
Col1 Col2 Col3 Col4
0.1854 0.1660 0.1997 0.4632
0.1760 0.1336 0.1985 0.4496
0.1737 0.1316 0.1943 0.4446
0.1660 0.1300 0.1896 0.4439
DF2
Col1 Col2 Col3 Col4
0.2456 0.2107 0.2688 0.5079
0
浏览 2提问于2013-03-11得票数 3
回答已采纳
我想运行一个函数，它查看两个向量，根据两个向量中的值的符号返回不同的值。我已经写了一个函数来比较两个值，但是我想对两个向量运行这个函数。所以我使用了sapply，但我得到了与预期不同的结果。
bear.correction<- function(x,y){
if(x > 0 && y < 0){
return(90)
}else if(x < 0 &&
浏览 0提问于2013-01-07得票数 7
回答已采纳
1回答
我有一个由prcomp计算的主分量旋转向量的子列表，其中每个列表项对于每个类都是一个Nx2数组(即两个列向量)。
使用这些向量，我想将一些类似结构的数据投射到一个类列表中，每个类项都包含具有维度NxMxT的数组，其中T是试验的次数。
我的问题是，我可以用apply及其变体编写简单的向量化函数，但是我很难把它推广到每个列表上。
示例数据：
somedata <- list(array(rnorm(100),dim=c(5,4,5)),array(rnorm(100),dim=c(5,4,5)))
somevectors <- list(array(rnorm(10),dim=c(5,
浏览 0提问于2013-11-09得票数 0
回答已采纳
chance<-c(0.11,0.12,0.13,0.14,0.15)
aaa<-function(x,y) {
assignChance <- function (a,b,v) {
if (a == 0)
if (b == 0) 1-v
else v
else
if (b == 0) 0
else 1
}
sapply(x,assignChance,y,chance) # this is wrong
}
aaa(c(1,1,0,0,1),c(1,1,1,0,0))
我期望结果是: 1，1，0.13，
浏览 0提问于2013-04-18得票数 2
回答已采纳
我有一个函数，它接受Date-object并返回一个。但是，当我使用mapply函数将该函数应用于data.frame列时，我遇到了问题:我没有像预期的那样得到日期对象，而是数字。你知道怎么把它们转换成Date-objects吗？另外，我会对这里发生的事情感兴趣。非常感谢您的帮助！
最小示例：
#Define simple function that takes a date-object and returns a date-object
add_day <- function(dat) {return(dat + 1)}
#Set up data.frame with two da
浏览 0提问于2011-10-09得票数 10
回答已采纳
3回答
我很幸运地将某些函数向量化，这对于干净的代码、避免循环和速度都是很好的。
但是，我无法根据函数的输入来向量化任何将数据设置为子函数的函数。
示例
这个函数在接收元素时运行良好。
test_funct <- function(sep_wid, sep_len) {
iris %>% filter(Sepal.Width > sep_wid & Sepal.Length < sep_len) %>% .$Petal.Width %>% sum
}
test_funct(4, 6)
# [1] 0.7 # This works nicely
但
浏览 0提问于2019-04-08得票数 6
回答已采纳
我一直在尝试许多方法，但我没有办法解决这个问题。我找到了，和，但我无法使它们适应我的问题。
我想传递两个字符串向量的组合，其中'pop‘的每个元素将与'territ’的每个元素结合，并通过一个数字向量(“enroll_lines”)在列“enroll”的子集上进行组合。因此，我想在svyby函数中进行三次迭代:两次在字符串向量上，一次在子集数值向量上。
我想要一个数据框架，其中包含设计对象“dclus1”上三个向量的所有结果组合。
提前感谢您的关注和努力。
data(api)
df <- apiclus1
df$pais <- 0
df$pop_tot <-
浏览 0提问于2019-09-25得票数 5
1回答
用另一个列表建立索引的嵌套列表
、、、、
我正面对R中一些嵌套的列表蓝调。
我有两个嵌套列表，如下所示，但每个嵌套列表的大小都是2亿。我感兴趣的是用bIdx索引aaa，即根据bIdx中指定的索引从aaa中提取相应的条目。例如，操作完成后，我们将从aaa[6]中提取1,8,10条条目，即"TopNews“、”见解“和”意见“。
由于列表是巨大的，基于迭代列表的解决方案不是一个选项，我想要一个基于lapply (或变体)的解决方案。
任何帮助都是非常感谢的！
aaa
[[1]]
character(0)
[[2]]
character(0)
[[3]]
character(0)
[[4]]
[1] "TopNews&
浏览 2提问于2017-03-30得票数 1
回答已采纳
我有一个函数，它有两个参数：
my.function <- function(name, value) {
print(name)
print(value) #using print as example
}
我有一个整数向量，它有名称和值：
freq.chars <- table(sample(LETTERS[1:5], 10, replace=TRUE))
我想使用lapply将频率应用于freq.chars，其中每个项目的名称作为x传递，值(在本例中为my.function )作为y传递。
当我尝试的时候，
lapply(names(freq.chars),
浏览 1提问于2015-01-26得票数 1
我正在尝试计算数据帧中每一列的百分位数，以将其存储为新数据帧中的行。然后，我将根据我的数据中的不同子组，将这个新的df绘制为由不同包装的折线图。
但是我当前的尝试结果是一个空的，没有更新的df。
我可以在单个指定的列上执行以下操作：
dataframe:
col1
1 15
2 24
3 23
4 25
5 25
sequence <- seq(from=0, to=1, by=0.01)
quantiles_df <- as.data.frame(quantile(df$col1, sequence))
我可以执行以下操作来绘制多个直方图，使
浏览 0提问于2019-01-19得票数 0
例如，我有一个具有不同长度(和一些NULL)的向量的大列表，并且希望找到第一个包含两个元素的list元素。与 post一样，我知道使用list可以使用类似的方法，方法是使用sapply()并添加第一个结果。由于上面链接的post中使用match()的解决方案在本例中不起作用，我很好奇是否有一种更优雅(计算效率更高)的方法来实现这一点。
可复制的例子
# some example data
x <- list(NULL, NULL, NA, rep("foo", 6), c("we want", "this one"),
浏览 3提问于2014-08-03得票数 4
回答已采纳
我有两个列：fp (假阳性)和fn (假阴性)，如下所示：
falsepos <- c(.05, .25, .5)
falseneg <- c(.01, .05, .1)
x_name <- "fp"
y_name <- "fn"
df <- data.frame(falsepos,falseneg)
names(df) <- c(x_name, y_name)
我还编写了一些关于Bayes规则的函数，如下所示：
bayesrule <- function(baserate = .03,
浏览 4提问于2020-04-10得票数 3
回答已采纳
1回答
我知道这个话题出现过几次，但例子往往比较复杂，我希望对这种简单的情况有一个答案(或一组可能的解决方案)。我还在想着R和一般的编程。所以这里我想使用lapply函数，或者是一个简单的循环data list，它是一个包含三个向量列表的列表。
data1 <- list(rnorm(100),rnorm(100),rnorm(100))
data2 <- list(rnorm(100),rnorm(100),rnorm(100))
data3 <- list(rnorm(100),rnorm(100),rnorm(100))
data <- list(data1,data2
浏览 0提问于2015-07-22得票数 21
回答已采纳
如果我有一个向量：
c(17,18,19)
我想要得到
c(17:17+5, 18:18+5, 19:19+5)
或者换句话说：
c(17, 18, 19, 20, 21, 22, 18, 19, 20, 21, 22, 23, 19, 20, 21, 22, 23, 24)
我该如何在一行中完成这个任务呢？也许我遗漏了一个重要的R函数？这可以通过sapply来完成，但是我想知道是否有非迭代的方法。
浏览 0提问于2014-07-19得票数 0
1回答
我有一个函数，它接受两个向量并计算一个数值(就像cor相关性那样)。但是，我有两个数据集，大约有6000列(这两个数据集具有相同的维度)，其中函数应该返回一个包含相关值的向量。
带有循环的代码如下所示：
set.seed(123)
m=matrix(rnorm(9),ncol=3)
n=matrix(rnorm(9,10),ncol=3)
colNumber=dim(m)[2]
ReturnData=rep(NA,colNumber)
for (i in 1:colNumber){
ReturnData[i]=cor(m[,i],n[,i])
}
这很好，但出于效率原因，我想使用应
浏览 3提问于2014-10-24得票数 0
回答已采纳
假设我有一个包含三个数据帧的列表c：
> c
$first
a b
1 1 2
2 2 3
3 3 4
$second
a b
1 2 4
2 4 6
3 6 8
$third
a b
1 3 6
2
浏览 0提问于2020-01-07得票数 0
2回答
我想使用应用程序族( R)中的一个函数对两个矩阵应用两个参数的函数。我想这是可能的。我说的对吗？否则，我似乎必须把这两个矩阵放在一起，并根据新的矩阵重新定义我的函数。
下面是我想要做的事情的一个例子：
a <- matrix(1:6,nrow = 3,ncol = 2)
b <- matrix(7:12,nrow = 3,ncol = 2)
foo <- function(vec1,vec2){
d <- sample(vec1,1)
f <- sample(vec2,1)
result <- c(d,f)
return(resul
浏览 5提问于2014-03-15得票数 1
回答已采纳
2回答
我想将一个函数应用到一个具有多个参数的数据表中。
假设：
dt<-as.data.table(matrix(c(201,202,201,201,202,202,4,6,9,2,4,5,6,9,7,3,2,1), nrow = 6, ncol = 3, byrow = FALSE))
V1 V2 V3
1: 201 4 6
2: 202 6 9
3: 201 9 7
4: 201 2 3
5: 202 4 2
6: 202 5 1
我想应用一个有3个参数的函数。为了简单起见，让我们把它们加起来。
很明显，解决方案不是dt[,sum:=V1+V2+V3]
如
浏览 2提问于2017-01-18得票数 0
回答已采纳
4回答
我希望将具有不同值的多个变量的函数应用到列表中。我知道如何用一个变化的变量来完成这个任务。
sapply(c(1:10), function(x) x * 2)
# [1] 2 4 6 8 10 12 14 16 18 20
但不是两个人。我首先手动向您展示我想要的内容(实际上，我使用lapply()，但sapply()在这方面更具有概括性)：
# manual
a <- sapply(c(1:10), function(x, y=2) x * y)
b <- sapply(c(1:10), function(x, y=3) x * y)
c <- sapply(c(
浏览 1提问于2018-02-03得票数 7
回答已采纳
我想弄清楚这件事有点困难。
我有一个包含三个数据的列表：
list_of_dataframes = list(iris, trees, mtcars)
我需要使用mapply返回一个列表，其中：
第一个元素是list_of_dataframe的第一个数据帧的第一列。
第二个元素是list_of_dataframe的第二个数据帧的第二个列。
第三个元素是list_of_dataframe的第三个数据帧的第三列。
浏览 0提问于2017-09-16得票数 0
我有这个数据集(假设它很大，有许多行和列)
df = data.frame(x = c(1,2,3,4),
y = c(2,4,5,6) )
我想用变量x，y等的名字变成这样.具有简单的函数
df = data.frame(x = c('x_1','x_2','x_3','x_4'),
y = c('y_2','y_4','y_5','y_6') )
感谢你的帮助
浏览 21提问于2022-10-13得票数 1
回答已采纳
2回答
我是R编程新手，我知道我可以编写一个循环来完成这个任务，但是我所读到的每一篇文章都说，为了简单起见，最好避免循环并使用apply。
我有一个矩阵，我想在矩阵中的每个元素上运行这个函数。
cellresidue <- function(i,j){
result <- (cluster[i,j] - cluster.I[i,] - cluster.J[j,] - cluster.IJ)/(cluster.N*cluster.M)
return (result)
}
i= element row
j= element column
cluster.J is a matrix o
浏览 1提问于2013-11-23得票数 2
回答已采纳
我见过在data.table中使用.SD和lapply的示例，其简单函数如下所示：
DT[ , .(b,d,e) := lapply(.SD, tan), .SDcols = .(b,d,e)]
但是我不确定如何在多参数函数中使用特定于列的参数。例如，我有一个winsorize函数，我想将它应用于数据表中的列的子集，但使用特定于列的百分位数，例如
library(DescTools)
wlevel <- list(b=list(lower=0.01,upper=0.99), c=list(upper=0.02,upper=0.95))
DT[ , .(b,c) :=lapply(.SD,
浏览 5提问于2018-08-26得票数 2
我有两个向量x和w。向量w是与x长度相同的权重的数值向量。如何获得向量x中相邻元素的加权平均(第一个元素和第二个元素的加权平均，然后第二个和第三个元素的加权平均，.....例如，这些向量如下所示：
x = c(0.0001560653, 0.0001591889, 0.0001599698, 0.0001607507, 0.0001623125,
0.0001685597, 0.0002793819, 0.0006336307, 0.0092017241, 0.0092079042,
0.0266525118, 0.0266889564, 0.0454923285, 0
浏览 1提问于2012-09-24得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
