R中的条形图中的下划线文本

Question

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

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

Answer 1

像这样:

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

或者如果你想要全文加下划线:

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

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