Question

我正在使用ggplot为10个主题绘制散点图，每个主题在两个不同的列中包含2个值。我可以绘制散点图，但无法调整图例。传说盒应显示供体-1，供体-2 ......，供体-10，但它显示供体-1，供体-10，......，供体9。此外，它显示了图例中geom_point函数中提到的不应存在的大小块。

以下是我的代码段：

color1 = 'red'
color2 = 'green'
color3 = 'blue'
color4 = 'forestgreen'
color5 = 'purple'
color6 = 'yellow'
color7 = 'orange'
color8 = 'royalblue'
color9 = 'palevioletred4'
color10 = 'pink'

 p2<-qplot(CEACAM4.2hrs, CEACAM4.EDTA, data=res, xlab="CECAM4   PAX 2 Hr", ylab=" CECAM4 EDTA 0 Hr")


 p3<-p2+geom_point(aes(color = row.names(res2), size = 3))  + scale_x_continuous(limit =c(22,28), breaks = c(22,23,24,25,26,27,28)) + scale_y_continuous(limit=c(22,28), breaks = c(22,23,24,25,26,27,28)) +  stat_smooth(method="lm", se=FALSE)+ scale_color_manual(values=c(color1, color2, color3, color4, color5, color6, color7, color8, color9, color10))

 p4<- p3 + guides(colour = guide_legend(override.aes = list(size = 10)))

 p4+ ggtitle("CECAM4 EDTA 0Hr Vs PAX 2Hr") +  theme(plot.title = element_text(size = 28,colour=" mediumvioletred", face = "bold"))+ theme(legend.key = element_rect(colour = "black"), legend.title=element_text(size=22), legend.text=element_text(size=20)) + theme(plot.margin=unit(c(2.5,2,2,2),"cm"))+ theme(axis.text=element_text(size=18, face="bold"), axis.title=element_text(size=20, face="bold", colour="purple4")) + theme(axis.title.y=element_text(vjust=-0.65)) + theme(axis.title.x=element_text(vjust=-3.0)) + theme(plot.title = element_text(vjust=5)) + theme(axis.ticks.length=unit(1,"cm")) + theme(legend.key.size=unit(1.5,"cm"))

 ggsave(file="ggplot_cecam4_2_edta.png")

所以，更确切地说，问题是，如何通过ggplot按顺序获得图例？ e.g。

供体 - 1

供体 - 2

供体 - 3

供体 - 4

供体 - 5

供体 - 6

供体 - 7

供体-8

供体-9

供体 - 10

谢谢..

Answer 1

你没有提供数据来测试你的代码...我看到的是传说是在

上生成的

color = row.names(res2)

所以我猜row.names包含Donor-1，Donor-2等等。他们是角色，所以尽量让他们成为因素

color = factor(row.names(res2), levels=c("Donor-1", "Donor-2", etc.))

（factor启用向量的自定义顺序）

ggPlot2传奇调整

1 个答案: