R：绘图表达式符号未出现在交互图中答案

【问题标题】：R: plotmath expression symbols not showing up in interaction plotR：绘图表达式符号未出现在交互图中
【发布时间】：2017-06-28 04:11:30
【问题描述】：

由于某种原因，我的交互图似乎没有在 R markdown 中显示希腊符号（乳胶）（使用 R studio）。我正在使用的代码复制如下。为什么 expression() 函数不起作用？有什么建议吗？

with(ba_results, interaction.plot(as.factor(f1), as.factor(f2), 
                                  y,
                                  type = "b",
                                  pch = c(18, 19, 24),
                                  fixed = TRUE,
                                  xlab = "Scale factor",
                                  ylab = "Mean Response",
                                  trace.label = expression(mu_e),
                                  main = paste("Interaction plot of", 
                                               expression(mu[e]), 
                                               "f1")))

【问题讨论】：

无法运行。可以添加一些模拟数据吗？

标签： r plot plotmath

【解决方案1】：

对于标题，将整个内容包含在expression 中。例如，main = expression(paste("Interaction plot of ", mu[e], " f1")) 或 main = expression(Interaction~plot~of~mu[e]~f1)。

对于trace.label，expression 未正确解析。看起来问题出在interaction.plot 代码中的这一行：

text(xleg, ylim[2L] - 0.05 * yrng, paste("  ", trace.label), adj = 0)

所以trace.label 被包裹在paste 中，这会将表达式转换回文本字符串。例如：

expression(mu[e])
# expression(mu[e])

paste("  ", expression(mu[e]))
# "   mu[e]"

作为一种解决方法，您可以修改函数以按原样使用trace.label。为此，请通过在控制台中键入 interaction.plot 来获取 interaction.plot 的代码。将代码复制到新的 R 脚本文件中，并为函数分配一个新名称，例如 my_interaction_plot。然后将上面的行改为：

text(xleg, ylim[2L] - 0.05 * yrng, trace.label, adj = 0)

此更改将导致expression(mu[e]) 被正确解析。

现在只需像这样使用my_interaction_plot 而不是interaction.plot：

with(ba_results, 
     my_interaction_plot(as.factor(f1), as.factor(f2), y, type = "b",
                         pch = c(18, 19, 24), fixed = TRUE,
                         xlab = "Scale factor", ylab = "Mean Response",
                         trace.label = expression(mu_e),
                         main = expression(paste("Interaction plot of ", mu[e], " f1"))))

【讨论】：