Como alterar o título da legenda no ggplot

Eu tenho o seguinte gráfico como abaixo. Foi criado com este comando:

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

Agora, a próxima coisa que quero fazer é modificar o título da legenda de cond para NEW LEGEND TITLE .

Então, o que eu fiz foi adicionar a seguinte linha e adicionar o final do código acima:

+labs(colour="NEW LEGEND TITLE")

Mas isso não funciona. Qual é o caminho certo para fazer isso?

Isso deve funcionar:

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

(ou alternativamente)

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

Eu não gostei muito disso, mas porque você usou fill = cond em ggplot (),

 + labs(color='NEW LEGEND TITLE') 

pode não ter funcionado. No entanto, você substitui a cor pelo preenchimento , funciona!

+ labs(fill='NEW LEGEND TITLE') 

Isso funcionou para mim no ggplot2_2.1.0

Como você tem duas densidades, imagino que você queira definir suas próprias cores scale_fill_manual.

Se sim, você pode fazer:

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

Nenhum dos códigos acima funcionou para mim.

Aqui está o que eu encontrei e funcionou.

labs(color = "sale year")

Você também pode dar um espaço entre o título e a exibição adicionando \nno final.

labs(color = 'sale year\n")

Como no seu código você costumava ggplot(data, fill= cond)criar o histograma, você precisa adicionar o título da legenda usando também "fill" na seção do rótulo, por exemplo +labs(fill="Title name"). Se você estava usando um tipo diferente de plotagem em que o código era ggplot (data, cor = cond), você poderia usar +labs(colour= "Title Name"). Em resumo, o argumento do laboratório deve corresponder ao argumento aes.

Eu costumava + guides(fill=guide_legend("my awesome title"))alterar o título da legenda nos gráficos geom_bar, mas ele não parecia funcionar para geom_point.

Há outra resposta muito simples que pode funcionar para alguns gráficos simples.

Basta adicionar uma chamada para guide_legend () no seu gráfico.

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

Como mostrado nos excelentes documentos do ggplot .

Se isso não funcionar, você pode definir com mais precisão os parâmetros do seu guia com uma chamada para guias :

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

Você também pode variar a forma / cor / tamanho especificando esses parâmetros para a sua chamada guides.

Apenas para adicionar à lista (as outras opções aqui não funcionaram para mim), você também pode usar a função update_labels for 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")

Isso também permitirá que você altere os rótulos dos eixos x e y, com linhas separadas:

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

Notei que existem duas maneiras de alterar / especificar legend.title para 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)

O código é modificado com base no exemplo do GitHub .

Estou usando um facet_wrap no meu ggplot e nenhuma das soluções sugeridas funcionou para mim, exceto a solução da ArnaudA:

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

Muitas pessoas passam muito tempo alterando rótulos, legendas, títulos e nomes do eixo porque não sabem que é possível carregar tabelas no R que contém espaços " ". No entanto, você pode fazer isso para economizar tempo ou reduzir o tamanho do seu código, especificando os separadores ao carregar uma tabela que, por exemplo, é delimitada por guias (ou qualquer outro separador que não seja o padrão ou um espaço único):

read.table(sep = '\t')

ou usando os parâmetros de carregamento padrão do formato csv:

read.csv()

Isso significa que você pode manter diretamente o nome "NEW LEGEND TITLE"como um nome de coluna (cabeçalho) no arquivo de dados original para evitar a especificação de um novo título de legenda em cada plot.

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