如何在ggplotly中添加长标题？

Question

考虑以下示例：

data(canada.cities, package = "maps")

viz <- ggplot(canada.cities, aes(long, lat)) +

borders(regions = "canada") +

coord_equal() +

geom_point(aes(text = name, size = pop), colour = "red", alpha = 1/2) +

ggtitle(paste("Average bill for 1 people \n", 

"Average bill for 2 people \n", 

"Average bill for 3 people \n",

"Average bill for 4 people", sep = "")) 

ggplotly(viz)

标题出现在一行中，这就是它变得 cut-off 的原因。我想要的是：

Average bill for 1 people
Average bill for 2 people
Average bill for 3 people
Average bill for 4 people

在标题中（4 行）。

Answer 1

使用 HTML 标签 br，即 "<br>" in ggtitle

data(canada.cities, package = "maps")

viz <- ggplot(canada.cities, aes(long, lat)) +

  borders(regions = "canada") +

  coord_equal() +


  geom_point(aes(text = name, size = pop), colour = "red", alpha = 1/2) +

  ggtitle(paste("Average bill for 1 people \n", 

                "Average bill for 2 people \n", 

                "Average bill for 3 people \n",

                "Average bill for 4 people", sep = "<br>")) 

ggplotly(viz)

并输出：

如何在ggplotly中添加长标题？

How to add long title in ggplotly?

r

ggplot2

plotly