image.png

分享一篇高质量文章，主要借鉴画图部分

这篇文章的图是我在另外一个简书作者文章里找到的，有兴趣可以看一下 这篇文章

image.png

作图代码完成后可以分享给大家

2 hours later .....

完成了和 这篇文章里一样的图，我只是换了个群体

image.png

• 说好的分享代码

pca <- read.table("eigenvector.txt",sep = "\t",header = T)
library(ggplot2)
ggplot(pca, aes(x=PC1,y=PC2,color=Group,shape=Group)) + 
scale_color_manual(values = c("#ff242c","#1000e9"))+         #更改图中的分类颜色
scale_shape_manual(values = c(16, 19))+                          #更改图中的分类形状
geom_point(size=1.2)+                                                      #更改图中点的大小
labs(x="PC1(6.48%)",y="PC2(2.69%)")+
theme_bw()+
theme(legend.title = element_blank())+
theme(panel.grid.major =element_blank(), panel.grid.minor = element_blank(),panel.border = element_blank(),axis.line = element_line(colour = "black"))

示例文件可以私聊我

自己做了些修改后的图

image.png