0

我有一个模型图，该模型预测包含 2 个分类变量的围场中鸟类的观察距离；GRAZING_SMALL 包含 3 个级别，“低”、“中”和“高”，而 TREES_SMALL 包含 2 个级别，“是”和“否”。我有两个模型的拟合值系列，一个是“是”保持不变，一个是“否”保持不变。我已经绘制了它，使得距离在 y 上是连续的，而在 x 上放牧是离散的，并且树木/没有树木用颜色表示。 这是我的阴谋

基本上我只是不知道如何创建一个图例来简单地显示哪种颜色代表树木，哪种颜色代表没有树木。这是我的代码：

ggplot() + 
  geom_point(colour = "orangered", shape = 16, size = 6, 
             data = small_yes_low_outs_NO_TREES, 
             aes(x = GRAZING_SMALL, y = fit)) +
  geom_point(colour = "royalblue2", shape = 16, size = 6, 
             data = small_yes_low_outs_YES_TREES, 
             aes(x = GRAZING_SMALL, y = fit)) +
  geom_errorbar(
    colour = "orangered", 
    data = small_yes_low_outs_NO_TREES, width = 0.8, size=2, 
    aes(x = GRAZING_SMALL, ymax = Upper95CI, ymin = Lower95CI, alpha= 0.2)
  ) +
  geom_errorbar(
    colour = "royalblue2",
    data = small_yes_low_outs_YES_TREES, width = 0.8,size = 2, 
    aes(x = GRAZING_SMALL, ymax = Upper95CI, ymin = Lower95CI, alpha= 0.2)
  ) +
  scale_x_discrete(limits = c("Low", "Medium", "High")) +
  scale_y_continuous('Distance from Remnant (m)', expand=c(0,0), 
  limits=c(-20,305),breaks=c(seq(0,300,50))) +
  coord_cartesian(ylim = c(-1, 303)) +
  labs(x= "Grazing Intensity")+
  theme(panel.grid.minor=element_blank(),
        legend.position="none",
        panel.background=element_blank(),
        legend.text = element_text(size = 7),
        axis.title.y = element_text(face="plain", vjust=1,size=16, angle=90,colour="black"),
        axis.text.y  = element_text(angle=0, hjust=0.5, size=18,colour="black"), 
        axis.text.x  = element_text(angle=0, hjust=0.5, size=18,colour="black"),
        axis.title.x = element_text(face="plain", size=16, angle=0,colour="black"),
        axis.line.x=element_line(colour="black",linetype="solid",size=0.25),
        axis.line.y=element_line(colour="black",linetype="solid",size=0.25),
        axis.ticks = element_line(size = 0.5, colour = "black"))
4

0 回答 0