Как объединить легенды в ggplot2? (сохранить форму, цвет и этикетку) - PullRequest
Новая
       41

Как объединить легенды в ggplot2? (сохранить форму, цвет и этикетку)

0 голосов
/ 08 июня 2019

Я не могу найти способ объединить две легенды, с которыми я получаю: 

ggplot(datapoidsmono, aes(x = time, y = weight)) +
  stat_summary(aes(color = group), fun.data="mean_sdl", fun.args = list(mult=1), geom="errorbar", position = "identity", size=0.5, width=0.2) +
  stat_summary(fun.y = "mean", geom = "point", size=3, aes(shape=group,colour=group)) + 
  scale_x_discrete(name = "Days after injection") +
  scale_y_continuous(name = "Weight (g)", limits=c(0, 4000), breaks = seq(0, 4000,500)) +
  theme(axis.line.x = element_line(size = 0.5, colour = "black"),axis.text.x = element_text(colour="black", size = 12),axis.line.y = element_line(size = 0.5, colour = "black"),axis.text.y = element_text(colour="black", size = 12),axis.title = element_text(size =15, face="bold"),plot.title = element_text(size =20, face = "bold"),panel.grid.major = element_line(colour = "#F1F1F1"),panel.grid.minor = element_blank(), panel.background = element_blank()) +
  scale_color_manual(values=c("green", "blue", "red"), name="Treatment", labels=c("A","B","C")) +
  ggtitle("Weight variation over time") + theme(plot.title = element_text(hjust = 0.5)) +
  theme(legend.position = "right") +
  theme(legend.background = element_rect(size=0.5, linetype="solid", colour ="black", fill="white"))

How to merge these legends

Я бы хотел оставить только одну легенду, объединив цвет, форму и ярлык. Я боролся вокруг, но ни одно из этих решений не помогло мне:

guides(fill = guide_legend(title = "Treatment", title.position = "left")) scale_colour_discrete(name ="Treatment", breaks=c("A", "B", "C"), labels=c("A", "B", "C")) scale_shape_discrete(name ="Treatment", breaks=c("A", "B", "C"), labels=c("A", "B", "C")) scale_shape_manual(name ="Treatment", breaks=c("A", "B", "C"), labels=c("A", "B", "C")) labs(fill = "Treatment") labs(names=c("A", "B", "C")) scale_fill_discrete(name="Treatment", labels = c("A", "B", "C")) scale_fill_manual(name="Treatment", labels=c("A", "B", "C"))

Мой фрейм данных: 

> dput(head(datapoidsmono, 40))
structure(list(weight = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 17, 
19, 45, 51, 57, 90, 102, 114, 20, 22, 25, 60, 66, 75, 120, 132, 
150, 30, 34, 36, 90, 102, 108, 180, 204, 216, 40, 50, 47, 120
), group = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 1L, 
1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 
3L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 1L, 1L, 1L, 2L), .Label = c("1", 
"2", "3"), class = "factor"), time = structure(c(1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 5L, 5L, 5L, 5L), .Label = c("1", "2", "3", "4", "5", "6", 
"7", "8", "9", "10", "11", "12", "13", "14", "15"), class = "factor")), row.names = c(NA, 
-40L), class = c("tbl_df", "tbl", "data.frame"))

Спасибо за любые предложения!

Ответы [ 2 ]

1 голос
/ 08 июня 2019

Благодаря Ронаку Шаху я нашел это: Книга рецептов R

Если вы используете и цвет, и форму, им обоим необходимо дать спецификации масштаба.В противном случае будут две две разные легенды.

, которые дали мне это: 

ggplot(datapoidsmono, aes(x = time, y = weight)) +
  stat_summary(aes(color = group), fun.data="mean_sdl", fun.args = list(mult=1), geom="errorbar", position = "identity", size=0.5, width=0.2) +
  stat_summary(fun.y = "mean", geom = "point", size=3, aes(shape=group,color=group)) + 
  scale_x_discrete(name = "Days after injection") +
  scale_y_continuous(name = "Weight (g)", limits=c(0, 4000), breaks = seq(0, 4000,500)) +
  theme(axis.line.x = element_line(size = 0.5, color = "black"),axis.text.x = element_text(color="black", size = 12),axis.line.y = element_line(size = 0.5, color = "black"),axis.text.y = element_text(color="black", size = 12),axis.title = element_text(size =15, face="bold"),plot.title = element_text(size =20, face = "bold"),panel.grid.major = element_line(color = "#F1F1F1"),panel.grid.minor = element_blank(), panel.background = element_blank()) +
  scale_color_manual(values=c("green", "blue", "red"), name="Treatment", labels=c("A","B","C")) +
  scale_shape_manual(values=c(15,16,17), name  ="Treatment", labels=c("A", "B", "C")) +
  ggtitle("Weight variation over time") + theme(plot.title = element_text(hjust = 0.5)) +
  theme(legend.position = "right") + #on peut choisir l'endroit précis en remplaçan par c(0.15,0.80)) ou supprimer la légende en remplaçant par none
  theme(legend.background = element_rect(size=0.5, linetype="solid", color ="black", fill="white"))

enter image description here

0 голосов
/ 08 июня 2019

Это решение: 

df <- data.frame(weight = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 15, 17, 
                      19, 45, 51, 57, 90, 102, 114, 20, 22, 25, 60, 66, 75, 120, 132, 
                      150, 30, 34, 36, 90, 102, 108, 180, 204, 216, 40, 50, 47, 120),
                 group = factor(c(1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 
                       1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2, 2, 2, 3, 3, 
                       3, 1, 1, 1, 2, 2, 2, 3, 3, 3, 1, 1, 1, 2), levels= c("1","2", "3")),
                 time = factor(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 
                                           3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 
                                           4, 5, 5, 5, 5), levels = c("1", "2", "3", "4", "5", "6", "7", "8", "9",
                                                                      "10", "11", "12", "13", "14", "15")))

ggplot(df, aes(x = time, y = weight)) +
  stat_summary(aes(color = group), fun.data="mean_sdl", fun.args = list(mult=1),
               geom="errorbar", position = "identity", size=0.5, width=0.2) +
  stat_summary(fun.y = "mean", geom = "point", size=3, aes(shape=group,colour=group)) + 
  scale_x_discrete(name = "Days after injection") +
  scale_y_continuous(name = "Weight (g)", limits=c(0, 400), breaks = seq(0, 400, 50)) +
  scale_color_manual(values=c("green", "blue", "red"), name="Treatment", labels=c("A","B","C")) +
  scale_shape_manual(values=c(1, 2, 3), name="Treatment", labels=c("A","B","C")) +
  ggtitle("Weight variation over time") + theme(plot.title = element_text(hjust = 0.5)) +
  theme(legend.position = "right") +
  theme(legend.background = element_rect(size=0.5, linetype="solid", colour ="black", fill="white")) +
  theme(axis.line.x = element_line(size = 0.5, colour = "black"),
        axis.text.x = element_text(colour="black", size = 12),
        axis.line.y = element_line(size = 0.5, colour = "black"), 
        axis.text.y = element_text(colour="black", size = 12), 
        axis.title = element_text(size =15, face="bold"), 
        plot.title = element_text(size =20, face = "bold"), 
        panel.grid.major = element_line(colour = "#F1F1F1"), 
        panel.grid.minor = element_blank(),
        panel.background = element_blank())

Вдохновлено:

Объединить легенды о цвете и форме в одну легенду

...