Як змінити назву легенди в ggplot

У мене такий сюжет, як нижче. Він був створений за допомогою цієї команди:

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

Тепер наступне, що я хочу зробити, - це змінити назву легенди з cond в НОВИЙ ЗАГАЛЬНИЙ ЛЕГЕНД .

Отже, що я зробив, це просто додати наступний рядок і додати кінець вищевказаного коду:

+labs(colour="NEW LEGEND TITLE")

Але це не працює. Який правильний спосіб це зробити?

Це має працювати:

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

(або альтернативно)

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

Я не дуже багато в цьому розбирався, а тому, що ви використовували fill = cond в ggplot (),

 + labs(color='NEW LEGEND TITLE') 

можливо, не спрацювало. Однак ви заміните колір на заливку , це працює!

+ labs(fill='NEW LEGEND TITLE') 

Це працювало для мене в ggplot2_2.1.0

Оскільки у вас є дві щільності, я думаю, ви, можливо, хочете встановити свої власні кольори scale_fill_manual.

Якщо так, ви можете зробити:

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

Жоден із наведених вище кодів не працював для мене.

Ось що я знайшов, і це спрацювало.

labs(color = "sale year")

Ви також можете вказати пробіл між заголовком та екраном, додавши \nв кінці.

labs(color = 'sale year\n")

Оскільки у своєму коді ви використовували ggplot(data, fill= cond)для створення гістограми, вам потрібно додати назву легенди, також використовуючи "заповнити" в розділі мітки, тобто +labs(fill="Title name"). Якщо ви використовували інший тип сюжету, де код був ggplot (дані, color = cond), то ви могли б використовувати +labs(colour= "Title Name"). Підсумовуючи, аргумент лабораторії повинен відповідати аргументу AES.

Я раніше + guides(fill=guide_legend("my awesome title"))міняв назву легенди на сюжетах geom_bar, але, здається, це не працює для geom_point.

Є ще одна дуже проста відповідь, яка може працювати для деяких простих графіків.

Просто додайте виклик до guide_legend () у свій графік.

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

Як показано в дуже гарних документах ggplot .

Якщо це не працює, ви можете більш точно встановити свої орієнтири за допомогою виклику напрямних :

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

Ви також можете змінити форму / колір / розмір, вказавши ці параметри для свого дзвінка guides.

Просто для додання до списку (інші параметри тут не працювали для мене), ви також можете використовувати функцію update_labels для 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")

Це також дозволить змінити мітки осі x і y, окремими рядками:

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

Я помітив, що існує два способи змінити / вказати legend.title для 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)

Код модифікується на прикладі GitHub .

Я використовую facet_wrap у своєму ggplot, і жодне із запропонованих рішень не працювало для мене, крім рішення ArnaudA:

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

Багато людей проводять багато часу, змінюючи мітки, мітки легенд, заголовки та назви осі, оскільки вони не знають, що можна завантажувати таблиці в R, що містить пробіли " ". Однак ви можете це зробити, щоб заощадити час або зменшити розмір коду, вказавши роздільники, коли ви завантажуєте таблицю, яка, наприклад, обмежена вкладками (або будь-яким іншим роздільником, ніж за замовчуванням або одним пробілом):

read.table(sep = '\t')

або використовуючи параметри завантаження за замовчуванням у форматі csv:

read.csv()

Це означає, що ви можете безпосередньо зберігати ім'я "NEW LEGEND TITLE"як ім’я стовпця (заголовок) у своєму вихідному файлі даних, щоб уникнути введення нового заголовка легенди у кожному сюжеті.

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