Plotly 子圖的單個圖例，用於從 R 中的兩個數據幀創建的線圖

Question

我正在嘗試從兩個數據幀中繪制 plot 折線圖，其中兩個數據幀的第一列都將繪制在一個幀中，依此類推。 最后，所有的情節都將放在一個子情節之下。 但是我得到了多個具有相同符號的圖例。 數據框是-

d1 <- data.frame(x = 1:5,
                 y = c(2, 3, 4, 1, 5),
                 z = c(2, 1, 4, 6, 8))

d2 <- data.frame(x = 1:5,
                 y = c(1, 5, 8, 9, 11),
                 z = c(3, 5, 8, 13, 11))

我試圖生成子圖的代碼是 -

py <-
  plot_ly(
    x = d1$x,
    y = d1$y,
    type = "scatter",
    mode = "lines",
    name = names(d1)[2],
    line = list(color = "#56B4E9")
  ) %>% add_trace(y = d2$y,
                  name = names(d1)[3],
                  line = list(color = "#D55E00"))

pz <-
  plot_ly(
    x = d1$x,
    y = d1$z,
    type = "scatter",
    mode = "lines",
    name = names(d1)[2],
    line = list(color = "#56B4E9")
  ) %>% add_trace(y = d2$z,
                  name = names(d1)[3],
                  line = list(color = "#D55E00"))

subplot(py, pz)

output 是-

有沒有辦法擺脫重復的傳說？

提前致謝。

Answer 1

這可以通過首先將數據帶入正確的形狀來實現，這也簡化了繪圖。 只需行綁定您的 dfs，例如通過dplyr::bindrows並且您擁有設置legendgroup所需的變量。 此外，您的 colors 不反映變量 y 和 z 而是反映數據集。 嘗試這個：

library(dplyr)
library(plotly)

d1 <- data.frame(x = 1:5,
                 y = c(2, 3, 4, 1, 5),
                 z = c(2, 1, 4, 6, 8))

d2 <- data.frame(x = 1:5,
                 y = c(1, 5, 8, 9, 11),
                 z = c(3, 5, 8, 13, 11))

# Bind the dfs
d3 <- bind_rows(list(d1 = d1, d2 = d2), .id = "id")

py <- d3 %>% 
  plot_ly(x = ~x, y = ~y, color = ~id, legendgroup= ~id) %>% 
  add_lines(colors = c("#D55E00", "#56B4E9"))

pz <- d3 %>% 
  plot_ly(x = ~x, y = ~z, color = ~id, legendgroup= ~id) %>% 
  add_lines(colors = c("#D55E00", "#56B4E9"), showlegend = FALSE)

subplot(py, pz) %>% 
  layout(legend=list(title=list(text='<b> Dataset </b>')))

^{由代表 package (v0.3.0) 於 2020 年 4 月 10 日創建}