1

皆さん、良い一日を

ワイヤーフレーム プロットにテキスト フローティングを追加したいのですが、かなり混乱しています。確かにテキストをタイトルとして追加できます (例: main="Hello World") が、タイトルに特定のテキストを入れたくない

ワイヤーフレームの例を次に示します。

  library(lattice)
  #set up some simplified data
  x <- seq(-.8, .8, .1)
  y <- seq(-.8, .8, .1)
  myGrid <- data.frame(expand.grid(x,y))
  colnames(myGrid) <- c("x","y")
  myGrid$z <- myGrid$x + myGrid$y

  wireframe(
     myGrid$z ~ myGrid$x * myGrid$y, 
     xlab="X", ylab="Y", zlab="Z",
     scales = list(z.ticks=5, arrows=FALSE, col="black", font=3, tck=1)
  )

どこかに浮かんでいるこのプロットに「Hello World」を追加したい場合、どうすればよいですか?

4

2 に答える 2

2

または、ワイヤーフレームをプロットした後にテキストを追加することもできます

grid::grid.text("some text", x=unit(0.7, "npc"), y=unit(0.8, "npc"))

このunit関数を使用すると、テキストの場所を指定できます。単位として使用する場合"npc"、グラフの幅と高さの合計は1です。したがって、上記の例では、テキストを右上隅に表示x=y=unit(0.5, "npc")し、中央にプロットします。

于 2011-12-22T17:07:00.370 に答える
2

パネル機能をオーバーライドし、 でテキストを追加しますgrid.text。

wireframe(
    myGrid$z ~ myGrid$x * myGrid$y, 
    xlab="X", ylab="Y", zlab="Z",
    scales = list(z.ticks=5, arrows=FALSE, col="black", font=3, tck=1),
    panel = function(...)
    {
      panel.wireframe(...)
      grid.text("some text", 0, 0, default.units = "native")
    }
)
于 2011-12-22T16:43:22.210 に答える