ggplot2画图：legend整理(title/position/order...)

修改一组legend，导入iris数据集，默认画图：

代码语言：javascript复制

data(iris)
p <- ggplot(iris, aes(x = Species, y = Sepal.Width, fill = Species))   geom_boxplot(outlier.colour = NA)   theme_bw()
p 

image.png

1. 修改legend的题目 (title)

代码语言：javascript复制

p   labs(fill = "Type")
# 或者
p   p   guides(fill = guide_legend(title = 'Type'))

image.png

2.修改legend的位置 (position)

修改位置有两种方式，一种是直接给出四种位置中的一个：“left”,“top”, “right”, “bottom”, “none”。

代码语言：javascript复制

p   theme(legend.position="top")

image.png

另一种是给出数值型位置坐标：

代码语言：javascript复制

p   theme(legend.position = c(0.7, 0.1),
          legend.direction = "horizontal")

image.png

3.反转 (reverse) legend的顺序 (order)

代码语言：javascript复制

p   guides(fill = guide_legend(reverse=TRUE))
# 或者
p   scale_fill_discrete(guide = guide_legend(reverse=TRUE))
# 或者
p   scale_fill_discrete(breaks = rev(levels(iris$Species)))

image.png

4.去掉legend

代码语言：javascript复制

p   theme(legend.position = "none")
# 或者
p   guides(fill=FALSE)

image.png

5.修改legend字体大小、颜色

代码语言：javascript复制

p   theme(legend.title = element_text(color = "blue", size = 15),
          legend.text = element_text(color = "orange", size = 12))

image.png

6.修改背景 (background) 颜色、key的大小和宽度

代码语言：javascript复制

p   theme(
  # Change legend background color
  legend.background = element_rect(fill = "gray"),
  legend.key = element_rect(fill = "yellow", color = NA),
  # Change legend key size and key width
  legend.key.size = unit(1.5, "cm"),
  legend.key.width = unit(1,"cm") 
  )

image.png

7.添加legend的外边框

代码语言：javascript复制

p   theme(
  legend.background = element_rect(color = "blue", linetype = "solid", size = 1)
  )

image.png

8.修改标签 (labels) 和顺序 (order)

代码语言：javascript复制

# 修改的是box的顺序
p   scale_x_discrete(limits=c("versicolor", "virginica", "setosa"))

image.png

代码语言：javascript复制

# 修改标签名字
p   scale_fill_discrete(name = "Species", labels = c("S", "V1", "V2"))

image.png

9.修改颜色

代码语言：javascript复制

p   scale_fill_manual(values = c("#d8b365", "#f5f5f5", "#5ab4ac"))

image.png

修改多组的legend，导入mtcars数据集并画图：

代码语言：javascript复制

data(mtcars)
mtcars$cyl<-as.factor(mtcars$cyl)
mtcars$gear <- as.factor(mtcars$gear)
p <- ggplot(data = mtcars, aes(x = mpg, y = wt)) 
    geom_point(aes(color = cyl, size = qsec, shape = gear))   theme_bw()
p

image.png

1.修改位置

代码语言：javascript复制

p   theme(legend.position = "bottom",
          legend.box = "vertical")

image.png

2.修改顺序

代码语言：javascript复制

p   guides(size = guide_legend(order = 1),
         color = guide_legend(order = 2),
         shape = guide_legend(order = 3))

image.png

3.去掉其中的两个legend

代码语言：javascript复制

p   guides(shape = FALSE, size = FALSE)

image.png

欢迎关注～

image legend png reverse title

0 人点赞