Bagaimana cara mengubah judul legenda di ggplot

Saya memiliki plot berikut seperti di bawah ini. Itu dibuat dengan perintah ini:

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

Sekarang hal berikutnya yang ingin saya lakukan adalah mengubah judul legenda dari cond ke NEW LEGEND TITLE .

Jadi yang saya lakukan adalah menambahkan baris berikut, tambahkan akhir kode di atas:

+labs(colour="NEW LEGEND TITLE")

Tapi itu tidak berhasil. Apa cara yang benar untuk melakukannya?

Ini seharusnya bekerja:

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

(atau sebagai alternatif)

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

Saya tidak menggali banyak tentang ini tetapi karena Anda menggunakan fill = cond in ggplot (),

 + labs(color='NEW LEGEND TITLE') 

mungkin tidak berhasil. Namun jika Anda mengganti warna dengan isi , itu berfungsi!

+ labs(fill='NEW LEGEND TITLE') 

Ini bekerja untuk saya di ggplot2_2.1.0

Karena Anda memiliki dua kerapatan, saya bayangkan Anda mungkin ingin mengatur warna Anda sendiri scale_fill_manual.

Jika demikian, Anda dapat melakukannya:

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

Tidak satu pun dari kode di atas bekerja untuk saya.

Inilah yang saya temukan dan berhasil.

labs(color = "sale year")

Anda juga dapat memberi ruang antara judul dan tampilan dengan menambahkan \ndi bagian akhir.

labs(color = 'sale year\n")

Karena dalam kode yang Anda gunakan ggplot(data, fill= cond)untuk membuat histogram Anda perlu menambahkan judul legenda dengan juga menggunakan "isi" di bagian label yaitu +labs(fill="Title name"). Jika Anda menggunakan tipe plot yang berbeda dengan kode ggplot (data, color = cond), maka Anda dapat menggunakannya +labs(colour= "Title Name"). Singkatnya, argumen lab harus cocok dengan argumen aes.

Saya telah terbiasa + guides(fill=guide_legend("my awesome title"))mengubah judul legenda pada plot geom_bar tetapi sepertinya tidak berhasil untuk geom_point.

Ada jawaban lain yang sangat sederhana yang dapat bekerja untuk beberapa grafik sederhana.

Cukup tambahkan panggilan ke guide_legend () ke dalam grafik Anda.

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

Seperti yang ditunjukkan dalam dokumen ggplot yang sangat bagus .

Jika itu tidak berhasil, Anda dapat mengatur parameter panduan dengan panggilan ke panduan :

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

Anda juga dapat memvariasikan bentuk / warna / ukuran dengan menentukan parameter ini untuk panggilan Anda guidesjuga.

Hanya untuk menambah daftar (opsi lain di sini tidak bekerja untuk saya), Anda juga dapat menggunakan fungsi update_labels untuk 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")

Ini juga akan memungkinkan Anda untuk mengubah label sumbu x dan y, dengan baris terpisah:

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

Saya perhatikan ada dua cara untuk mengubah / menentukan legend.title untuk 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)

Kode diubah berdasarkan contoh dari GitHub .

Saya menggunakan facet_wrap di ggplot saya dan tidak ada solusi yang disarankan yang bekerja untuk saya kecuali solusi ArnaudA:

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

Banyak orang menghabiskan banyak waktu mengganti label, label legenda, judul, dan nama sumbu karena mereka tidak tahu bahwa mungkin untuk memuat tabel di R yang berisi spasi " ". Namun Anda dapat melakukan ini untuk menghemat waktu atau mengurangi ukuran kode Anda, dengan menentukan pemisah saat Anda memuat tabel yang misalnya dibatasi dengan tab (atau pemisah lain selain standar atau satu ruang tunggal):

read.table(sep = '\t')

atau dengan menggunakan parameter pemuatan default format csv:

read.csv()

Ini berarti Anda dapat secara langsung menyimpan nama "NEW LEGEND TITLE"sebagai nama kolom (header) dalam file data asli Anda untuk menghindari menentukan judul legenda baru di setiap plot.

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