R语言ggplot2之图例的设置

library(ggplot2)
p <- ggplot(PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot()
p + guides(fill=FALSE)

p <- ggplot(PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot() +
scale_fill_brewer(palette="Pastel2")
#上方 
p + theme(legend.position="top")#左边left,右边 right, 底部bottom

p <- ggplot(PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot()
#使用limit参数设置图例位置
p + scale_fill_discrete(limits=c("trt1", "trt2", "ctrl"))
#使用guides(fill=guide_legend(reverse=TRUE))逆转图例
p + guides(fill=guide_legend(reverse=TRUE))

#改变标题名字 用labs()
p + labs(fill="Condition")
# 设置图例的标题的字体、颜色、大小用theme(legend.title=element_text())
p + theme(legend.title=element_text(face="italic", family="Times", colour="red",
size=14))
#移除图例标题
#增加 guides(fill=guide_legend(title=NULL))函数即可移除图例标题
ggplot(PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot() +
guides(fill=guide_legend(title=NULL))

library(GCookbook)
#改变标签的名字
p <- ggplot(PlantGrowth, aes(x=group, y=weight, fill=group)) + geom_boxplot()
p + scale_fill_discrete(labels=c("Control", "Treatment 1", "Treatment 2"))
#改变标签的主题
p + theme(legend.text=element_text(face="italic", family="Times", colour="red",
size=14))
#多行图例标签的展示
#有时候标签名字较长，一行展示不够美观，需要多行呈现 加一个\n
p + scale_fill_discrete(labels=c("Control", "Type 1\ntreatment",
"Type 2\ntreatment"))