GGPlot 中副轴上的数据

Question

我一直在努力在 R 中添加辅助轴，真的需要帮助。我的数据框包括一段时间内 A 井的水位变化和抽取的 B 井的水位。

我的数据框如下：

   Time_Date             Level_Change        Level
   2021-11-03 07:45:00   0.5                 18.5
   2021-11-03 08:00:00   0.6                 18.9
   2021-11-03 08:15:00   0.4                 19.5
   2021-11-03 08:30:00   0.7                 20.5
   2021-11-03 08:45:00   0.9                 21.4

我想做的是在主（左）y 轴上绘制 Level_Change，在次要（右）y 轴上绘制水平。如您所见，它们有两个截然不同的范围。我以前尝试过，但是当我添加 sec.axis 时，我的第一个轴总是搞砸了。为了澄清，我将添加辅助轴，然后我的主轴也将具有 0-30 的范围，这使得查看数据变得困难。

这是我在下面使用的代码：

   Data %>%
   ggplot(aes(x = Time_Date, y = Level_Change, color = id)) +
   geom_point(size = 1) +
   geom_line(aes(x=Time_Date, y = MW25)) +
   scale_color_manual(values=c("red", "blue", "yellow", "green", "purple")) + 
   scale_x_datetime(breaks = scales::date_breaks("1 hour"), date_labels = "%H:%M") +
   scale_y_continuous(sec.axis = sec_axis(~.+15.12, name = "MW-25 GW Level")) +
   labs(title = "MW-25 Pumping Test Monitoring Well Response",
   x = "",
   y = "Change in Water Level (ft.)",
   legend = "Well ID") +
   theme(legend.title = element_blank()) + 
   theme_classic()

真的需要我能得到的任何帮助！

谢谢

Answer 1

多亏了link的提供，我才能够回答这个问题。此处的代码有效：

ggplot with 2 y axes on each side and different scales

GGPlot 中副轴上的数据

Data on secondary axis in GGPlot

r

axes

ggplot2