R：具有雙Y軸的繪圖？

Question

我已經找到了這個問題，但是答案不是最新的，無法產生正確的結果。

R繪圖圖中的第二個Y軸

如何繪制雙Y軸圖？

df <- data.frame(MediaDate = as.Date(c("2016-04-01","2016-05-01","2016-06-01"), format = "%Y-%m-%d"),
                 Spend = c(39654, 34446, 27402),
                 Visits = c(19970, 14450, 12419))



plot_ly(df, x = ~MediaDate, y = ~Spend, type = "bar", name = "Spend") %>%
  add_trace(x = ~MediaDate, y = ~Visits, mode = "lines", yaxis = "y2", name = "Visits") %>%
  layout(yaxis2 = list(overlaying = "y", side = "right"))

產生：

我需要什么（而不是一條線和兩條線）：

Answer 1

這是一種方法：

df <- data.frame(MediaDate = as.Date(c("2016-04-01","2016-05-01","2016-06-01"), 
                                     format = "%Y-%m-%d"),
                 Spend = c(39654, 34446, 27402),
                 Visits = c(19970, 14450, 12419))

old.y <- list(
  side = "left",
  title = "Spend"
)

new.y <- list(
  overlaying = "y",
  side = "right",
  title = "Visits"
)

plot_ly(df) %>%
  add_lines(x = ~MediaDate, y = ~Spend, yaxis="y1") %>%
  add_lines(x = ~MediaDate, y = ~Visits, yaxis = "y2") %>%
  layout(yaxis2 = new.y, yaxis = old.y, xaxis = list(title="MediaDate"))