我不太明白为什么当我转换由ggplot to plotly using ggplotly. The 情节帮助页面 https://plotly.com/ggplot2/legend/没有任何信息。我认为他们的示例在该页面上甚至无法正常工作。 任何帮助是极大的赞赏！

样本数据

library(scales)
packageVersion("ggplot2")
#> [1] '3.4.0'
library(plotly)
packageVersion("plotly")
#> [1] '4.10.1'

data <- data.frame(
  stringsAsFactors = FALSE,
  Level = c("Fast","Fast","Fast","Fast",
            "Fast","Fast","Slow","Slow","Slow",
            "Slow","Slow","Slow"),
  Period = c("1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month"),
  X = c(0.002,0.002,0.1,0.1,0.9,0.9,
        0.002,0.002,0.1,0.1,0.9,0.9),
  Y = c(1.38,1.29,1.61,1.61,1.74,0.98,
        1.14,0.97,1.09,1.1,0.94,0.58)
)

ggplot2

plt <- ggplot(data = data,
             aes(x = X,
                 y = Y,
                 shape = Period,
                 color = Level)) +
  geom_point(alpha = 0.6, size = 3) +
  labs(x = " ",
       y = "Value") +
  scale_y_continuous(labels = number_format(accuracy = 0.1)) +
  guides(color = guide_legend(title = "Level", order = 1),
         shape = guide_legend(title = "Period", order = 2)) +
  theme(axis.text.x = element_text(angle = 90))
plt

转换为plotly，传说消失

ggplotly(plt, height = 500) %>%
  layout(xaxis = list(autorange = "reversed"))

Edit

有一个问题guides()。如果我把它去掉，传说中的ggplotly出现

plt2 <- ggplot(data = data,
             aes(x = X,
                 y = Y,
                 shape = Period,
                 color = Level)) +
  geom_point(alpha = 0.6, size = 3) +
  labs(x = " ",
       y = "Value") +
  scale_y_continuous(labels = number_format(accuracy = 0.1)) +
  theme(axis.text.x = element_text(angle = 90))
plt2

ggplotly(plt2, height = 500) %>%
  layout(
    xaxis = list(autorange = "reversed"),
    legend = list(
      title = list(text = '(Period, Level)'))
  )

OP编辑后：

以下是使用基本 R {plotly} 根据 @Tung 的要求修改图例的解决方法：

library(scales)
library(ggplot2)
library(plotly)
library(data.table)

DT <- data.frame(
  stringsAsFactors = FALSE,
  Level = c("Fast","Fast","Fast","Fast",
            "Fast","Fast","Slow","Slow","Slow",
            "Slow","Slow","Slow"),
  Period = c("1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month"),
  X = c(0.002,0.002,0.1,0.1,0.9,0.9,
        0.002,0.002,0.1,0.1,0.9,0.9),
  Y = c(1.38,1.29,1.61,1.61,1.74,0.98,
        1.14,0.97,1.09,1.1,0.94,0.58)
)

setDT(DT)

LevelDT <- unique(DT, by = "Level")
PeriodDT <- unique(DT, by = "Period")
LevelDT[, Y := min(DT$Y)-1]
PeriodDT[, Y := min(DT$Y)-1]

plt2 <- ggplot(data = DT,
               aes(x = X,
                   y = Y,
                   shape = Period,
                   color = Level)) +
  geom_point(alpha = 0.6, size = 3) +
  labs(x = " ",
       y = "Value") +
  scale_y_continuous(labels = number_format(accuracy = 0.1)) +
  theme(axis.text.x = element_text(angle = 90))
plt2

markercolors <- hue_pal()(2)

ggplotly(plt2, height = 500) |>
  layout(
    xaxis = list(autorange = "reversed"),
    legend = list(
      title = list(text = ''),
      itemclick = FALSE,
      itemdoubleclick = FALSE,
      groupclick = FALSE
    )
  ) |>
  add_trace(
    data = LevelDT,
    x = ~ X,
    y = ~ Y,
    inherit = FALSE,
    type = "scatter",
    mode = "markers",
    marker = list(
      color = markercolors,
      size = 14,
      opacity = 0.6,
      symbol = "circle"
    ),
    name = ~ Level,
    legendgroup = "Level",
    legendgrouptitle = list(text = "Level")
  ) |>
  add_trace(
    data = PeriodDT,
    x = ~ X,
    y = ~ Y,
    inherit = FALSE,
    type = "scatter",
    mode = "markers",
    marker = list(
      color = "darkgrey",
      size = 14,
      opacity = 0.6,
      symbol = c("circle", "triangle-up")
    ),
    name = ~Period,
    legendgroup = "Period",
    legendgrouptitle = list(text = "Period")
  ) |> style(showlegend = FALSE, traces = 1:4)

PS: Here https://github.com/plotly/plotly.js/issues/5099可以找到相关的plotly.js GitHub问题。

原答案：

我不知道为什么他们被设置为FALSE首先，但设置showlegend = TRUE in layout() and style()（寻找痕迹）带回传说：

library(scales)
library(ggplot2)
library(plotly)

data <- data.frame(
  stringsAsFactors = FALSE,
  Level = c("Fast","Fast","Fast","Fast",
            "Fast","Fast","Slow","Slow","Slow",
            "Slow","Slow","Slow"),
  Period = c("1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month",
             "1Year","3Month","1Year","3Month"),
  X = c(0.002,0.002,0.1,0.1,0.9,0.9,
        0.002,0.002,0.1,0.1,0.9,0.9),
  Y = c(1.38,1.29,1.61,1.61,1.74,0.98,
        1.14,0.97,1.09,1.1,0.94,0.58)
)

# ggplot2
plt <- ggplot(data = data,
              aes(x = X,
                  y = Y,
                  shape = Period,
                  color = Level)) +
  geom_point(alpha = 0.6, size = 3) +
  labs(x = " ",
       y = "Value") +
  scale_y_continuous(labels = number_format(accuracy = 0.1)) +
  guides(color = guide_legend(title = "Period", order = 1),
         shape = guide_legend(title = "", order = 2)) +
  theme(axis.text.x = element_text(angle = 90))
plt

# Convert to plotly, legend disappeared
fig <- ggplotly(plt, height = 500) %>%
  layout(showlegend = TRUE, xaxis = list(autorange = "reversed")) %>%
  style(showlegend = TRUE)
fig