为组合栏和折线图添加图例 - ggplot忽略命令

Question

I am trying to make a bar chart with line plots as well. The graph has created fine but the legend does not want to add the line plots to the legend.

I have tried so many different ways of adding these to the legend including:

ggplot Legend Bar and Line in Same Graph

None of which have worked. show.legend also seems to have been ignored in the geom_line aes.

My code to create the graph is as follows:

ggplot(first_q, aes(fill = Segments)) +
 geom_bar(aes(x= Segments, y= number_of_new_customers), stat = 
      "identity") + theme(axis.text.x = element_blank()) +
  scale_y_continuous(expand = c(0, 0), limits = c(0,3000)) + 
  ylab('Number of Customers') + xlab('Segments') +
  ggtitle('Number Customers in Q1 by Segments') +theme(plot.title = 
       element_text(hjust = 0.5)) +
  geom_line(aes(x= Segments, y=count) ,stat="identity", 
     group = 1, size = 1.5, colour = "darkred", alpha = 0.9, show.legend = 
     TRUE) +
  geom_line(aes(x= Segments, y=bond_count) 
       ,stat="identity", group = 1, size = 1.5, colour = "blue", alpha = 
        0.9)  +
  geom_line(aes(x= Segments, y=variable_count) 
       ,stat="identity", group = 1, size = 1.5, colour = "darkgreen", 
     alpha = 0.9) +
  geom_line(aes(x= Segments, y=children_count) 
        ,stat="identity", group = 1, size = 1.5, colour = "orange", alpha 
         = 0.9) +
  guides(fill=guide_legend(title="Segments")) + 
  scale_color_discrete(name = "Prod", labels = c("count", "bond_count", "variable_count", "children_count)))

I am fairly new to R so if any further information is required or if this question could be better represented then please let me know.

Any help is greatly appreciated.

Answer 1

Alright, you need to remove a little bit of your stuff. I used the mtcars dataset, since you did not provide yours. I tried to keep your variable names and reduced the plot to necessary parts. The code is as follows:

first_q <- mtcars
first_q$Segments <- mtcars$mpg
first_q$val <- seq(1,nrow(mtcars))
first_q$number_of_new_costumers <- mtcars$hp
first_q$type <- "Line"

ggplot(first_q) +
  geom_bar(aes(x= Segments, y= number_of_new_costumers, fill = "Bar"), stat = 
             "identity") + theme(axis.text.x = element_blank()) +
  scale_y_continuous(expand = c(0, 0), limits = c(0,3000)) +
  geom_line(aes(x=Segments,y=val, linetype="Line"))+
  geom_line(aes(x=Segments,y=disp, linetype="next line"))

The answer you linked already gave the answer, but i try to explain. You want to plot the legend by using different properties of your data. So if you want to use different lines, you can declare this in your aes . This is what get's shown in your legend. So i used two different geom_lines here. Since the aes is both linetype , both get shown at the legend linetype .

the plot:

You can adapt this easily to your use. Make sure you using known keywords for the aesthetic if you want to solve it this way. Also you can change the title names afterwards by using:

labs(fill = "costum name")

---

If you want to add colours and the same line types, you can do customizing by using scale_linetype_manual like follows (i did not use fill for the bars this time):

library(ggplot2)
first_q <- mtcars
first_q$Segments <- mtcars$mpg
first_q$val <- seq(1,nrow(mtcars))
first_q$number_of_new_costumers <- mtcars$hp
first_q$type <- "Line"
cols = c("red", "green")
ggplot(first_q) +
  geom_bar(aes(x= Segments, y= number_of_new_costumers), stat = 
             "identity") + theme(axis.text.x = element_blank()) +
  scale_y_continuous(expand = c(0, 0), limits = c(0,3000)) +
  geom_line(aes(x=Segments,y=val, linetype="solid"),  color = "red", alpha = 0.4)+
  geom_line(aes(x=Segments,y=disp, linetype="second"), color ="green", alpha = 0.5)+
  scale_linetype_manual(values = c("solid","solid"),
                      guide = guide_legend(override.aes = list(colour = cols)))