R报错Error in as.data.frame.default(x[[i]], optional = TRUE) :

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

最近在做多样性分析的时候，代码总是报错，错误为Error in as.data.frame.default(x[[i]], optional = TRUE) :
  cannot coerce class ‘"function"’ to a data.frame，但是之前是可以运行的，数据换了很多格式还是不行，所以请各位大佬指点，到底是啥原因，多谢大佬！
代码如下：
setwd("D:/RDATA")
otu <- read.csv('7samplespearman.csv', row.names = 1, sep = '\t', stringsAsFactors = FALSE, check.names = FALSE)
otu <- t(otu)
library("vegan")
library("picante")
alpha <- function(x, tree = NULL, base = exp(1)) {
  est <- estimateR(x)
  Richness <- est[1, ]
  Chao1 <- est[2, ]
  ACE <- est[4, ]
  Shannon <- diversity(x, index = 'shannon', base = base)
  Simpson <- diversity(x, index = 'simpson')   
  Pielou <- Shannon / log(Richness, base)
  goods_coverage <- 1 - rowSums(x == 1) / rowSums(x)
  result <- data.frame(Richness, Shannon, Simpson, Pielou, Chao1, ACE, goods_coverage)
  if (!is.null(tree)) {
    PD_whole_tree <- pd(x, tree, include.root = FALSE)[1]
    names(PD_whole_tree) <- 'PD_whole_tree'
    result <- cbind(result, PD_whole_tree)}
  result}
write.csv(alpha, 'D:/RDATA/otu_alpha.csv', quote = FALSE)
Error in as.data.frame.default(x[[i]], optional = TRUE) :
  cannot coerce class ‘"function"’ to a data.frame

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Optional Default Option fault Frame

kkykim 发表于 2019-11-26 09:23
最近在做多样性分析的时候，代码总是报错，错误为Error in as.data.frame.default(x[], optional = TRUE) : ...

你的alpha是函数，不是data.frame

Whig 发表于 2019-11-26 09:52
你的alpha是函数，不是data.frame

这个错误应该是说这行代码 alpha <- function(x, tree = NULL, base = exp(1)) 中的function不是data.frame吧？

write.csv的第一个参数是data.frame，不能是函数名，alpha是函数名

Whig 发表于 2019-11-26 19:50
write.csv的第一个参数是data.frame，不能是函数名，alpha是函数名

解决了，多谢大佬

kkykim 发表于 2019-11-27 17:05
解决了，多谢大佬

请问一下楼主 怎么解决的那。是如何将结果导出的？

kkykim 发表于 2019-11-27 17:05
解决了，多谢大佬

请问是怎么解决的

和大家说下解决方案，有2种可能
1就是写data.frame的时候，里面的变量名打错了
2.就是你是用的变量名可能是R的默认函数

以上两点确认了基本可以解决