关于ggrepel中标签的变化答案

【问题标题】：about the change of labels in ggrepel关于ggrepel中标签的变化
【发布时间】：2019-10-10 04:53:34
【问题描述】：

如果我想一一更改ggrepel中标签的名称，该怎么办？

例如，

  scale_fill_manual(values=values,labels=c("A", "B",    
  expression(paste(italic("C")," ",     
  "D")),expression(paste(italic("E")," ", "F")))

我可以在ggrepel中添加这种灵活的标签吗？

  library(ggrepel)
  set.seed(42)


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

p <- ggplot(dat, aes(wt, mpg, label = car)) +
geom_point(color = "red")
p1 <- p + geom_text() + labs(title = "geom_text()")
p2 <- p + geom_text_repel() + labs(title = "geom_text_repel()")

【问题讨论】：

标签： r ggplot2 ggrepel

【解决方案1】：

据我所知，您需要准备好要打印的标签。如果这样做，parse = TRUE 选项将通过expression() 解析它们

dat <- dat %>% 
  head(n = 4) %>% 
  mutate(lab = c("A", 
                 "B",    
                 'paste(italic("C"), " ", "D")',
                 'paste(italic("E"), " ", "F")'))
pp <- dat %>% 
  ggplot(aes(wt, mpg, label = lab)) +
  geom_point(color = "red")

pp1 <- pp + geom_text(parse = TRUE) + labs(title = "geom_text()")
pp2 <- pp + geom_text_repel(parse = TRUE) + labs(title = "geom_text_repel()")

【讨论】：