R中使用ggplot2带有下标字符的粗体轴

Question

我正在尝试使用R中的ggplot2创建带有下标字符的粗体轴标签。

我已经尝试过以下方法，但是下标的数字似乎是“未固定的”（请参见下图）。

似乎y轴上“ log”后面的2不是粗体。但是，此处（Trying to bold y axis in ggplot）张贴的答案似乎表明确实如此。这就是ggplot2看起来的样子吗？

这里有一些代码可以使用更简单的数据集和较少的绘图输出格式来复制问题（如果确实存在问题）：（应该不会对轴标签产生影响）：

library(ggplot2)  

dat <- data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x=x,y=y)) +
  geom_point() +
  ylab(expression(bold('Coefficient estimate for log'[2]*' FPRS variable'))) + 
  xlab(expression(bold('This is what a normal 2 looks like'))) 

我还尝试了以下方法（其结果相同）：

labs(y = expression(bold('Coefficient estimate for log'[2]*' FPRS variable')))

预先感谢您的帮助！

Answer 1

使用latex2exp，您可以使用'\\textbf{}'包裹文本，从而轻松地加粗文本，并为Log_2使用LaTeX

library(ggplot2) 
library(latex2exp)

dat <- data.frame(x = rnorm(100), y = rnorm(100))

ggplot(dat, aes(x=x,y=y)) +
  geom_point() +
  ylab(TeX('\\textbf{Coefficient estimate for $log_2$ FPRS variable}')) + 
  xlab(TeX('\\textbf{This is what a normal 2 looks like}'))

希望这会有所帮助！