Предоставление легенд для всех элементов оси y в ggplot (), где столбцы, точки и линии использовались в одном графике

Question

Я пытаюсь нарисовать гистограмму с точкой и линией вместе, используя 4 разных компонента. Пожалуйста, покажите мне, как составлять легенды, состоящие из всех четырех компонентов. заранее спасибо. Мой файл данных:

d1 <- c("Uttar Pradesh", "Rajasthan","Maharashtra","Madhya Pradesh")
d2 <- c(12142, 12357, 15422, 17986)
d3 <- c(26571, 22123, 28119, 21177)
d4 <- c(38877, 31496, 35606, 37158)
d5 <- c(98145, 76275, 88596, 95433)
compend6 <- data.frame(d1, d2, d3, d4, d5)
colnames(compend6) <- c("Name of the State/ UT", "Deposits", "Borrowings", "Loans & Advances", "Total Liabilities")

Мой код:

positions <- compend6$`Name of the State/ UT`
plot1_name <- "Total Liabilities"
plot2_name <- "Deposits"
plot3_name <- "Loans & Advances"
plot4_name <- "Borrowings"

gp1 <- compend6 %>% ggplot(aes(group = 1)) + 
  geom_bar(mapping = aes(x = `Name of the State/ UT`, y = .data[[plot1_name]]), 
           stat = "identity", fill = "yellow", color = "Black") + 
  geom_point(mapping = aes(x = `Name of the State/ UT`, y = .data[[plot2_name]], 
                           size = .data[[plot2_name]]), color = "Blue") + 
  geom_point(mapping = aes(x = `Name of the State/ UT`, y = .data[[plot3_name]], 
                           size = .data[[plot3_name]]), color = "Red", shape = 15) + 
  geom_line(mapping = aes(x = `Name of the State/ UT`, y = .data[[plot4_name]]), 
            color = "#218906", size = 2) + 
  ylab(expression("Balance Sheet Size")) +
  scale_x_discrete(limits = positions) +
  scale_y_continuous(limits = c(0,100000)) +
  theme(legend.position = c(0.8, 0.8)) +
  coord_flip()
gp1

мой график выглядит так

I want the legends showing:

Total Liabilities = Yellow Bar
Deposits = Blue filled circle
Loans & Advances = Red square; and
Borrowings = Green line

Answer 1

Вот один из подходов к вашей версии, который дает вам данные, которые вы хотите нанести на один график с двумя легендами. Некоторые наблюдения:

ggplot на самом деле не позволяет использовать одну и ту же эстетику c разными переменными для легенд: это может быть сделано в некоторых случаях, но это действительно сложно

В В вашем исходном вопросе вы хотели, чтобы цвет aestheti c использовался для трех переменных: «Депозиты», «Заимствования», «Ссуды и авансы» и двух geom: geom_line и geom_point. Это довольно сложно!

Если вы хотите исследовать несколько легенд об одном и том же эстетике c, просмотрите эти ссылки:

https://www.r-bloggers.com/multiple-legends-for-the-same-aesthetic-2/ но я нашел код не запускался

Мнение разработчиков ggplot (они считают его "хитрым"): https://github.com/tidyverse/ggplot2/issues/2492

Эта ссылка дает представление о том, что задействовано: Как иметь две легенды разного размера в одном ggplot? b

Эта ссылка предполагает, что базовая графика может быть более подходящей. Однако базовая графика не идеальна для вращения или переворачивания столбцов! Можно ли повернуть сюжет в R (базовая графика)?

Что оставляет вас примерно так:

  library(dplyr)
  library(ggplot2)

  # data for points (or any other geom) for plotting on the bar graph in long format
  money <- 
    compend6 %>% 
    select(-`Total Liabilities`) %>% 
    pivot_longer(cols = c("Deposits", "Borrowings", "Loans & Advances"), names_to = "type", values_to = "val")

  # money

  # as points  

  ggplot(compend6,  aes(x = `Name of the State/ UT`))+
    geom_col(aes(y = `Total Liabilities`, fill = "Total Liabilities"), colour = "black")+
    scale_fill_manual(name = NULL, values = "yellow") +
    geom_point(data = money, aes(x = `Name of the State/ UT`, y = val, colour = type), size = 5) +
    scale_colour_manual(name = "Finance type", breaks = c("Deposits", "Borrowings", "Loans & Advances"), values = c("blue", "#218906", "red")) +
    coord_flip()+
    ggtitle("Two way legend with bar and points")



  # as lines    
  ggplot(compend6,  aes(x = `Name of the State/ UT`))+
    geom_col(aes(y = `Total Liabilities`, fill = "Total Liabilities"), colour = "black")+
    scale_fill_manual(name = NULL, values = "yellow") +
    geom_line(data = money, aes(x = `Name of the State/ UT`, y = val, colour = type, group = type), size = 4) +
    scale_colour_manual(name = "Finance type", breaks = c("Deposits", "Borrowings", "Loans & Advances"), values = c("blue", "#218906", "red")) +
    coord_flip()+
    ggtitle("Two way legend with bar and lines")

Если вам действительно нужны отдельные легенды, вы может расположить вещи следующим образом и в соответствии с вашим исходным вопросом:

  ggplot(compend6,  aes(x = `Name of the State/ UT`))+
    geom_col(aes(y = `Total Liabilities`, fill = "Total Liabilities"), colour = "black")+
    scale_fill_manual(name = NULL, values = "yellow") +
    geom_line(aes(y = Borrowings, linetype = "Borrowings", group = 1), colour = "#218906", size = 2)+
    scale_linetype_manual(name = NULL, values = "solid")+
    geom_point(aes(y = Deposits, shape = "Deposits"), colour = "blue", size = 6)+
    scale_shape_manual(name = NULL, values = 16)+
    geom_point(aes(y = `Loans & Advances`, colour = "Loans & Advances"), shape = 15, size = 6)+
    scale_colour_manual(name = NULL, values = "red")+
    coord_flip()+
    ggtitle("Four way legend with bar, lines and points")

поэтому диапазон выбора:

Data

d1 <- c("Uttar Pradesh", "Rajasthan","Maharashtra","Madhya Pradesh")
d2 <- c(12142, 12357, 15422, 17986)
d3 <- c(26571, 22123, 28119, 21177)
d4 <- c(38877, 31496, 35606, 37158)
d5 <- c(98145, 76275, 88596, 95433)
compend6 <- data.frame(d1, d2, d3, d4, d5)
colnames(compend6) <- c("Name of the State/ UT", "Deposits", "Borrowings", "Loans & Advances", "Total Liabilities")