r - hist3D()で3Dプロットラベルにギリシャ文字をプロットする方法は?

Question

を使用して 3D ヒストグラムをプロットしていますが、下付き文字付きのギリシャ文字が含まれるようhist3D()に変更したいと考えています。xlab

使った

xlab=expression(theta[1]). 

うまくいきません。ラベルに「theta[1]」という文字列が表示されるだけです。一方、通常のプロットコマンドだけでは問題なく動作します。

hist3D()では、下付きのギリシャ文字をプロットに導入するにはどうすればよいでしょうか?

( hist3D()plot3D ライブラリにあります)

Answer 1

もう 1 つの回避策はtext3D、同じplot3Dパッケージの関数を使用することです。数式をラベルとして受け入れるので、通常どおりに記述できます expression(theta[1])。この回避策の唯一の小さな問題は、ラベルの適切な座標を見つけることです

# example data
library(plot3D)
x <- seq(-pi, pi, by = 0.2)
y <- seq(-pi, pi, by = 0.3)
grid <- mesh(x, y)
z <- with(grid, cos(x) * sin(y))

hist3D(z = z, x = x, y = y, border = "black", ticktype = "detailed", xlab = "", ylab="y", zlab="z")
text3D(2, -5, 0, labels = expression(theta[1]), add = TRUE, adj = 1)

2,-5,0この例には非常に適していることがわかりました。ラベルは通常のラベルのように回転しません。

Answer 2

このhist3D関数は、軸ラベルの式を受け入れません。回避策の 1 つは、theta、θ に Unicode 文字を使用することです。

# example data
library(plot3D)
x <- seq(-pi, pi, by = 0.2)
y <- seq(-pi, pi, by = 0.3)
grid <- mesh(x, y)
z <- with(grid, cos(x) * sin(y))

hist3D(z = z, x = x, y = y, border = "black", xlab = "θ1")

これはシータ記号を表示しますが、添字 1 は表示しません。

Answer 3

回避策は次を使用することscatterplot3dです：

z <- seq(-10, 10, 0.01)
x <- cos(z)+1
y <- sin(z)+1
scatterplot3d(volcano, highlight.3d=TRUE, col.axis="blue",
                            col.grid="gray", main="scatterplot-greeks", pch=21,
                            xlab=expression(theta[1]),
                            ylab=expression(beta[2]),
                            zlab=expression(alpha[3]),cex.lab=1.5)