| 查看: 12406 | 回复: 7 | ||
zhenlisha主管区长
|
[求助]
VPA分析（Vegan包Varpart程序） 已有1人参与
|
|
这是varpart自带example，求大神解读：三个因子，为什么跑完程序图中会出现四个圈？ data(mite) data(mite.env) data(mite.pcnm) # two explanatory data frames -- hellinger-transform y mod <- varpart(mite, mite.env, mite.pcnm, transfo="hel" ) mod ## use fill colours showvarparts(2, bg = c("hotpink","skyblue" )) plot(mod, bg = c("hotpink","skyblue" )) ## test fraction [a] using partial rda, '~ .' in formula tells to use ## all variables of data mite.env. afrac <- rda(decostand(mite, "hel" ) , mite.env, mite.pcnm) anova(afrac) ## rsquareadj gives the same result as component [a] of varpart rsquareadj(afrac) ## partition bray-curtis dissimilarities varpart(vegdist(mite), mite.env, mite.pcnm) ## three explanatory tables with formula interface mod <- varpart(mite, ~ subsdens + watrcont, ~ substrate + shrub + topo, mite.pcnm, data=mite.env, transfo="hel" ) mod showvarparts(3, bg=2:4) plot(mod, bg=2:4) ## use rda to test fraction [a] ## matrix can be an argument in formula rda.result <- rda(decostand(mite, "hell" ) ~ subsdens + watrcont + condition(substrate + shrub + topo) + condition(as.matrix(mite.pcnm)), data = mite.env) anova(rda.result) ## four explanatory tables mod <- varpart(mite, ~ subsdens + watrcont, ~substrate + shrub + topo, mite.pcnm[,1:11], mite.pcnm[,12:22], data=mite.env, transfo="hel" ) mod plot(mod, bg=2:5) ## show values for all partitions by putting 'cutoff' low enough: plot(mod, cutoff = -inf, cex = 0.7, bg=2:5) [ last edited by jjdg on 2019-5-7 at 09:11 ] [ Last edited by jjdg on 2019-5-7 at 09:11 ] |
回复此楼» 猜你喜欢
285求调剂
已经有5人回复
-
309求调剂
已经有19人回复
-
08工科275分求调剂
已经有12人回复
-
esi高被引论文是不是能对中标有所加分和帮助呢
已经有3人回复
-
求调剂推荐 材料 304
已经有19人回复
-
265求调剂
已经有11人回复
-
292分，材料与化工，申请调剂
已经有9人回复
-
调剂
已经有5人回复
-
英一数一408，总分284，二战真诚求调剂
已经有12人回复
-
295材料工程专硕求调剂
已经有13人回复
xp198766
主管区长
小木虫职业打酱油滴~~！
- 应助: 5 (幼儿园)
- 金币: 6525.1
- 散金: 262
- 红花: 25
- 帖子: 2193
- 在线: 554小时
- 虫号: 1046859
- 注册: 2010-06-24
- 性别: GG
- 专业: 环境微生物学
2楼2019-04-22 08:24:09
zhenlisha
兑换贵宾
- 应助: 11 (小学生)
- 金币: 200.8
- 红花: 5
- 帖子: 70
- 在线: 38.8小时
- 虫号: 1421444
- 注册: 2011-09-28
- 性别: MM
- 专业: 环境微生物学
3楼2019-05-06 15:44:13
zhenlisha
版主
- 应助: 11 (小学生)
- 金币: 200.8
- 红花: 5
- 帖子: 70
- 在线: 38.8小时
- 虫号: 1421444
- 注册: 2011-09-28
- 性别: MM
- 专业: 环境微生物学
| 一直看赖老师的书和文章，听课的感觉完全不同。老师很专业，讲解很耐心，小白也收获很多。帮老师宣传一下，有兴趣的朋友们可以报名。http://mp.weixin.qq.com/s?__biz= ... 3&srcid=#rd |
4楼2019-05-27 11:14:53
5楼2019-08-29 21:01:09
changling
管理员
- 应助: 0 (幼儿园)
- 金币: 436
- 散金: 5
- 红花: 1
- 帖子: 165
- 在线: 7.9小时
- 虫号: 872178
- 注册: 2009-10-14
- 性别: MM
- 专业: 生态系统生态学
6楼2020-05-01 13:22:25
chenhezhou
主管区长
- 应助: 0 (幼儿园)
- 金币: 803.3
- 散金: 88
- 红花: 2
- 帖子: 228
- 在线: 105小时
- 虫号: 3773922
- 注册: 2015-03-30
- 性别: GG
- 专业: 环境工程
7楼2020-07-08 15:58:07
8楼2021-03-28 20:22:20
