1

ラティス bwplot のヘルプが必要です。マルチパネル プロットを作成し、それらを同じウィンドウに配置しました。

library(lattice)
attach(mtcars)

gear.f<-factor(gear,levels=c(3,4,5), labels=c("3gears","4gears","5gears"))
cyl.f <-factor(cyl,levels=c(4,6,8), labels=c("4cyl","6cyl","8cyl"))

plot1 <- bwplot(cyl.f~mpg|gear.f, ylab="Cylinders", xlab="Miles per Gallon", main="Mileage by Cylinders and Gears", layout=(c(1,3)))

plot2 <- xyplot(mpg~wt|cyl.f*gear.f, main="Scatterplots by Cylinders and Gears", ylab="Miles per Gallon", xlab="Car Weight")

print(plot1, position=c(0, 0.5, 1, 1), more=TRUE)
print(plot2, position=c(0, 0, 1, 0.5))

私がやりたいことは、各プロットのプロット マージンの外側に同じテキストを含めることです。最初のプロットには文字 A、2 番目のプロットには B を含めて、レポートでこのプロットを思い出すのに役立ちます (たとえば、図 1A と図 1)。

誰かが有用な提案を持っていますか?

4

1 に答える 1

2

格子はグリッド グラフィックスで構築されています。そのような Figure ラベルを追加する最も直接的な方法は、 を使用することですgrid.text。2回のprint()通話の後、追加します

library(grid)
grid.text("A", .1, .95, gp=gpar(fontsize=20))
grid.text("B", .1, .45, gp=gpar(fontsize=20))

好きなように配置するには、これらの値を微調整する必要がある場合があります

ここに画像の説明を入力

于 2014-09-01T16:01:46.770 に答える