r - 双 y 轴(第二轴)在 ggplot2 中的使用

Question

我遇到了一个问题，即如上一篇文章 how-to-use-facets-with-a-dual-y-axis-ggplot 中所述，在第二个轴函数的帮助下使用两个不同的数据。 .

我正在尝试使用 geom_point和 geom_bar但由于 geom_bar 数据范围不同，因此在图表上看不到。

这是我尝试过的；

point_data=data.frame(gr=seq(1,10),point_y=rnorm(10,0.25,0.1))
bar_data=data.frame(gr=seq(1,10),bar_y=rnorm(10,5,1))

library(ggplot2)



sec_axis_plot <- ggplot(point_data, aes(y=point_y, x=gr,col="red")) +  #Enc vs Wafer
geom_point(size=5.5,alpha=1,stat='identity')+
geom_bar(data=bar_data,aes(x = gr, y = bar_y, fill = gr),stat = "identity") +
scale_y_continuous(sec.axis = sec_axis(trans=~ .*15,
                                         name = 'bar_y',breaks=seq(0,10,0.5)),breaks=seq(0.10,0.5,0.05),limits = c(0.1,0.5),expand=c(0,0))+

facet_wrap(~gr, strip.position = 'bottom',nrow=1)+
theme_bw()

可以看出 bar_data 已被删除。在这种情况下可以将它们绘制在一起吗？

谢谢

Answer 1

您在这里遇到了问题，因为第二个轴的转换仅用于创建第二个轴——它对数据没有影响。您的 bar_data仍在原始轴上绘制，由于您的限制，它只会上升到 0.5。这可以防止出现条形。

为了使数据显示在相同的范围内，您必须对条形数据进行标准化，使其与点数据位于相同的范围内。然后，轴变换必须撤消此归一化，以便您获得适当的刻度标签。像这样:

# Normalizer to bring bar data into point data range. This makes
# highest bar equal to highest point. You can use a different
# normalization if you want (e.g., this could be the constant 15
# like you had in your example, though that's fragile if the data
# changes).
normalizer <- max(bar_data$bar_y) / max(point_data$point_y)


sec_axis_plot <- ggplot(point_data,
                        aes(y=point_y, x=gr)) +

  # Plot the bars first so they're on the bottom. Use geom_col,
  # which creates bars with specified height as y.
  geom_col(data=bar_data,
           aes(x = gr,
               y = bar_y / normalizer)) + # NORMALIZE Y !!!

  # stat="identity" and alpha=1 are defaults for geom_point
  geom_point(size=5.5) +

  # Create second axis. Notice that the transformation undoes
  # the normalization we did for bar_y in geom_col.
  scale_y_continuous(sec.axis = sec_axis(trans= ~.*normalizer,
                                         name = 'bar_y')) +
  theme_bw()

这为您提供了以下情节:



我删除了您的一些花里胡哨，以使特定于轴的内容更加清晰，但是您应该可以毫无问题地将其添加回来。不过有几个注意事项:

请记住，第二个轴是由主轴的 1-1 变换创建的，因此请确保它们在变换下覆盖相同的限制。如果您有应归零的条形，则主轴应包括未转换的零模拟。

确保数据规范化和轴变换相互撤销，以便您的轴与您绘制的值对齐。