在ggplotly中重命名圖例文本

Question

我已將我的 ggplot 代碼集成到 ggplotly 中，但 ggplotly 無法識別用於重命名圖例文本的 scale_manual_color()。

ggplotly(
  ggplot(data = national2,aes(x=period, y=pregnancy))+
    geom_line(aes(color=type),size=0.8)+
    scale_color_manual(values=c("red","blue","green"),
                       breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),
                       labels=c("Teen pregnancy (10-19years)","Teen pregnancy (15-19years)","Teen pregnancy (10-14years)"))+
    labs(
      title = "Teen pregnancy trends from 2016Q1 to 2020Q2",
      x="Yearly quarters",
      y="Teen pregnancies"

    )+
    scale_x_yearqtr(n=10)+
    theme_gray()+
    theme(
      plot.title = element_text(size = 14),
      legend.title = element_blank(),
      legend.text = element_text(size = 12),
      axis.title = element_text(face = "bold",size = 11),
      axis.text = element_text(face = "bold",size = 10)
  )

Answer 1

您尚未提供任何數據，因此，我使用的是iris數據集。 只需從您的代碼中刪除breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),部分，它就會完美運行。

library(plotly)

ggplotly(
  ggplot(data = iris,aes(x=Sepal.Length, y=Petal.Width, color=Species))+
    geom_line(size=0.8)+
    scale_color_manual(values=c("red","blue","green"),
                       #breaks = c("pregnancy1019","pregnancy1519","pregnancy1014"),
                       labels=c("Teen pregnancy (10-19years)","Teen pregnancy (15-19years)","Teen pregnancy (10-14years)"))+
    labs(
      title = "Teen pregnancy trends from 2016Q1 to 2020Q2",
      x="Yearly quarters",
      y="Teen pregnancies"
      
    )+
    #scale_x_yearqtr(n=10)+
    theme_gray()+
    theme(
      plot.title = element_text(size = 14),
      legend.title = element_blank(),
      legend.text = element_text(size = 12),
      axis.title = element_text(face = "bold",size = 11),
      axis.text = element_text(face = "bold",size = 10)
    )