我正在使用 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 中，我可以将标题设为粗体。
¿ 如何使用数学符号使剥离文本变为粗体？