Как я могу изменить название легенды в ggplot2? [закрыто]

У меня есть график, который я делаю в ggplot2, чтобы суммировать данные из набора данных размером 2 x 4 x 3. Я был в состоянии сделать панели для переменной с двумя уровнями, используя facet_grid(. ~ Age)и установить оси X и Y, используя aes(x=4leveledVariable, y=DV). aes(group=3leveledvariable, lty=3leveledvariable)До сих пор я создавал сюжет. Это дает мне визуализацию, которая состоит из 2-уровневой переменной, а ось X представляет 4-уровневую переменную и различные линии, нанесенные на панели для 3-уровневой переменной. Но ключ для 3-уровневой переменной имеет название 3-уровневой переменной, и я хочу, чтобы это был заголовок, в котором есть символьное пространство. Как я могу переименовать название легенды?

То, что я пробовал, похоже, не работает (где abpмой объект 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")

Пример данных:

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 + labs(aesthetic='custom text')     

Например, пример Чейза будет выглядеть так:

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')

и получим цифру:

Вы можете изменить название легенды, изменив масштаб этой легенды. Вот пример использования набора данных CO2

library(ggplot2)

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

РЕДАКТИРОВАТЬ:

Используя приведенный выше пример данных, вот рабочее решение. Я думаю, что это имитирует сюжет, который @drknexus пытается создать. В качестве примечания: если кто-то может объяснить, почему мы должны рассматривать V3 как фактор для его сопоставления с легендой, я был бы признателен.

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