小编JLD*_*475的帖子

我正在尝试更改Control为0%Shadeggplot 图例。关于如何做到这一点而不与所有其他绘图设置不一致的任何建议？

pred_plot <- ggplot(pred, aes(x, predicted, color=group, fill=group)) +
  geom_line() + geom_ribbon(aes(ymin = conf.low, ymax = conf.high), alpha = 0.1, colour=NA) +
  labs(x = 'Ambient Temp (C)', y = "Predicted Deer Use") +
  scale_x_continuous(breaks = round(seq(min(pred$x), max(pred$x), by = 5),1), labels=scales::label_number(accuracy = 1)) + 
  theme(axis.text=element_text(size=30, colour='black'),axis.title=element_text(size=30,face="bold")) +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"))+
  theme(legend.position="bottom", legend.box = "horizontal", legend.title = element_blank(), legend.key = element_blank(),
        legend.key.size = unit(4, 'cm'),legend.text …