R中ggplot中的次要y轴？

问题描述

经历了这里提出的一些secondary axis解决方案，但是并没有解决问题。我试图在左侧Elevation上绘制y-axis，在右侧FlowA & Flowb上绘制y-axis。我的示例代码将执行Elevation plotting，但是很难在FlowA & FlowB上获取secondary axis变量。任何帮助将不胜感激。

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()

解决方法

我建议采用下一种方法。另外要提一下，输出将取决于您的数据。此处，所有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'))

输出：

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轴，因为它会使绘图用户感到困惑。我建议您将图分成两个不同的图。

ggplot2 plot r r tidyverse yaxis