我有一个同时使用线条类型和颜色美感的数据集。图例显示了两种美学,但我只希望图例本身具有一种美学(颜色或线条类型)。
这也适用于另一个数据集,其中我只希望四行中的一行比其余行大,这是我在 geom_line 美学中使用 ifelse
语句执行的,但实际的 ifelse
语句显示在图例中。
我从 mtcars
数据集中获取了一个示例,我只想显示颜色。
library(tidyverse)
mtcars <- as.tibble(mtcars)
mtcars$gear <- as.factor(mtcars$gear)
mtcars$cyl <- as.factor(mtcars$cyl)
mtcars1 <- mtcars %>%
arrange(gear) %>%
ggplot(aes(x = qsec, group = 1)) +
geom_point(aes(y=disp, group = cyl, color = cyl)) +
geom_line(aes(y=disp, group = cyl, color = cyl, linetype = cyl)) +
scale_color_manual(values=c("#000000", "#E69F00", "#56B4E9")) +
labs(title = "MTCARS Example", colour="Cylinder",x= "x",y="Disp")
print(mtcars1)
是否可以操纵图例以仅显示一种美感?
最佳答案
尝试
mtcars1 + guides(color = "none")
mtcars1 + guides(linetype = "none")
关于r - 仅设置一种美学显示在 ggplot2 图例中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49795780/