R：绘图轨迹图的轴标签中的下标

Posted 2021-05-06

我正在使用椭圆包，它创建了奇妙的相关图。但是，标签名称直接取自列名和行名。

这使标签的编辑变得复杂。我想在我的标签中有下标（例如k [A1]，K [A]，..），但我无法弄清楚如何做到这一点。

这是我的代码：

library(ellipse)
library(RColorBrewer)

my_colors <- brewer.pal(5, "RdYlBu")
my_colors=colorRampPalette(my_colors)(100)

Data=rbind(c( 1.00000000,  0.35681412,  0.86504267),
           c(0.35681412,  1.00000000,  0.32562542),
           c(0.86504267,  0.32562542,  1.00000000))

rownames(Data) = c("kA1", "KA", "kA2")
colnames(Data) = c("kA1", "KA", "kA2")
plotcorr(Data , col=my_colors[Data*50+50] , mar=c(1,1,1,1), cex.axis=1.7, cex.lab=1.8, lwd=4)

有关如何编辑标签的任何想法？

答案

也许其他人有更好的答案，但我建议使用corrplot，因为它允许plotmath表达式。这给了我：

library(ellipse)
library(RColorBrewer)
library(corrplot)
my_colors <- brewer.pal(5, "RdYlBu")
my_colors=colorRampPalette(my_colors)(100)
Data=rbind(c( 1.00000000,  0.35681412,  0.86504267),
       c(0.35681412,  1.00000000,  0.32562542),
       c(0.86504267,  0.32562542,  1.00000000))
rownames(Data) = c(":k[A1]", ":K[A]", ":k[A2]")
colnames(Data) = c(":k[A1]", ":K[A]", ":k[A2]")
corrplot(Data , method= "ellipse", col=my_colors[Data*50+50], mar=c(1,1,1,1), cex.axis=1.7, cex.lab=1.8)

然后看起来像这样（你仍然可以调整它看起来更好）：

如果您开始使用plotcorr，您可以尝试使用以下文本的迂回方式：

text(1:3, 4, expression("k"[A1], "K"[A], "k"[A2]))
text(0, 3:1, expression("k"[A1], "K"[A], "k"[A2]))