image.png

分享一篇高質(zhì)量文章，主要借鑒畫(huà)圖部分

這篇文章的圖是我在另外一個(gè)簡(jiǎn)書(shū)作者文章里找到的，有興趣可以看一下 這篇文章

image.png

作圖代碼完成后可以分享給大家

2 hours later .....

完成了和 這篇文章里一樣的圖，我只是換了個(gè)群體

image.png

• 說(shuō)好的分享代碼

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"))+         #更改圖中的分類(lèi)顏色
scale_shape_manual(values = c(16, 19))+                          #更改圖中的分類(lèi)形狀
geom_point(size=1.2)+                                                      #更改圖中點(diǎn)的大小
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