1

我正在使用 ggplot2 进行绘图，其中我想要带有数学符号的条带名称。为此，我使用

facet_grid( factor1~ factor2, labeller = label_parsed)

但我也想要粗体的名字。问题是，一旦我使用了 label_parsed 选项，我就无法使用

theme( strip.text.x = element_text(face="bold"))

它不起作用。

例子：

var_a <- 1:20

var_b <- 2:21

factor_a <- factor ( rep (c("a1","a2"), each = 10))
factor_b <- factor ( rep (c("b"), each = 20))

data <- data.frame (factor_a,factor_b,var_a,var_b)

## Change the name of the levels of factor_a 


data$factor_a <- factor(data$factor_a, labels = c("a"~"4"^"3","a2"))


## plot 1

ggplot (data, aes (var_a, var_b)) +

  geom_point () + 

  facet_grid (factor_a ~ factor_b, labeller = label_parsed) + 

  ggtitle(expression("Plot"^"exponent")) +

  theme (

    plot.title = element_text(face="bold"),
    strip.text.x = element_text(face="bold"),
    strip.text.y = element_text(face="bold")

    )


## plot 2

ggplot (data, aes (var_a, var_b)) +

  geom_point () + 

  facet_grid (factor_a ~ factor_b, labeller = label_parsed) + 

  ggtitle(expression(bold("Plot"^"exponent"))) +

  theme (

    plot.title = element_text(face="bold"),
    strip.text.x = element_text(face="bold"),
    strip.text.y = element_text(face="bold")

  )

在情节 1 中，我既不能使带状文字也不能使标题加粗。但在情节 2 中，我可以将标题设为粗体。

¿ 如何使用数学符号使剥离文本变为粗体？

4

0 回答 0