如何解决手动更改图例ggplot2的形状
我一直在自定义下图中的主题,线条和颜色
library(dplyr)
library(ggplot2)
library(readr)
library(zoo)
cvper <- read.csv("https://cloud.minsa.gob.pe/s/Y8w3wHsEdYQSZRp/download",stringsAsFactors = FALSE)
nuevos_cvper <- cvper %>%
group_by(FECHA_RESULTADO) %>%
arrange(desc(FECHA_RESULTADO)) %>%
summarize (casos_x_dia= n()) %>%
mutate(media_movil = rollmean(casos_x_dia,k=7,fill = NA,align = "right"))
prueba_legend <- ggplot(nuevos_cvper) +
geom_line(aes (x = FECHA_RESULTADO,y = media_movil,color = "media_movil"),size = 1.5) +
geom_line(aes (x = FECHA_RESULTADO,y = casos_x_dia,color = "casos_x_dia"),linetype = "dashed" ) +
geom_point (aes(x = FECHA_RESULTADO,color = "casos_x_dia")) +
scale_colour_manual("",values = c("media_movil"="#CF3721","casos_x_dia"="#31A9B8","casos_x_dia"="#31A9B8")) +
theme_bw () + theme(legend.position="bottom")
prueba_legend
它以短线显示图例。我想将这些线条更改为圆形。我已经尝试过使用scale_shape_manual,但是它不起作用。有办法吗?
解决方法
由于使用的是最新的ggplot2
版本之一(请确保通过install.packages("ggplot2")
更新),因此可以使用参数key_glyph=
来指定应使用的draw_key
函数用于绘制给定几何图形和美学的图例字形。 See here for some more information and examples of usage;但是,我将通过下面的示例演示如何使用mtcars
和ggplot2
版本3.3.2:
ggplot(iris,aes(x=Sepal.Length,y=Sepal.Width,color=Species)) +
geom_line(key_glyph = "point")
您可能会注意到,就像我所做的那样,根据我的口味,点数有点小。可以通过为色彩美学指定的override.aes=
函数使用guide_legend()
进行调整,以使这些点变大。
ggplot(iris,color=Species)) +
geom_line(key_glyph = "point") +
guides(color=guide_legend(override.aes = list(size=3)))
,
也许您正在寻找这个:
""940""
代码:
""950""
输出:
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。