r - 停止解析ggplot2注释中小数点后的零

Question

我需要用包含(真实)希腊字母和四舍五入到 2 个小数位的数字的行注释 ggplot2 图上的一个位置。我的问题出现是因为我想显示小数位，即使它们都为零。不幸的是，parse = T设置在 annotate转换字符串 "1.00"进入 "1" .下面是一个具体的例子:

alpha_num <- "1.00"
p <- ggplot(data.frame(x=1,y=1,label=paste0("alpha == ", alpha_num)))
p <- p + geom_text(aes(x,y,label=label), parse = TRUE, size = 30)

上面的代码产生以下图:

我如何获得 alpha_num完整显示？

Answer 1

您可以使用 deparse 来做到这一点。 .

所以你的代码看起来像这样

alpha_num <- "1.00"
p <- ggplot(data.frame(x=1,y=1,label=paste0("alpha == ", alpha_num)))
# Use deparse in label
p <- p + geom_text(aes(x,y,label=paste0("alpha == ", deparse(alpha_num))), parse = TRUE, size = 30)
p  

输出是: