我一直试图在gtable单元格中指定rasterGrobs的绝对位置但没有成功。我希望能够使图像的范围与y轴上的值对齐。该脚本将钻取核心图像与ggplot2 facets中绘制的多传感器数据对齐。例如,特定的射线照片核心图像需要顶部为192毫米,底部为1482毫米,但我希望刻度从0到1523毫米。请参阅附带的链接,了解我正在做的事情的一个例子,但为了简单起见,我在这里只发布了一个MWE。是否可以在gtable单元格中指定rasterGrob的绝对位置?
就下面的MWE而言,到目前为止,我唯一的解决方案是使用Rlogo.png
时使用相对位置移动rasterGrob()
。使用"native"
坐标似乎也不是我需要的。同样,我无法理解gtable_add_grob()
中调用的位置参数。
library(png)
library(ggplot2)
library(gtable)
# read Image
img <- readPNG(system.file("img", "Rlogo.png", package = "png"))
# convert to rastergrob
g <- rasterGrob(img, y = unit(0.5, "npc"), x = unit(0.5, "npc"))
# create plot
tp <- qplot(1:5, 1:5, geom="blank") + scale_y_reverse()
# convert plot to gtable
tt <- ggplot_gtable(ggplot_build(tp))
# add column to gtable to hold image
tt <- gtable_add_cols(tt, tt$width[[.5*4]], 3)
# add grob to cell 3, 4
tt <- gtable_add_grob(tt,g,3,4)
# render
grid.draw(tt)
在提出使用rasterGrob将图像添加到ggplot中的面板的解决方案之前,做了很多搜索。也许有人可以提出更优雅的解决方案吗?
答案 0 :(得分:2)
grob可以在单元格中设置其位置,如下所示
library(gridExtra)
library(grid)
library(gtable)
# quick shortcut to create a 2x2 gtable filled with 4 rectGrobs
tg <- arrangeGrob(grobs=replicate(4, rectGrob(), FALSE))
# red rect of fixed size with default position (0.5, 0.5) npc
rg1 <- rasterGrob("red", width=unit(1,"cm"), height=unit(1,"cm"))
# blue rect with specific x position (0) npc, left-justified
rg2 <- rasterGrob("blue", width=unit(1,"cm"), height=unit(1,"cm"),
x = 0, hjust=0)
# green rect at x = 1cm left-justified, y=-0.5cm from middle, top-justified
rg3 <- rasterGrob("green", width=unit(1,"cm"), height=unit(1,"cm"),
x = unit(1,"cm"), y=unit(0.5, "npc") - unit(0.5, "cm"),
hjust=0, vjust=1)
# place those on top
tg <- gtable_add_grob(tg, rg1, 1, 2, z = Inf, name = "default")
tg <- gtable_add_grob(tg, rg2, 1, 2, z = Inf, name = "left")
tg <- gtable_add_grob(tg, rg3, 1, 2, z = Inf, name = "custom")
grid.newpage()
grid.draw(tg)