图中左对齐图表标题

Question

如何将图表标题左对齐plot_ly(从中创建ggplotly)？

library(ggplot2)
library(plotly)

p <-
  ggplot(mtcars, aes(mpg, cyl)) + 
  geom_point() + 
  ggtitle("My Title") + 
  # Not necessary by default:
  theme(plot.title = element_text(hjust = 0.0))

p

ggplotly(p)

p(预期标题对齐)的输出:

ggplotly(p) (标题对齐未保留):

Answer 1

plot_ly已加入此功能。现在你可以调用：

ggplotly(p) %>%
  layout(
    title = list(
      xanchor = "right"
    )
  )

或者

ggplotly(p) %>%
  layout(
    title = list(
      x = 0.1
    )
  )

哪里x是标准化位置，一直x=0定位到左侧，一直x=1定位到右侧。

Answer 2

你可以做到

ggplotly(p) %>%
  add_annotations(
    yref="paper", 
    xref="paper", 
    y=1.15, 
    x=0, 
    text="My Title", 
    showarrow=F, 
    font=list(size=17)
  ) %>% 
  layout(title=FALSE)