Zawijaj tekst legendy w ggplot2

Podczas tworzenia wykresów za pomocą ggplot2 mam kilka długich nazw legend, które chcę zawrzeć w dwóch wierszach. Na przykład:

<code>a <- (1:10)
b <- c(1,1.5,2,4,5,5.3,7,9,9.5,9.8)
places = c("Birmingham","Chester-le-street","Cambridge", "Newcastle-upon-Tyne","Peterborough","Cambridge", "Newcastle-upon-Tyne","Peterborough","Liverpool","Stratford-upon-Avon")
df1 = data.frame(a,b,places)
library(ggplot2)
i = ggplot(df1, aes(x=a, y=b)) + geom_point(aes(colour = places), size=3) + opts(legend.position="bottom")
</code>

Jak bym owijał elementy legendy, gdy pudełko jest ustawione na dole - powiedzmy w 2 lub 3 liniach? W tej chwili siedem pozycji legendy jest obok siebie. Wolałbym, żeby były wyświetlane w dwóch rzędach (powiedzmy cztery miasta w górnym rzędzie i trzy miasta w drugim rzędzie).

Z góry bardzo dziękuję.

questionAnswers(2)

yourAnswerToTheQuestion