如何在R中的箱图中添加相关值和p值

Question

I want to add a computed correlation coefficient and p-value to my boxplot. This is my code:

# Load needed package
library(coin)

# Simulate data
xx <- runif(10)
yy <- runif(10)

# Compute R and p-value
scor <- cor(xx, yy, method = "spearman")
ppp <- spearman_test(xx ~ yy)

# Make plot
boxplot(list(t(xx),t(yy)), main="exprment values", col = c("orange", "yellow"))
legend("topright", bty="n", legend=paste("r=0.69, p=0.0001"))

I want the R and p-value to be printed automatically so I don't have to type them out.

Answer 1

您可以尝试将字符和数字值粘贴在一起，只需要使用正确的格式即可。

legend("topright", bty="n", legend=paste("r=", scor, ", p=", ppp, sep = ""))