r - 在 plotmath() 中使用两个变量和一个表达式

Question

我想做这样的事情:

Title<-paste(typis[which.panel],bquote(nu[x]==.(typas[which.panel])),sep="")

其中 typas 是数字向量，typis 是字符向量，例如:

typas<-1:3
typis<-letters[1:3]

which.panel是 1:3 的整数(这是因为 Title 会改变
根据面板)

和 nu[x]应该显示为 plotmath对象。
但 R 忽略逗号后的所有内容 paste :(

Answer 1

目前还不清楚你想要什么，但如果它只是一个包含两部分信息的表达式，你就不需要 paste() , 只需在 bquote() 中包含这两个位调用并用一个或多个 ~ 分隔它们取决于你想要多少空间。要注意的关键是bquote()可以带尽可能多的不同.()如您所愿。

typas <- 1:3
typis <- letters[1:3]
which.panel <- 2
expr <- bquote(.(typis[which.panel]) ~~ nu[x]==.(typas[which.panel]))

plot(1:10, main = expr)

如果您需要更多关于 typis 的格式表达式的一部分(比如添加 : 如果这是面板标签)，然后将其添加到相关的 .() 中:

expr2 <-
  bquote(.(paste0(typis[which.panel], ":")) ~~ nu[x]==.(typas[which.panel]))
plot(1:10, main = expr2)

当然，这可以在表达式之外完成:

typis2 <- paste0(letters[1:3], ":")
expr3 <- bquote(.(typis2[which.panel]) ~~ nu[x]==.(typas[which.panel]))
plot(1:10, main = expr3)

这三个图如下所示:



后两者本质上是等价的。