Субтитры сюжета теряются, когда сюжет воспроизводится с помощью ggplotly()

#r #ggplot2 #ggplotly

Вопрос:

Я создаю ggplot ниже с заголовком и подзаголовком, но когда я показываю его, используя ggplotly() подзаголовок, он теряется.

 library(ggplot2)
p <- ggplot(ToothGrowth, aes(x = factor(dose), y = len))   
  geom_boxplot()
library(plotly)
p <- p   labs(title = "Effect of Vitamin C on Tooth Growth",
              subtitle = "Plot of length by dose",
              caption = "Data source: ToothGrowth")
ggplotly(p)
 

Ответ №1:

 library(ggplot2)
p <- ggplot(ToothGrowth, aes(x = factor(dose), y = len))   
  geom_boxplot()
library(plotly)
p <- p   labs(title = "Effect of Vitamin C on Tooth Growth",
              subtitle = "Plot of length by dose",
              caption = "Data source: ToothGrowth")
ggplotly(p)%>% 
  layout(title = list(text = paste0('Effect of Vitamin C on Tooth Growth"',
                                    '<br>',
                                    '<sup>',
                                    'Plot of length by dose','</sup>')))
 

Это работает, дайте мне знать, если это решит вашу проблему