我正在编写一个函数,将文本和表达式组合起来形成输出图的轴标题。问题是,当我尝试将其加粗时,它不会将该样式应用于数字。以下代码演示了这个问题。
test_func <- function(x_title) {
text <- '1'
ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
geom_point() +
labs(x = parse(text = paste('bold(Part ~', text, ' ~', x_title, ')'))) +
theme(axis.title = element_text(face = 'bold'))
}
test_func('Value')
为了进行比较,看看当我将完整标题输入到表达式(bold())中时会发生什么。
ggplot(data.frame(x = 1:5, y = 1:5), aes(x, y)) +
geom_point() +
labs(x = expression(bold('Part 1 Value'))) +
theme(axis.title = element_text(face = 'bold'))
我也尝试添加theme(axis.title = element_text(face = 'bold'))
,但没有什么区别。
如何才能使粗体应用到表达式的所有部分?