24小时热门版块排行榜    

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

推广楼304

新虫 (初入文坛)

[交流] R语言画PCA图,添加椭圆 已有2人参与

大家好;
     最近需要使用R语言画PCA图,而且要用椭圆把不同分组圈起来,请问椭圆怎么加啊。下面是看得网上的程序,但是不对,ellipse是加椭圆的命令,但是我画的图没有椭圆,是不是需要加载什么包啊。求教。

group = read.table("group.txt", header=F, row.names= 1, sep="\t"
otu_table_profile.sort = read.table("otu_table_profile.sort.txt", row.names= 1,  header=T, sep="\t"
idx = rownames(group) %in% colnames(otu_table_profile.sort)
sub_group = group[idx,]   ##idx组名
count = otu_table_profile.sort[, rownames(sub_group)]
otu.pca <- prcomp(t(count), scale. = TRUE)
ggbiplot(otu.pca, obs.scale = 1, var.scale = 1,groups = group$genotype, ellipse = TRUE,ellipse.prob = 0.68,labels =NULL, labels.size = 3, alpha = 1,var.axes = F)
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zeyuyong

铜虫 (小有名气)

★
小木虫: 金币+0.5, 给个红包,谢谢回帖
ggplot可以画出来~我画过~

发自小木虫Android客户端
暂无
4楼2018-09-24 08:38:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答

deephill

铁杆木虫 (职业作家)

★
小木虫: 金币+0.5, 给个红包,谢谢回帖
感觉不太好画,椭圆在 ps中手工画,大小、位置随便设定
2楼2018-06-24 22:21:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

推广楼304

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by deephill at 2018-06-24 22:21:30
感觉不太好画,椭圆在 ps中手工画,大小、位置随便设定

椭圆不是随便画的啊,是有置信区间的
3楼2018-06-25 09:16:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 BMTdnp4OJO9f 2026-11-06 4/200 2026-11-07 19:36 by Xc2FxHsHkBNc
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 5sJFDKp2kwuI 2026-11-06 5/250 2026-11-07 17:01 by Xc2FxHsHkBNc
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 5sJFDKp2kwuI 2026-11-06 5/250 2026-11-07 16:17 by Xc2FxHsHkBNc
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 16:43 by 5sJFDKp2kwuI
[考博] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +6 ELBZ6WwEaRj6 2026-11-05 8/400 2026-11-06 16:34 by 5sJFDKp2kwuI
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +6 ELBZ6WwEaRj6 2026-11-04 14/700 2026-11-06 16:32 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +6 ncTVBM6AOJHF 2026-11-04 15/750 2026-11-06 13:49 by BkA9Bi5cMhkD
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +7 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-06 13:47 by BkA9Bi5cMhkD
[硕博家园] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +8 ncTVBM6AOJHF 2026-11-04 14/700 2026-11-06 13:36 by BkA9Bi5cMhkD
[考研] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +8 ncTVBM6AOJHF 2026-11-04 18/900 2026-11-06 13:36 by BkA9Bi5cMhkD
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ELBZ6WwEaRj6 2026-11-05 10/500 2026-11-06 12:32 by BkA9Bi5cMhkD
[硕博家园] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +3 ELBZ6WwEaRj6 2026-11-05 5/250 2026-11-06 09:01 by 2lRNluKrJpwL
[考研] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 ELBZ6WwEaRj6 2026-11-04 10/500 2026-11-06 05:32 by qL1cU46YIdK0
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 kvewwGtKktqB 2026-11-04 14/700 2026-11-06 05:10 by qL1cU46YIdK0
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-06 04:47 by qL1cU46YIdK0
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 02:04 by qL1cU46YIdK0
[教师之家] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 ncTVBM6AOJHF 2026-11-04 12/600 2026-11-05 11:10 by PYZmcHr5kSaq
[基金申请] 各位基础老师们,看完中央《从严治党》的决定后,对学术界更加有信心了吧 +5 iaeyuan 2026-11-01 5/250 2026-11-04 14:43 by jinchengzi
信息提示
请填处理意见