image.png
分享一篇高質(zhì)量文章身害，主要借鑒畫圖部分
這篇文章的圖是我在另外一個簡書作者文章里找到的合敦，有興趣可以看一下 這篇文章
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
