ggplot手动画图如何添加图例

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

代码如下：
pca.plot <- read.csv("data.csv",row.names=1, header=T)
Lauraceae <- pca.plot[1:14,]
Fagaceae <- pca.plot[15:20,]
Myrtaceae <- pca.plot[21:27,]
Rubiaceae <- pca.plot[28:37,]
ggplot(Lauraceae, aes(PC1, PC2)) + geom_point(size = 6.0, colour = "#EE1289", shape = 18) +
  geom_point(data = Fagaceae, size = 5, col = "#1874CD", shape = 16) +
  geom_point(data = Myrtaceae, size = 4.5, col = "#228B22", shape = 15) +
  geom_point(data = Rubiaceae, size = 5, col = "#7EC0EE", shape = 17) +


因为需要指定每个类型点的颜色和性状，所以只好手动一层层加上去，再定义，但是这样画出来的图就不显示图例了，恳请坛友帮助如何显示图例~谢谢！后续还需要添加更多的Family，如果想指定这些Family的点性状颜色，有没有更简单的方法，不用手动一个个添加的？

数据如下：

Family	PC1	PC2
Lauraceae	-0.07802	0.281613
Lauraceae	-0.18107	0.378589
Lauraceae	-0.65634	-0.36388
Lauraceae	0.13175	0.012919
Lauraceae	-0.28589	-0.36197
Lauraceae	0.20609	0.198577
Lauraceae	-0.46091	0.11853
Lauraceae	-0.77426	0.357975
Lauraceae	-0.81335	0.099304
Lauraceae	-0.02209	-0.64762
Lauraceae	-0.5823	-0.0268
Lauraceae	-0.24159	-0.67401
Lauraceae	-0.62573	0.370096
Lauraceae	-0.47904	0.312894
Fagaceae	-0.70432	-0.10668
Fagaceae	-0.41688	-0.62105
Fagaceae	-0.41807	-0.44478
Fagaceae	-1.07812	0.231227
Fagaceae	-0.64854	-0.3509
Fagaceae	-0.88722	-0.06045
Myrtaceae	0.12592	-0.38653
Myrtaceae	-0.2339	0.707437
Myrtaceae	-0.30893	-0.01912
Myrtaceae	-0.3187	-0.31963
Myrtaceae	-0.18848	-0.88771
Myrtaceae	-0.62694	-0.69233
Myrtaceae	-0.26791	-0.973
Rubiaceae	-0.20898	-0.73792
Rubiaceae	0.03932	0.163706
Rubiaceae	-0.362	-0.15984
Rubiaceae	0.84551	0.329486
Rubiaceae	0.24983	-0.38807
Rubiaceae	0.77355	0.346762
Rubiaceae	0.19266	-0.19431
Rubiaceae	0.19393	0.024911
Rubiaceae	0.4097	0.081883
Rubiaceae	0.46633	-0.41123

  

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：gplot plot GPL pca

1. #方法1
   
2. v1 = iris[iris$Species=="setosa",1:2]
   
3. v2 = iris[iris$Species=="versicolor",1:2]
   
4. v3 = iris[iris$Species=="virginica",1:2]
   
5. 
   
6. cols=c('cx'="#3591d1", 'cy'="#f04546", 'cz'="#62c76b")
   
7. shapes=c('cx'=16,'cy'=15,'cz'=17)
   
8. ggplot(iris, aes(Sepal.Length, Sepal.Width)) +
   
9.   geom_point(data = v1, size = 5, aes(colour = "cx", shape = "cx") )+
   
10.   geom_point(data = v2, size = 4.5, aes(colour = "cy", shape = "cy")) +
    
11.   geom_point(data = v3, size = 5, aes(colour = "cz", shape = "cz"))+
    
12.   scale_colour_manual(name="class",values=cols)+
    
13.   scale_shape_manual(name="class",values = shapes)
    
14. 
    
15. #方法2
    
16. ggplot(iris,aes(Sepal.Length, Sepal.Width))+
    
17.   geom_point(aes(colour=Species,shape=Species),size=5)+
    
18.   scale_colour_manual(values=c("#3591d1","#f04546","#62c76b"))+
    
19.   scale_shape_manual(values =c(16,15,17))
    
20.   

复制代码

zhou1_20 发表于 2019-3-8 21:15

真是太感谢了~！！