Wie lange Titel in ggplotly hinzufügen?

Question

Betrachten Sie das folgende Beispiel:

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) 

Der Titel in einer Zeile erschienen ist und aus diesem Grund ist es cut-off bekommen. Was ich will, ist:

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

im Titel (in 4 Zeilen).

Answer 1

Verwenden Sie HTML-Tag br, das heißt, "<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) 

und Ausgang: