如何在 ggplot 的 geom_text_repel 或 geom_text 標簽中包含斜體文本？

Question

是否可以將部分斜體文本標簽傳遞到 ggplot 中？ 我曾嘗試使用expression和italic命令（ expression(paste(italic("some text"))) ），但這些無法傳遞到數據框中，因為命令的結果不是原子的。 設置參數fontface = "italic"也是不夠的，因為這會使整個標簽斜體，而不僅僅是標簽中的一組選定字符。 例如，我希望一些必須斜體的拉丁短語在標簽中被斜體化（例如“in vivo point”中的“in vivo”）。

library(ggplot)
library(ggrepel)

df <- data.frame(V1 = c(1,2), V2 = c(2,4), V3 = c("in vivo point","another point"))

ggplot(data = df, aes(x = V1, y = V2)) + geom_point() + geom_text_repel(aes(label = V3))

Answer 1

您可以使用parse = TRUE將?plotmath表達式（作為字符串）傳遞給geom_text或geom_text_repel 。 您必須將字符串重寫為 plotmath，但如果不是太多，也不算太糟糕。

df <- data.frame(V1 = c(1,2), V2 = c(2,4), 
                 V3 = c("italic('in vivo')~point", "another~point"))

ggplot(data = df, aes(x = V1, y = V2, label = V3)) + 
    geom_point() + 
    geom_text_repel(parse = TRUE)