Bagaimana saya bisa mengubah judul legenda di ggplot2? [Tutup]

Saya punya plot yang saya buat di ggplot2 untuk merangkum data yang berasal dari dataset sel 2 x 4 x 3. Saya sudah bisa membuat panel untuk variabel 2-leveled menggunakan facet_grid(. ~ Age)dan untuk mengatur sumbu x dan y menggunakan aes(x=4leveledVariable, y=DV). Saya dulu aes(group=3leveledvariable, lty=3leveledvariable)memproduksi plot sejauh ini. Ini memberi saya visualisasi yang panel oleh variabel 2-level, dengan sumbu X mewakili 4 variabel level dan garis yang berbeda diplot dalam panel untuk variabel 3-level. Tetapi kunci untuk variabel 3-leveled berjudul dengan nama variabel 3-leveled dan saya ingin itu menjadi judul yang memiliki ruang karakter di dalamnya. Bagaimana saya bisa mengganti nama judul legenda?

Hal-hal yang saya coba tidak berhasil (di mana abpobjek ggplot2 saya):

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

Contoh data:

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)

Pilihan lain adalah menggunakan

p + labs(aesthetic='custom text')     

Sebagai contoh, contoh Chase akan terlihat seperti:

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

dan menghasilkan angka:

Anda dapat mengubah judul legenda dengan memodifikasi skala untuk legenda itu. Berikut ini contoh menggunakan dataset CO2

library(ggplot2)

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

SUNTING:

Menggunakan contoh data dari atas, berikut adalah solusi yang berfungsi. Saya pikir ini meniru alur yang coba dibuat @drknexus. Sebagai catatan tambahan, jika ada yang bisa menjelaskan mengapa kita harus memperlakukan V3 sebagai faktor untuk memetakannya ke legenda, saya akan menghargainya.

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