我正在用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中我可以使标题变得大胆。
¿如何用数学符号使条纹文本变粗？