Làm cách nào để thay đổi tiêu đề của một huyền thoại trong ggplot2? [đóng cửa]

Tôi có một cốt truyện tôi đang thực hiện trong ggplot2 để tóm tắt dữ liệu từ bộ dữ liệu có kích thước 2 x 4 x 3. Tôi đã có thể tạo các bảng cho biến 2 cấp bằng cách sử dụng facet_grid(. ~ Age)và đặt trục x và y bằng cách sử dụng aes(x=4leveledVariable, y=DV). Tôi đã từng aes(group=3leveledvariable, lty=3leveledvariable)sản xuất cốt truyện cho đến nay. Điều này mang lại cho tôi một hình ảnh trực quan được điều khiển bởi biến 2 cấp, với trục X đại diện cho biến 4 cấp và các dòng khác nhau được vẽ trong các bảng cho biến 3 cấp. Nhưng khóa cho biến 3 cấp có tiêu đề với tên của biến 3 cấp và tôi muốn nó là một tiêu đề có không gian ký tự trong đó. Làm thế nào tôi có thể đổi tên tiêu đề của truyền thuyết?

Những thứ tôi đã thử dường như không hoạt động ( abpđối tượng ggplot2 của tôi ở đâu):

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

Dữ liệu ví dụ:

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)

Một lựa chọn khác là sử dụng

p + labs(aesthetic='custom text')     

Ví dụ: ví dụ của Chase sẽ giống như:

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

và mang lại con số:

Bạn có thể thay đổi tiêu đề của truyền thuyết bằng cách sửa đổi thang đo cho huyền thoại đó. Dưới đây là một ví dụ sử dụng bộ dữ liệu CO2

library(ggplot2)

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

BIÊN TẬP:

Sử dụng dữ liệu ví dụ từ trên, đây là một giải pháp làm việc. Tôi nghĩ điều này bắt chước cốt truyện mà @drknexus đang cố gắng tạo ra. Một lưu ý phụ, nếu bất cứ ai có thể giải thích lý do tại sao chúng ta phải coi V3 là yếu tố để nó được ánh xạ tới huyền thoại, tôi sẽ đánh giá cao nó.

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