Cách thay đổi tiêu đề huyền thoại trong ggplot

Tôi có cốt truyện như sau. Nó được tạo bằng lệnh này:

library(ggplot2)

df <- data.frame(cond = factor(rep(c("A", "B"), each = 200)), 
                 rating = c(rnorm(200), rnorm(200, mean=.8)))

ggplot(df, aes(x=rating, fill=cond)) + 
geom_density(alpha = .3) +
xlab("NEW RATING TITLE") +
ylab("NEW DENSITY TITLE")

Bây giờ điều tiếp theo tôi muốn làm là sửa đổi tiêu đề huyền thoại từ cond thành TITLE LEGEND MỚI .

Vì vậy, những gì tôi đã làm là chỉ cần thêm dòng sau đây thêm phần cuối của đoạn mã trên:

+labs(colour="NEW LEGEND TITLE")

Nhưng nó không hoạt động. Cách đúng đắn để làm điều đó là gì?

Điều này sẽ làm việc:

p <- ggplot(df, aes(x=rating, fill=cond)) + 
           geom_density(alpha=.3) + 
           xlab("NEW RATING TITLE") + 
           ylab("NEW DENSITY TITLE")
p <- p + guides(fill=guide_legend(title="New Legend Title"))

(Hay cách khác)

p + scale_fill_discrete(name = "New Legend Title")

Tôi không đào sâu vào vấn đề này nhưng vì bạn đã sử dụng fill = cond trong ggplot (),

 + labs(color='NEW LEGEND TITLE') 

có thể không làm việc Tuy nhiên, bạn thay thế màu bằng cách điền , nó hoạt động!

+ labs(fill='NEW LEGEND TITLE') 

Điều này làm việc cho tôi trong ggplot2_2.1.0

Vì bạn có hai mật độ, tôi tưởng tượng bạn có thể muốn thiết lập màu sắc của riêng mình scale_fill_manual.

Nếu vậy bạn có thể làm:

df <- data.frame(x=1:10,group=c(rep("a",5),rep("b",5)))

legend_title <- "OMG My Title"

ggplot(df, aes(x=x, fill=group)) + geom_density(alpha=.3) +   
    scale_fill_manual(legend_title,values=c("orange","red"))

Không có mã nào ở trên làm việc cho tôi.

Đây là những gì tôi tìm thấy và nó hoạt động.

labs(color = "sale year")

Bạn cũng có thể cung cấp một khoảng trắng giữa tiêu đề và màn hình bằng cách thêm \nvào cuối.

labs(color = 'sale year\n")

Vì trong mã của bạn, bạn đã sử dụng ggplot(data, fill= cond)để tạo biểu đồ, bạn cần thêm tiêu đề chú thích bằng cách sử dụng "điền" vào phần nhãn tức là +labs(fill="Title name"). Nếu bạn đang sử dụng một loại cốt truyện khác trong đó mã là ggplot (data, color = cond), thì bạn có thể sử dụng +labs(colour= "Title Name"). Tóm lại, đối số phòng thí nghiệm phải phù hợp với đối số aes.

Tôi đã sử dụng + guides(fill=guide_legend("my awesome title"))để thay đổi tiêu đề huyền thoại trên các lô geom_bar nhưng dường như nó không hoạt động cho geom_point.

Có một câu trả lời rất đơn giản khác có thể làm việc cho một số biểu đồ đơn giản.

Chỉ cần thêm một cuộc gọi đến guide_legend () vào biểu đồ của bạn.

ggplot(...) + ... + guide_legend(title="my awesome title")

Như thể hiện trong các tài liệu ggplot rất đẹp .

Nếu điều đó không hiệu quả, bạn có thể đặt chính xác hơn các tham số hướng dẫn của mình bằng một cuộc gọi đến hướng dẫn :

ggplot(...) + ... + guides(fill=guide_legend("my awesome title"))

Bạn cũng có thể thay đổi hình dạng / màu sắc / kích thước bằng cách chỉ định các tham số này cho cuộc gọi của bạn guides.

Chỉ cần thêm vào danh sách (các tùy chọn khác ở đây không phù hợp với tôi), bạn cũng có thể sử dụng chức năng update_labels cho ggplot:

p <- ggplot(df, aes(x=rating, fill=cond)) + 
           geom_density(alpha=.3) + 
           xlab("NEW RATING TITLE") + 
           ylab("NEW DENSITY TITLE")

update_labels(p, list(colour="MY NEW LEGEND TITLE")

Điều này cũng sẽ cho phép bạn thay đổi nhãn trục x và y, với các dòng riêng biệt:

update_labels(p, list(x="NEW X LABEL",y="NEW Y LABEL")

Tôi nhận thấy có hai cách để thay đổi / chỉ định Legend.title cho ggboxplot ():

library(ggpubr)

bxp.defaultLegend <- ggboxplot(ToothGrowth, x = "dose", y = "len",
                               color = "dose", palette = "jco")

# Solution 1, setup legend.title directly in ggboxplot()
bxp.legend <- ggboxplot(ToothGrowth, x = "dose", y = "len",
                 color = "dose", palette = "jco", legend.title="Dose (mg)")

# Solution 2: Change legend title and appearnace in ggboxplot() using labs() and theme() option:
plot1 <-  bxp.defaultLegend + labs(color = "Dose (mg)") +
  theme(legend.title = element_text(color = "blue", size = 10), legend.text = element_text(color = "red"))

ggarrange(list(bxp.legend, bxp.defaultLegend, plot1), nrow = 1, ncol = 3,  common.legend = TRUE)

Mã được sửa đổi dựa trên ví dụ từ GitHub .

Tôi đang sử dụng facet_wrap trong ggplot của mình và không có giải pháp được đề xuất nào phù hợp với tôi ngoại trừ giải pháp của ArnaudA:

qplot(…) + guides(color=guide_legend(title="sale year")) 

Nhiều người dành nhiều thời gian để thay đổi nhãn, nhãn huyền thoại, tiêu đề và tên của trục vì họ không biết có thể tải các bảng trong R có chứa khoảng trắng " ". Tuy nhiên, bạn có thể làm điều này để tiết kiệm thời gian hoặc giảm kích thước mã của mình, bằng cách chỉ định các dấu phân cách khi bạn tải một bảng được phân tách bằng các tab (hoặc bất kỳ dấu tách nào khác ngoài mặc định hoặc một khoảng trắng):

read.table(sep = '\t')

hoặc bằng cách sử dụng các tham số tải mặc định của định dạng csv:

read.csv()

Điều này có nghĩa là bạn có thể trực tiếp giữ tên "NEW LEGEND TITLE"dưới dạng tên cột (tiêu đề) trong tệp dữ liệu gốc của mình để tránh chỉ định tiêu đề chú giải mới trong mỗi âm mưu.

ggplot(df) + labs(legend = '<legend_title>')