2

私はこのようなことをしたいと思います：

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。pasteしかし、Rは:(のコンマの後のすべてを無視します

4

1 に答える 1

3

何が必要かはすぐにはわかりませんが、両方のビットの情報を含む単なる式である場合は必要ありません。呼び出しpaste()に両方のビットを含め、必要なスペースに応じてbquote()1 つ以上で区切るだけです。 ~. 注意すべき重要なことは、含める必要がある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式の一部の周りにもう少し書式設定が必要な場合(たとえば:、これがパネル ラベルの場合に a を追加するなど)、関連する 内にこれを追加します.()。

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)

3 つのプロットは次のようになります。

ここに画像の説明を入力

最後の 2 つは本質的に同等です。

于 2013-01-24T11:23:44.173 に答える