如何在 R 中制作多图

Question

我有这个数据集，我想制作三个 y 轴，其中“国家”将是 X 轴。在 y 轴上，我想做两个聚集列，一个折线图重叠。 我是新用户，学习16天

dput(data)

structure(list(Country = c("China", "Indonesia", "Vietnam", "Thailand", 
"Egypt", "India", "Turkey", "Brazil", "United States", "Russia"
), Plastic.Consumption = c(44.14201935, 12.87658986, 23.6336878, 
52.92058216, 13.93164324, 6.994354455, 64.77526757, 31.53076177, 
87.30070657, 32.01972449), Plastic.Production.Kt. = c(42421L, 
2258L, 387L, 5881L, 411L, 7211L, 939L, 5860L, 33985L, 3487L), 
    Plastic.Waste.Mismanagemet..kt. = c(8819.716784, 3216.855605, 
    1833.819141, 1027.739178, 967.0123574, 599.8191155, 485.937142, 
    471.4039969, 275.4244968, 80.75948103)), class = "data.frame", 
row.names = c(NA, -10L))

Answer 1

欢迎来到 SO。这是一个资源，它演示了为什么两个 Y 轴是一个坏主意link。以下是其他选项的一些示例。

library(tidyverse)

df <- structure(list(Country = c("China", "Indonesia", "Vietnam", "Thailand", 
                           "Egypt", "India", "Turkey", "Brazil", "United States", "Russia"
), Plastic.Consumption = c(44.14201935, 12.87658986, 23.6336878, 
                           52.92058216, 13.93164324, 6.994354455, 64.77526757, 31.53076177, 
                           87.30070657, 32.01972449), Plastic.Production.Kt. = c(42421L, 
                                                                                 2258L, 387L, 5881L, 411L, 7211L, 939L, 5860L, 33985L, 3487L), 
Plastic.Waste.Mismanagemet..kt. = c(8819.716784, 3216.855605, 
                                    1833.819141, 1027.739178, 967.0123574, 599.8191155, 485.937142, 
                                    471.4039969, 275.4244968, 80.75948103)), class = "data.frame", 
row.names = c(NA, -10L))

ggplot(df,aes(Country,Plastic.Consumption,size = Plastic.Waste.Mismanagemet..kt.,color = Plastic.Waste.Mismanagemet..kt.)) + 
  geom_point()

df %>% 
  pivot_longer(2:4) %>% 
  ggplot(aes(Country,value)) + 
  geom_point() + 
  coord_flip() + 
  facet_wrap(~name,scales = 'free')

^{由reprex package (v0.3.0) 于 2020 年 12 月 9 日创建}

祝你好运！

Answer 2

尽管有关于使用辅助轴的警告，但您可以通过以下方式从您共享的数据中创建您所描述的图：

library(ggplot2)
library(tidyr)
library(dplyr)

data %>% 
  mutate(Country = forcats::fct_reorder(Country, -Plastic.Production.Kt.)) %>%
  pivot_longer(3:4) %>% 
  ggplot(aes(Country, value, fill = name)) +
  geom_col(position = position_dodge()) +
  geom_line(aes(y = Plastic.Consumption * 400, group = 1, 
                color = "Consumption"), size = 1) +
  scale_color_manual(values = "black", name = "") +
  scale_fill_manual(values = c("orange", "deepskyblue4"), name = "",
                    labels = c("Plastic production", 
                               "Plastic waste mismanagement")) +
  scale_y_continuous(labels = scales::comma, name = "kilotonnes per year",
                     sec.axis = sec_axis(trans = ~ .x/400, 
                                         name = "Consumption (kilotonnes)")) +
  theme_bw() +
  theme(legend.position = "top")