美学必须是长度1或与数据相同（1）

Question

我试图在ggplot2中混合注释和表达式语句。我得到了一致的错误“美学必须是长度1或与数据（1）相同”。我的第一个想法是，我在aes中的变量数量是错误的。这可能仍然是真的，但我无法绕过修理它。所以我搜索并发现了似乎没有解决潜在问题的错误和解决方案。这是我的代码：

r2.val <- .09
pl <- qplot(c(0,30))
pl+annotate(geom="text",x=0,y=28,label=(bquote(Value~is~sigma~R^{2}==.
(r2.val))))

Answer 1

我对[{1}}不熟悉，但看起来您可以使用bquote并在{{1}中设置paste0来实现您尝试做的事情}}：

parse = TRUE

Answer 2

pl <- qplot(c(0,30))
r2.val = 0.42
pl+annotate(geom="text",x=8,y=-.2,label=(paste("Value~is~sigma~R^{2}==",
                                               (r2.val))))