Доброе утро,

Я делаю тепловую карту в ggplot корреляций между конкретными фенотипами. Я хотел бы пометить каждую плитку с R ^ 2 для ассоциации.
У меня есть корреляционная матрица max_all, которая выглядит так:

    phenolist2 pheno1 pheno2 pheno3 pheno4   pheno5
max.pheno1     pheno1    0.05475998        0.05055959   0.05056578  0.10330301 0.05026997
max.pheno2 pheno2    0.15743312        0.05036100   0.05151750  0.04880302 0.31008809
max.pheno3      pheno3    0.05458550        0.07672537   0.04043422  0.16845294 0.14268895
max.pheno4       pheno4    0.05484327        0.04391523   0.05151107  0.09521869 0.19776296
max.pheno5           pheno5    0.08658449        0.05183693   0.16292683  0.22369817 0.53630569

В противном случае мой код выглядит следующим образом:

    tmp_Rsq <- melt(max_all)

tmp_Rsq <- ddply(tmp_Rsq, .(variable), transform, rescale=rescale(value))

labels_Rsq <- expression(paste(R^2, " = ", format(tmp_Rsq$value, digits=2), sep=""))

ggplot(tmp, aes(variable, phenolist2)) + 
  geom_tile(aes(fill =-log10(value)), colour = "white") +
  geom_text(aes(label=as.character(labels_Rsq), parse = TRUE, size=4)) +
  scale_fill_gradientn(colours = myPalette(101), name="-log10(P)", limits=c(0 , 3.5)) +
  theme(axis.title.x = element_blank(), axis.title.y=element_blank(),
        plot.title=element_text(size=20))+
  theme(axis.text = element_text(colour="black", face="bold"))

Моя проблема в том, что я не могу заставить выписать выражение, так что 2 - это верхний индекс R. Я понимаю, что на этом сайте есть ряд вопросов, касающихся, например, аналогичных проблем.ggplot2 двухстрочная метка с выражением, Объединение функций paste () и expression () в метках графика а такжеДобавление уравнения линии регрессии и R2 на графике но мне не удалось заставить решения, предложенные в этих ответах, применить к моему делу (вероятно, потому что я пытался использовать вектор меток).

Большое спасибо за вашу помощь.