Javascript Fix plotly ggplotly（）当标题拆分为两行时，标题重叠打印

在下面的示例中，标题的第二行与绘图稍微重叠。有没有办法通过增加标题和情节之间的间距来解决这个问题

library(ggplot2)
library(plotly)
library(magrittr)

p1 <- ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
  geom_point() + 
  ggtitle("A REALLY, REALLY, REALLY LONG TITLE THAT I WANT TO\nSPLIT INTO TWO LINES")
p1

ggplotly() %>% config(collaborate=FALSE, cloud=FALSE, displaylogo=FALSE, modeBarButtonsToRemove=c("select2d", "sendDataToCloud", "pan2d", "resetScale2d", "hoverClosestCartesian", "hoverCompareCartesian", "lasso2d", "zoomIn2d", "zoomOut2d"))

库（ggplot2）
图书馆（绘本）
图书馆（magrittr）
p1%config（collaborate=FALSE、cloud=FALSE、displaylogo=FALSE、modeBarButtonsToRemove=c（“select2d”、“sendDataToCloud”、“pan2d”、“resetScale2d”、“hoverClosestCartesian”、“hoverCompareCartesian”、“lasso2d”、“zoomIn2d”、“zoomOut2d”））

---

正如您所知，ggplot不会重新计算总绝对高度。因此，在标题和绘图之间添加缓冲区空间的最简单方法是在长标题的末尾添加一个额外的换行字符（

\n

）

---

ggtitle（“一个非常非常非常长的标题，我想分成两行\n”）

正如您所知，ggplot不会重新计算总绝对高度。因此，在标题和绘图之间添加缓冲区空间的最简单方法是在长标题的末尾添加一个额外的换行字符（

\n

）

---

ggtitle（“一个非常、非常、非常长的标题，我想\n分成两行”）

详细地忽略尾随的新行字符，并且对于新行也需要HTML分隔符

，而不是

\n

（请参见最后的示例）

添加

手动打断标题，并在版面中添加顶部

页边距

（

版面（gp，页边距=列表（t=75））

）

库（ggplot2）
图书馆（绘本）
图书馆（magrittr）
p1会故意忽略尾随的新行字符，并且新行也需要HTML换行符

，而不是
\n
（参见末尾的示例）

添加

手动打断标题，并在版面中添加顶部
页边距
（
版面（gp，页边距=列表（t=75））
）


库（ggplot2）
图书馆（绘本）
图书馆（magrittr）
p1
library(ggplot2)
library(plotly)
library(magrittr)

p1 <- ggplot(iris, aes(x = Sepal.Length, y = Petal.Length)) +
  geom_point() + 
  ggtitle("A REALLY, REALLY, REALLY LONG TITLE THAT I WANT TO <br />\nSPLIT INTO TWO LINES<br />\n")
p1

gp <- ggplotly() %>% config(collaborate=FALSE, cloud=FALSE, displaylogo=FALSE, modeBarButtonsToRemove=c("select2d", "sendDataToCloud", "pan2d", "resetScale2d", "hoverClosestCartesian", "hoverCompareCartesian", "lasso2d", "zoomIn2d", "zoomOut2d"))
gp <- layout(gp, margin=list(t = 75))
gp