画图神器ggplot2之二：修改图例guide_legend-经管之家官网！

guide_legend(title = waiver(), title.position = NULL, title.theme = NULL, title.hjust = NULL, title.vjust = NULL, label = TRUE, label.position = NULL, label.theme = NULL, label.hjust = NULL, label.vjust = NULL, keywidth = NULL, keyheight = NULL, direction = NULL, default.unit = "line", override.aes = list(), nrow = NULL, ncol = NULL, byrow = FALSE, reverse = FALSE, order = 0, ...)Examples

library(reshape2) # for meltdf <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))p2 <- p1 + geom_point(aes(size = value))# Basic formp1 + scale_fill_continuous(guide = "legend")

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF9tnEI5PlwNBgebJCD8Th3jjHGWUOIHehqPKFZhnEOcmW4sp5IcHiatQ/0?wx_fmt=png

p1 + scale_fill_continuous(guide = guide_legend())

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF9tnEI5PlwNBgebJCD8Th3jjHGWUOIHehqPKFZhnEOcmW4sp5IcHiatQ/0?wx_fmt=png

# Guide titlep1 + scale_fill_continuous(guide = guide_legend(title = "V")) # title text

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFvYKHFrkZYY1ZDzyQnLia6g5XF69x4cTrg9E6u6nT0E7O0LibEdSicpBlg/0?wx_fmt=png

p1 + scale_fill_continuous(name = "V") # same

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFAjdSnqPKqqOW5WSuianicxHZ98Tbjrfib763AuiblmfrCDsU7BPrqhFbbQ/0?wx_fmt=png

p1 + scale_fill_continuous(guide = guide_legend(title = NULL)) # no title

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFUenMxuOtw0H5ptYiaz7YtNQQ7drjNW9wAibr9F8zeh0iaGtBJrUIdRx1A/0?wx_fmt=png

# Control styles# key sizep1 + guides(fill = guide_legend(keywidth = 3, keyheight = 1))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFyB1d4JGFhh9PFCqFD7JiakVhxBqicsmZhcY1GOCGuGQSUgLwAK97t5Cw/0?wx_fmt=png

# title positionp1 + guides(fill = guide_legend(title = "LEFT", title.position = "left"))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFj4C3oLg0TkjrQhW5dT8blQc5KZB7iaIO7njl0OM78lko1dLiakU190Dw/0?wx_fmt=png

# title text styles via element_textp1 + guides(fill = guide_legend(title.theme = element_text(size=15, face="italic", colour = "red", angle = 45)))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFuh9RpO6fuEchSKNq9mSEia9Puia5kJUp9vXwNibfFRia6rvQ4FkSFqDM5w/0?wx_fmt=png

# label positionp1 + guides(fill = guide_legend(label.position = "bottom"))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF4XfTibIvDIrfgB4ibUzuyg5Ud3KZUmBlWgLPjicHCqW3hBpwvLwaibROxA/0?wx_fmt=png

# label stylesp1 + scale_fill_continuous(breaks = c(5, 10, 15),labels = paste("long", c(5, 10, 15)),guide = guide_legend(direction = "horizontal", title.position = "top", label.position="bottom", label.hjust = 0.5, label.vjust = 0.5, label.theme = element_text(angle = 90)))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFnANPqMEMOam0SRnadYVJQhqhw770ibCL1rOTceVmXghegPrLVfHHNxw/0?wx_fmt=png

# Set aesthetic of legend key# very low alpha value make it difficult to see legend keyp3 <- qplot(carat, price, data = diamonds, colour = color,alpha = I(1/100))p3

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFTKia10ibWRLfOxic5drWvaHPkeLIoMDQV5eYZyQAr8TGhpcvIssqFrYTg/0?wx_fmt=png

# override.aes overwrites the alphap3 + guides(colour = guide_legend(override.aes = list(alpha = 1)))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF3AnibROcNNicCUJUs7hxic9JEVmk33LSL4XIsF7ic1VfO0zUbVCACSf7Sw/0?wx_fmt=png

# multiple row/col legendsp <- qplot(1:20, 1:20, colour = letters[1:20])p + guides(col = guide_legend(nrow = 8))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFHuQkee9H89unLiaia9OWnFul7EdXuicfbO9GAIxicHib26PmRpQW4QLjGQg/0?wx_fmt=png

p + guides(col = guide_legend(ncol = 8))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFUEnUpo4Yribm8VfDSuVylAPkibcgrntpXibW6O14wcyoMUpWkc7Ie8n3g/0?wx_fmt=png

p + guides(col = guide_legend(nrow = 8, byrow = TRUE))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF2AlEfpUmLxG6a2Omcfs6eviaYf8bjDB8iay0I4NF7jDjHWqo9XEcicnsg/0?wx_fmt=png

p + guides(col = guide_legend(ncol = 8, byrow = TRUE))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlF9SSm5u0jvdneMwoicGS1gvBccDRGibENqiay17hIrSH70icINLdQCYgQCQ/0?wx_fmt=png

# reversed order legendp + guides(col = guide_legend(reverse = TRUE))

https://mmbiz.qlogo.cn/mmbiz/njjfaJS7c9oicWmiaWI6jdb8DLXNm0hqlFUiaiahIFVT55zmmAdf8NNjpTaARBFl5picgydMnTf2G6CZ9NCp7EKyIcg/0?wx_fmt=png

https://pic.bbs.jg.com.cn/album/201505/30/233756sq4qpqkrgsby5bl7.jpg

扫码或添加微信号：坛友素质互助

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP