R 我能';t从应用函数中取消列表
在R中使用以下代码:R 我能';t从应用函数中取消列表,r,list,apply,R,List,Apply,在R中使用以下代码: maffa_hex = apply(object,2,maffa) 生成:(有6000行列表对象) unlist(maffa\u hex)或maffa\u hex=apply(对象,2,unlist(maffa)) 或其他替代方案,都无济于事。我无法获得数值并使用它们进行绘图。列表的列表有6000行。我正在使用的函数 是 maffa该功能没有处理NAs,因此取消列表不起作用。有一整列的NAs。这导致了未上市的问题。谢谢大家的及时回复。实际上,我意识到了这一点。您发布的函数
maffa_hex = apply(object,2,maffa)
生成:(有6000行列表对象)
unlist(maffa\u hex)
或maffa\u hex=apply(对象,2,unlist(maffa))
或其他替代方案,都无济于事。我无法获得数值并使用它们进行绘图。列表的列表有6000行。我正在使用的函数
是
maffa该功能没有处理NAs,因此取消列表不起作用。有一整列的NAs。这导致了未上市的问题。谢谢大家的及时回复。实际上,我意识到了这一点。您发布的函数不会返回任何内容。将return(maf)
放在函数的末尾。您显示的数据没有列出:list('AX-15'=0.4758193,'AX-16'=0.006438442,'AX-17'=0.1966381,'AX-18'=0.00172522)%>%unlist
您能给出一个最小的可重复示例吗?查看您提供的内容,unlist
。另外,在您的maffa
函数中,如果表的长度大于一,会发生什么?从函数来看,它不起作用
$`AX-15`
[1] 0.4758193
$`AX-16`
[1] 0.006438442
$`AX-17`
[1] 0.1966381
$`AX-18`
[1] 0.00172522
maffa<-function(x){
tabx<-table(x)
if(length(tabx)==1){
if(names(tabx)=="0"){
maf <- 0
}
if(names(tabx)=="1"){
maf <- 0.5
}}
return(NCmisc::Unlist(maf))
}