使用表达式标记corrplot

Question

我正在尝试使用 corrplot

可视化一个大的相关矩阵

library(corrplot)
df <- data.frame(a=c(1,5,3,7,9), b=c(6,5,7,2,3), c=(seq(1,10,2)))
cm <- cor(df)
corrplot(cm)

所以，到目前为止一切正常，但是，我希望我的变量被命名为类似的名称。 expression(paste(Delta, " (LW"[""%up%""], " Stefan-Boltzmann(T"["2m"],"))")) 或 expression("LW"%down%" (PIR)")

In this vignette 我发现以“:”开头的字符串告诉 corrplot 求值和表达，但是， ":Delta Druck zu 14T-Mittel" 给我

Error in parse(text = substring(s, 2)) : <text>:1:8: unexpected symbol
1:  Delta Druck
           ^

并尝试首先添加 %down% 告诉我在尝试将其用作列名时找不到函数 %down% 。有解决方法吗？

非常感谢。

根据罗兰的评论编辑：我试过了

df <- data.frame(a=c(1,5,3,7,9), b=c(6,5,7,2,3), c=(seq(1,10,2)))
cm <- cor(df)


rownames(cm)<- c(":'Delta Druck zu 14T'-'Mittel'","b","C")

corrplot(cm)

这给了我这个结果：

不幸的是它没有解析 Delta

Answer 1

多亏了罗兰，我才能找到答案，这是单引号和双引号的组合以及 *

rownames(cm)<- c(":Delta * 'Druck zu 14T'-'Mittel'",
                 ":Delta * '(LW'[''%up%'']*')'",
                 ":Delta * ' LW'[''%up%'']* ' Stefan-Boltzmann(T'['2m']* ')'")

corrplot(cm)

显然星号必须出现在每个部分的前面，不需要评估，可以使用单引号代替双引号，并且使用 %% 的调用必须用双单引号括起来。

谢谢！

使用表达式标记corrplot

using expression to label corrplot

expression

r

r-corrplot