質問
私は非常に単純なスクリプトを持っています:
sens = read.table("Myfile.txt")
library(lattice)
contourplot(sens$V1 ~ sens$V2+sens$V3,data=d3,xlab="U",ylab=expression(kappa))
.
ローマイタリック体フォントでラベルを手に入れようとしています。私は思った
font.lab=3, family="serif"
.
はこれを正確に与えるべきですが、私が試してみるものは何でも(font= 3、font="italic" ...)
誰かが私が間違っていることを見つけることができますか? ありがとう。
解決
italic
関数とUnicodeシンボルを試すことができます。
require(lattice)
require(grid)
x <- seq(pi/4, 5 * pi, length.out = 100)
y <- seq(pi/4, 5 * pi, length.out = 100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
grid <- expand.grid(x=x, y=y)
grid$z <- cos(r^2) * exp(-r/(pi^3))
contourplot(z~x*y, grid, cuts = 1,
colorkey = FALSE, region = TRUE,
xlab=expression(italic(U)),
ylab=expression(italic('\u03ba')))
grid.gedit("text", gp=gpar(fontfamily="serif"))
grid.gedit("xlab", gp=gpar(fontfamily="serif"))
grid.gedit("ylab", gp=gpar(fontfamily="serif"))
. 他のヒント
テーマの設定を使用すると、これらのグローバルに変更することができます。
font.settings <- list(font = 3, fontfamily = "serif")
my.theme <- list(par.xlab.text = font.settings,
par.ylab.text = font.settings,
axis.text = list(fontfamily = "serif"))
.
Contourplotステートメントにpar.settings = my.theme
を追加します。
contourplot(sens$V1 ~ sens$V2+sens$V3,data=d3,xlab="U",ylab=expression(kappa),
par.settings = my.theme)
. Triad Souの答えはR Graphicsウィンドウで機能しましたが、コマンドを使用してEPS形式でプロットを印刷しようとしたときにラベルはまだ非セリフフォントにありました。
dev.print(device=postscript,file="Myfile.eps")
.
だから私のepsファイルのために私はしなければならなかった:
contourplot(sens$Tot ~ sens$U+sens$kappa,data=d3,
xlab=expression(italic(U)),ylab=expression(italic(kappa)))
dev.print(device=postscript,file="Myfile.eps",family="serif")
. 所属していません StackOverflow