Как добавить текст к решетке каркасному в R

Question

Good Day Все,

Я хочу, чтобы добавить текст, плавающий в моем каркасном участке и я достаточно запутан. Я, конечно, можно добавить текст в качестве заголовка (например, основной = «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» в этом сюжете, плавающем где-нибудь, как бы я это сделал?

Answer 1

Отменить функцию панели и добавить текст с помощью 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") 
    } 
) 

Answer 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") построит его в центре.