Jak mogę zmienić tytuł legendy w ggplot2? [Zamknięte]

Mam wykres, który tworzę w ggplot2, aby podsumować dane, które pochodzą z 2 x 4 x 3 komórek. Byłem w stanie wykonać panele dla zmiennej 2-poziomowej za pomocą facet_grid(. ~ Age)i ustawić za pomocą osi xiy aes(x=4leveledVariable, y=DV). Kiedyś aes(group=3leveledvariable, lty=3leveledvariable)produkować fabułę tej pory. To daje mi wizualizację, która jest panelowana przez zmienną 2-poziomową, z osią X reprezentującą zmienną 4-poziomową i różnymi liniami wykreślonymi w panelach dla zmiennej 3-poziomowej. Ale klucz dla zmiennej trójpoziomowej jest zatytułowany nazwą zmiennej trójpoziomowej i chcę, aby był to tytuł z przestrzenią znaków. Jak mogę zmienić nazwę tytułu legendy?

Rzeczy, które próbowałem, które wydają się nie działać (gdzie abpjest mój obiekt ggplot2):

 abp <- abp + opts(legend.title="Town Name")
 abp <- abp + scale_fill_continuous("Town Name")
 abp <- abp + opts(group="Town Name")
 abp <- abp + opts(legend.title="Town Name")

Przykładowe dane:

ex.data <- data.frame(DV=rnorm(2*4*3), V2=rep(1:2,each=4*3), V4=rep(1:4,each=3), V3=1:3)

Inną opcją jest użycie

p + labs(aesthetic='custom text')     

Na przykład przykład Chase'a mógłby wyglądać następująco:

library(ggplot2)

ex.data <- data.frame(DV=rnorm(2*4*3),V2=rep(1:2,each=4*3),V4=rep(1:4,each=3),V3=1:3)
p <- qplot(V4, DV, data=ex.data, geom="line", group=V3, linetype=factor(V3)) + facet_grid(. ~ V2)
p + labs(linetype='custom title')

i uzyskaj liczbę:

Możesz zmienić tytuł legendy, modyfikując skalę dla tej legendy. Oto przykład z wykorzystaniem zestawu danych CO2

library(ggplot2)

p <- qplot(conc, uptake, data = CO2, colour = Type) + scale_colour_discrete(name = "Fancy Title")
p <- p + facet_grid(. ~ Treatment)
p 

EDYTOWAĆ:

Korzystając z przykładowych danych z góry, oto działające rozwiązanie. Myślę, że to naśladuje fabułę, którą @drknexus próbuje stworzyć. Na marginesie, jeśli ktokolwiek może wyjaśnić, dlaczego musimy traktować V3 jako czynnik mapowania go do legendy, doceniłbym to.

p <- qplot(V4, DV, data = ex.data, geom = "line", group = V3, lty = factor(V3)) 
p <- p + scale_linetype_discrete(name = "Fancy Title") + facet_grid(. ~ V2)
p