geom_text ggplot2图中的多种颜色

Question

我需要帮助才能在 ggplot2 图中为 geom_text 标签的特定部分着色。

这是我用来生成示例的代码：

library(ggrepel)
set.seed(42)

dat <- subset(mtcars, wt > 2.75 & wt < 3.45)
dat$car <- rownames(dat)

dat$colored_text <- "/A"
dat$car2 <- paste0(dat$colored_text,'-',dat$car)


p <- ggplot(dat, aes(wt, mpg, label = car2)) +
  geom_point(color = "red")

p1 <- p + geom_text() + labs(title = "geom_text()")

这是 p1 的结果：

我想将每个 / 涂成绿色，将每个字母 A 涂成蓝色，然后得到类似：

请问有人有这个想法吗？

Answer 1

实现您想要的结果的一个选项是ggtext 包，与geom_text 相比，它提供了更多的文本呈现可能性，并且允许通过markdown 和/或HTML/CSS 设置文本样式，如下所示：

library(ggplot2)
library(ggtext)

set.seed(42)

dat <- subset(mtcars, wt > 2.75 & wt < 3.45)
dat$car <- rownames(dat)

dat$colored_text <- "<span style='color: green'>/</span><span style='color: blue'>A</span>"
dat$car2 <- paste0(dat$colored_text,'-',dat$car)

ggplot(dat, aes(wt, mpg, label = car2)) +
  geom_point(color = "red") + 
  geom_richtext(fill = NA, label.colour = NA) + 
  labs(title = "geom_richtext()")

编辑使the approach suggested by the author of ggrepel适应您的情况，您可以使用ggrepel获得您想要的结果，如下所示：

library(ggplot2)
library(ggrepel)

dat <- subset(mtcars, wt > 2.75 & wt < 3.45)
dat$car <- rownames(dat)

phantom <- function(x) {
  paste0('phantom("', x, '")')
}

quotes <- function(x) {
  paste0('"', x, '"')
}
dat$label_green <- paste(quotes("/"), phantom('A'), quotes("-"), phantom(dat$car), sep = " * ")
dat$label_blue <- paste(phantom('/'), quotes("A"), quotes("-"), phantom(dat$car), sep = " * ")
dat$label_black <- paste(phantom('/'), phantom('A'), quotes("-"), quotes(dat$car), sep = " * ")

ggplot(dat, aes(wt, mpg)) +
  geom_point(color = "red") + 
  geom_text_repel(aes(label = label_green), color = "green", parse = TRUE, seed = 1) +
  geom_text_repel(aes(label = label_blue), color = "blue", parse = TRUE, seed = 1) +
  geom_text_repel(aes(label = label_black), color = "black", parse = TRUE, seed = 1) +
  labs(title = "Multi-color geom_repel_text()")