回答情况：
提问时间：
问题标签：
在刚刚了解到循环是不好的之后，我现在正在尝试在lapply中使用lapply。我有一系列按顺序编号的数据帧。CopyNumber.y"), row.names = c(NA, 6L), class = "data.frame")lst <- mget(ls(pattern='total\\d+'))
lapply(df, function(x){
#Mark out diploid a
浏览 5提问于2015-08-16得票数 1
显然，我仍然不能完全理解lapply是如何工作的。当然，它会在列表元素上应用一个函数并返回一个列表。然而，当它与自定义函数一起使用时，我不太确定如何有效地使用它。### result that I want to get just for one data.frame但是我不能把这个和lapply一起使用，我试过了：
lapply(mylist,function(x) substitute(dcast(x,idx~x,value_var="
浏览 0修改于2017-05-23得票数 4
回答已采纳
我以为我在处理代码时很优雅，直到遇到了lapply函数的问题。我用dput输出样本。请注意，我使用的是data.table而不是data.frame。lev_index = lev_index + 1 match(x, levels)}
我知道我可以让它在for循环中工作，但是我想我会尝试使用lapply</em
浏览 0修改于2018-08-09得票数 1
回答已采纳
2回答
问题是:我不能像我想的那样使用lapply，因为没有像预期的那样产生结果。
我确信这是一个相当简单的问题，但我无法找到解决它的方法，而且我对此感到非常沮丧。
浏览 0修改于2017-07-10得票数 0
1回答
attach(airquality)如果我运行还显示了相同的错误。lapply(s, function(x)colMeans(s[,"Ozone","Solar.R","Wind"])
这段代码运
浏览 5修改于2016-01-08得票数 1
3回答
如果我在做 column.name <- #insert code here如何访问lapply函数当前正在处理的列的名称为了澄清，是的，column.name将随着lapply的每一次迭代而改变。
浏览 3修改于2014-07-17得票数 9
回答已采纳
ind_d) test1 <- mapply(function(x,y) x[y, ], data, train)test2 <- lapply
浏览 4提问于2018-01-05得票数 6
回答已采纳
1回答
下面是使用lapply生成数据和结果的代码：#outcomecovar1", "covar2")
models <- lapply
浏览 3提问于2018-11-22得票数 0
1回答
我有一个标签名为df，包含了几个分类器的结果:准确性，Npv，Ppv等。Points = Accuracy* 0,20 + Specificity *0,10 + Sensitivity *0.35 + Neg Pre Value*0.10 + Pos Pred value*0.25)df$Points <- apply(df[,3:7],1,make.calc)我还以这样的方式定义了我的函数make.calc：
浏览 0修改于2019-09-14得票数 0
回答已采纳
1回答
ba2 <- strsplit(ba,'')# Error in lapply(ba2, function(x) x[2]) <- "x" : 我该如何解决这个问题呢？有没有一种结合使用<-和lapply的方法
浏览 0提问于2017-10-03得票数 2
results <- lapply(store, interp, x = lon, y = lat, z = precip)
但是我得到了错误消息Error in interp(x = lon, y =
浏览 3修改于2016-11-05得票数 0
1回答
我正在尝试使用以下代码清理所有内容并将其聚合到一个数据帧中： fileNames <- list.files(path = dir , full.names = TRUE)return(popData)dirNames <- list.dirs()
metaPopData <- lapp
浏览 0修改于2015-07-08得票数 1
1回答
lapply不起作用，b列根本不变。1,2,3,4,5,1,1,1)c<- data.frame(a,b)
lapplyc1 1 TRUE3 3 FALSE5 5 TRUE7 1 FALSE仍然想知道为什么lapply
浏览 3提问于2017-02-23得票数 0
data1<-data.frame(x=1:5,y=2:6)lapply(1:length(onevector),function(i) {data1[,i]<-data1我尝试为dataset data1的每一列减去一个元素，我想这样做：data1[,2]<- data1[,2] -2
我的问题更多的是关于理解lapply和for之间的区别，而不是
浏览 1修改于2016-02-25得票数 0
我想让使用lapply()的bit更加优雅…(例如，one like会更好)，而不是之前必须设置一个函数。也就是说，有没有一个标准函数，我可以在其中使用[,c(1:4)]或类似的参数。下面基本上只对拆分创建的列表中的每个元素使用前4列，因此我必须创建一个函数来执行此操作，但我希望它在某种程度上更优雅……
g <- lapply
浏览 2提问于2012-09-27得票数 2
回答已采纳
1回答
是否可以替换如下的for循环：library(quanteda.dictionaries)
df <- data.frame(text = c("Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a
浏览 1修改于2019-02-12得票数 1
回答已采纳
我使用readxl和lapply将多个.xlsx文件导入到我的环境中。/Data Folder", pattern = '*.xlsx') df.list <- lapply(file.list, read_excel)
我已经检查了我输入的路径是否仍然正确，并且没有错误地更改它
浏览 1提问于2018-06-13得票数 1
回答已采纳
1回答
[i]]$X4 %in% causal_snp, 1, 0)}pval_bis <- lapply(pval, function(x) x$classe=ifelse(x$X4 %in% causal_snp, 1, 0))
在lapply函数中，我可以修改哪些内容来将所有列保留在子列表中，并在每个子列表中添加新列？
浏览 1修改于2016-04-26得票数 0
回答已采纳
1回答
function(sym) try(getSymbols(sym, from="2012-03-01",ClosePrices <- do.call(merge, lapplySPY.Close DIA.Close2012-07-02 136.51 128.36rsipx <- do.call(merge, lapply在这种情况下，ADX产生4个值(DIp、DIn、DX、ADX)：
adxpx <
浏览 2提问于2012-07-09得票数 1
我想使用一个小函数与lapply()相结合的方式为数据帧添加标签。x)
f.generate.name(df1)
lapply如何调整lapply()函数或我创建的函数以获得所需的结果？
浏览 0修改于2020-05-30得票数 0
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号