3

私は非常に単純なスクリプトを持っています:

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"...)、フォントがまったく変更されません。

誰かが私が間違っていることを見つけることができますか? ありがとう。

4

3 に答える 3

2

テーマを設定すると、これらをグローバルに変更できます。

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"))

次にpar.settings = my.theme、contourplot ステートメントに追加します

contourplot(sens$V1 ~ sens$V2+sens$V3,data=d3,xlab="U",ylab=expression(kappa), 
            par.settings = my.theme)
于 2011-05-12T01:45:54.240 に答える
2

italic関数とユニコード記号を試すことができます。

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"))
于 2011-05-12T01:35:01.887 に答える
1

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")
于 2011-05-13T20:26:11.673 に答える