R中ggplot中的次要y轴？

Question

浏览了这里提出的一些secondary axis 解决方案，但没有做对。我正在尝试在左侧y-axis 上绘制Elevation 和在右侧y-axis 上绘制FlowA & Flowb。我的示例代码将执行Elevation plotting 但是，努力在secondary axis 上获取FlowA & FlowB 变量。任何帮助将不胜感激。

library(lubridate)
library(tidyverse)

set.seed(123)

FakeData <- data.frame(Date = seq(as.Date("2001-01-01"), to= as.Date("2001-12-31"), by="day"),
                 Elevation = runif(365, 806.8,807.8),
                 FlowA = runif(365,8,15),
                 FlowB = runif(365,1,3))
ggplot(FakeData, aes(x = Date, y = Elevation))+
  geom_line()

Answer 1

我会建议下一个方法。还要提到输出将取决于您的数据。这里所有Elevation 的值都接近800。对于第二个轴，您必须围绕所有变量定义一个比例因子，以便正确显示它们。接下来是代码：

library(lubridate)
library(tidyverse)

set.seed(123)
#Data
FakeData <- data.frame(Date = seq(as.Date("2001-01-01"), to= as.Date("2001-12-31"), by="day"),
                       Elevation = runif(365, 806.8,807.8),
                       FlowA = runif(365,8,15),
                       FlowB = runif(365,1,3))
#Scale factor
scalefactor <- max(FakeData$Elevation)/max(max(FakeData$FlowA),max(FakeData$FlowB))
#Plot
ggplot(FakeData, aes(x = Date))+
  geom_line(aes(y = Elevation,group=1,color='Elevation'),show.legend = T)+
  geom_line(aes(y = FlowA*scalefactor, color = 'FlowA'))+
  geom_line(aes(y = FlowB*scalefactor, color = 'FlowB'))+
  scale_y_continuous(sec.axis = sec_axis(~./scalefactor, name = 'Flow A and Flow B'))

输出：

Answer 2

here 中的解决方案对我来说效果很好。但我想添加一些调整，因为您的数据的代码会略有不同。根据解决方案，我们将使用 3 个几何对象来表示高程、FlowA 和 FlowB。我们还将为 FlowA 和 FlowB 制作辅助轴。

ggplot(FakeData, aes(x = Date))+
  geom_line(aes(y = Elevation)) +
  geom_col(aes(y = FlowA), fill="blue") +
  geom_col(aes(y = FlowB), fill='red')+
  scale_y_log10(sec.axis = sec_axis(~ .*1, labels = scales::number_format(scale=1/10),name="Flow"))

在上面的代码中，我将高程显示为线图，流向显示为条形图。为什么我在这里使用对数刻度？因为海拔的取值范围（806.8到807.8之间）和流量取值范围的距离很远。如果您继续使用常规 y 轴 (scale_y_continuous())，您将在下面看到此图： 看到情节没有那么有意义。您无法清楚地看到流量如何随时间变化。这是它在对数刻度中的样子： 我在左侧 y 轴上使用对数刻度，在右侧 y 轴上使用常规刻度。现在我们可以清楚地看到流量随时间的变化。高程肯定是一条直线，因为您将其设置为随机均匀分布。

但是，就个人而言，我不建议您使用双 y 轴，因为它会使绘图用户感到困惑。我建议你把情节分成两个不同的情节。