R：我怎么写＆＃34;≥2：n = nrow（x）＆＃34;在情节传奇？

Question

我正在制作箱形图，但传说中存在问题。具体来说，我想写“≥2：n = formatC（nrow（x））”，但不能组合≥符号的命令，计算nrow(x)和formatC(nrow(x), bigmark=",")的函数应给出带有千位分隔符的nrow数。

到目前为止我尝试了什么：

smoke <- matrix(c(1:1200),ncol=1,byrow=TRUE)
colnames(smoke) <- c("High")
smoke <- as.table(smoke)

pdf('test.pdf')
plot(NA,xlim=c(0,100),ylim=c(0,100))
legend(10,70,bquote(paste(NA>=2, ": n=", .(formatC(nrow(smoke)), big.mark=","))))
dev.off()

给出：≥ 2: n=1200

我想：≥2: n=1,200

似乎formatC在bquote下不起作用，我也想删除≥符号后的空格。

我也尝试过：

legend(x,y, legend=c(expression(NA>=2), paste(": n=", formatC(nrow(smoke)), sep="")))

将图例分为两行： ≥ 2 : n=1200

在paste之前放置expression会产生一行，但不会将＆gt; =转换为≥。

我将图形导出为pdf，目前适用于≥符号。我宁愿保持这一点。 Unicode不适用于我手中的pdf。

提前致谢， 菲利普

Answer 1

)之后，您的smoke位置错误，因此big.mark参数作为paste的一部分，而不是formatC。试试这个：

legend(10,70,bquote(paste(NA>=2, ": n=", .(formatC(nrow(smoke), big.mark=",")))))