r - 在R的小节中给文本加下划线

我试图在下面的图中强调下平均值:

dummy <- c(4, 9, 6, 5, 3)
barplot(dummy)
text(4, 8,paste('Average value', mean(dummy)))

我尝试使用underline()，但它说找不到功能。

text(4, 8,paste('Average value', underline(mean(dummy))))

错误:

could not find function "underline"

我正在使用:R版本3.1.0

最佳答案

像这样:

text(4, 8, bquote("Average value"~underline(.(mean(dummy)))))

或者，如果您希望整个文本都带有下划线:

text(4, 8, bquote(underline("Average value"~.(mean(dummy)))))

注意使用bquote和.(x)在表达式中插入变量的值。

关于r - 在R的小节中给文本加下划线，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/23988052/