24小时热门版块排行榜    

查看: 1438  |  回复: 4
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

悠悠飘杨

新虫 (小有名气)

[求助] 请问哪位大神会用R软件计算微生物多样性指数? 已有1人参与

请问哪位大神会用R软件计算微生物多样性指数?我的一些高通量实验数据想做一些特殊的分析,为此需要学习一下用R软件计算微生物多样性指数,
请会做的大神把详细的过程写给我好吗?非常感谢!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

tanglianfa

金虫 (著名写手)

同求,找到的有不少差距
5楼2021-05-15 11:22:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 5 个回答

yanjinjg

金虫 (小有名气)

【答案】应助回帖

library(vegan)
otu=read.table("otu.txt",header=T)
otu=otu.matrix(otu)#将数据类型转化为矩阵
Shannon.Wiener <- diversity(otu,index="shannon"#计算香农指数
Simpson <- diversity(otu,index="simpson"
Inverse.Simpson <- diversity(otu,index="inv"
S <- specnumber(otu)#计算物种累计数
plot(S)
J <- Shannon.Wiener/log(S) #计算Pielou均匀度指数
J
2楼2015-07-06 09:54:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yanjinjg

金虫 (小有名气)

【答案】应助回帖

otu=read.table("otu.txt",header=T)
otu=otu.matrix(otu) #将数据类型转化为矩阵
Shannon.Wiener <- diversity(otu,index="shannon" #计算香农指数
Simpson <- diversity(otu,index="simpson"
Inverse.Simpson <- diversity(otu,index="inv"
S <- specnumber(otu)  #计算物种累计数
plot(S)
J <- Shannon.Wiener/log(S)   #计算Pielou均匀度指数
J
3楼2015-07-06 09:56:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yanjinjg

金虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★
悠悠飘杨: 金币+7, ★★★★★最佳答案, 非常感谢 2015-07-07 08:25:51
不知道怎么回事,半括号发上去成笑脸了,你在跑R程序时候自动补全吧
4楼2015-07-06 09:57:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +12 医学老男孩 2026-08-13 31/1550 2026-08-14 07:47 by 医学老男孩
[考博] 澳大利亚 Murdoch University 全奖博士招生(3个名额)地质化工冶金领域 +69 AI8RaGaPaSCR 2026-08-07 72/3600 2026-08-14 07:45 by u5Hy7ZmCpaka
[基金申请] 我的国基提前知道中了,可是同事的操作让我实在接受不了,怎么会有这样的人 +10 家与远方 2026-08-10 15/750 2026-08-14 02:08 by 绵羊哥哥
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +3 启萌科技 2026-08-12 11/550 2026-08-13 22:57 by 启萌科技
[基金申请] 小木虫上这么多卖论文的,真有人买论文么?感觉没必要啊 +9 Tide man 2026-08-10 10/500 2026-08-13 20:33 by 温淼淼淼
[基金申请] 有时候,自然基金真的不能太认真 (我的申报经验) +4 majunge000 2026-08-11 6/300 2026-08-13 16:50 by 四季常青藤
[基金申请] filecode +14 documentary 2026-08-10 16/800 2026-08-13 16:39 by 润生71
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了,巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 结合人工智能,周易传统文化,filecode打分制来了,3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[论文投稿] 职称评审,求友友推荐见刊最快的期刊 +4 工厂打螺丝 2026-08-08 4/200 2026-08-12 09:18 by hansi2025
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分? +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[硕博家园] 读博的好处 +3 lnee 2026-08-11 3/150 2026-08-11 18:10 by 希望我好好的
[基金申请] 什么时候出结果,有咨询渠道??? +3 Tide man 2026-08-11 3/150 2026-08-11 17:54 by kudofaye
[基金申请] 确定了,国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 2026国自然放榜时间 +9 布布和一二 2026-08-08 9/450 2026-08-10 11:22 by xxxx2020
[基金申请] 国基金的申报应该改成非等额制,评价高的钱多评价低的钱少,但是增加资助率 +7 a089 2026-08-07 7/350 2026-08-08 18:05 by gltch
[基金申请] 关于filecode +4 布布和一二 2026-08-07 7/350 2026-08-07 22:55 by zhanghaozhu
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
信息提示
请填处理意见