更改 ggplot2 中图例键中的符号

Question

此 R 代码生成一个 ggplot2 图形，其中图例键包含以红色、蓝色和绿色重复的字母 "a"。

x <- rnorm(9); y <- rnorm(9); s <- rep(c("F","G","K"), each = 3)
df <- data.frame(x, y, s)

require(ggplot2)
ggplot(df, aes(x = x, y = y, col = s, label = s)) + 
geom_text() +
scale_colour_discrete(name = "My name", breaks = c("F","K","G"), labels = c("Fbig","Kbig","Gbig"))

我想用 "F"、"K" 和 "G" 替换图例键中重复的 "a"。

请问这可行吗？谢谢。

Answer 1

手动重命名图例添加

+ scale_x_continuous(breaks=c(x1,x2,x3), labels=c("F", "K", "G"))

其中 x1、x2、x3 是点号

Answer 2

为 this answer 调整代码：这个想法是禁止 geom_text 图例，但允许 geom_point 的图例，但将点大小设为零，这样点在图中不可见，然后设置点的大小和形状guides 语句中的图例

x <- rnorm(9); y <- rnorm(9); s <- rep(c("F","G","K"), each = 3)
df <- data.frame(x, y, s)
#
require(ggplot2)
#
ggplot(df, aes(x = x, y = y, colour = s, label = s)) +
   geom_point(size = 0, stroke = 0) +  # OR  geom_point(shape = "") +
   geom_text(show.legend = FALSE) +
   guides(colour = guide_legend(override.aes = list(size = 5, shape = c(utf8ToInt("F"), utf8ToInt("K"), utf8ToInt("G"))))) +
   scale_colour_discrete(name = "My name", breaks = c("F","K","G"), labels = c("Fbig","Kbig","Gbig"))

更改 ggplot2 中图例键中的符号

Change the symbol in a legend key in ggplot2

r

ggplot2