R：plotcorr plot轴标签中的下标

我使用的是ellipse软件包，它可以创建奇妙的相关图。但是，标签名称直接取自列名称和行名称

这使标签的编辑变得复杂。我希望在我的标签中有下标（例如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)

库（椭圆）
图书馆（RColorBrewer）
我的_colors也许其他人有更好的答案，但我建议使用
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)

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