传奇不适合ggplot密度

Question

我正在做一个密度图，我想添加一个图例，但与符号重叠。代码如下：

dfGamma = data.frame(a = rgamma(100,shape = 7.1,rate= 0.0055),
                     b = rgamma(100, shape = 10,rate= 0.0055),
                     c = rgamma(100, shape = 7.1,rate= 0.0055))

dfGamma = stack(dfGamma)
p <- ggplot(dfGamma, aes(x = values)) +
  stat_density(aes(group = ind, colour = ind),position="identity",geom="line",size=1)+
  ggtitle("Gamma distribution")+theme(legend.position="right")+
  scale_color_manual(labels = c(expression(paste(alpha,"=7.1 ",beta,"=0.0055")),
                                expression(paste(alpha,"= 10 ",beta,"=0.0055")),
                                expression(paste(alpha,"=7.1 ",beta,"=0.0055"))),
                     values = c('red', 'blue',"green"))

p

情节为：

Answer 1

guides选项，guide_legend就是您所需要的。您可以阅读更多相关信息in the ggplot reference。这有帮助吗？

p <- ggplot(dfGamma, aes(x = values)) +
  stat_density(aes(group = ind, colour = ind),position="identity",geom="line",size=1)+
  ggtitle("Gamma distribution")+
  theme(legend.position="right") +
  scale_color_manual(labels = c(expression(paste(alpha, "=7.1 ", beta, "=0.0055")),
                                expression(paste(alpha,"= 10 ",beta,"=0.0055")),
                                expression(paste(alpha,"=7.1 ",beta,"=0.0055"))),
                     values = c('red', 'blue',"green")) +
  guides(colour = guide_legend(label.position = "bottom"))

p