R - 在同一图表上创建条形和线，如何添加第二个 y 轴

Question

我正在尝试创建一个显示条形图和折线图相互叠加的 ggplot2 图。在 excel 中，这将通过添加第二个轴来完成。

x 轴代表产品类型，条形图的 y 值应该代表收入，折线图我想代表利润率为百分比。折线图和条形图的值应该是相互独立的，即没有这种关系。

require(ggplot2)    
df <- data.frame(x = c(1:5), y = abs(rnorm(5)*100))
df$y2 <- abs(rnorm(5))

ggplot(df, mapping= aes(x=as.factor(`x`), y = `y`)) + 
  geom_col(aes(x=as.factor(`x`), y = `y`),fill = 'blue')+
  geom_line(mapping= aes(x=as.factor(`x`), y = `y`),group=1) +
  geom_label(aes(label= round(y2,2))) +
  scale_y_continuous() +
  theme_bw() + 
  theme(axis.text.x = element_text(angle = 20,hjust=1)) 

上面的图片几乎产生了我想要的。但是，缩放比例不正确 - 我需要按大小对 1.38 和 0.23 值进行排序，即点 0.23 应显示在 1.38 以下。我也不确定如何在右侧添加另一个轴。

Answer 1

从ggplot2 的2.2.0 版本开始，可以添加secondary axis - 请参阅this 详细演示。此外，有些人已经用这种方法回答了问题：here、here、here 或 here。关于添加第二个 OY 轴的有趣讨论here。

主要思想是需要对第二个 OY 轴应用变换。在下面的示例中，变换因子是每个 OY 轴的最大值之间的比率。

# Prepare data
library(ggplot2)
set.seed(2018)
df <- data.frame(x = c(1:5), y = abs(rnorm(5)*100))
df$y2 <- abs(rnorm(5))

# The transformation factor
transf_fact <- max(df$y)/max(df$y2)

# Plot
ggplot(data = df,
       mapping = aes(x = as.factor(x),
                     y = y)) +
  geom_col(fill = 'blue') +
  # Apply the factor on values appearing on second OY axis
  geom_line(aes(y = transf_fact * y2), group = 1) +
  # Add second OY axis; note the transformation back (division)
  scale_y_continuous(sec.axis = sec_axis(trans = ~ . / transf_fact, 
                                         name = "Second axis")) +
  geom_label(aes(y = transf_fact * y2,
                 label = round(y2, 2))) +
  theme_bw() + 
  theme(axis.text.x = element_text(angle = 20, hjust = 1))

但是，如果您特别希望进行一对一转换，例如，假设 Y1 中的值 100 应该对应于 Y2 中的值 1（200 到 2 等等），然后更改转换（乘法）因子到 100 (100/1): transf_fact <- 100/1 你得到这个：

transf_fact <- max(df$y)/max(df$y2) 的优点是在使用两种不同比例时以最佳方式使用绘图区域 - 尝试类似 transf_fact <- 1000/1 的方法，我想你会明白的。