我想在ggplot标题中添加图片或svg。
这就是我所追求的:
获取眼睛 "这里"
以下是我最好的尝试。
我不满意它,因为我必须尝试很多次才能将其放置在正确的位置。并非真正的通用解决方案。
library(ggplot2)
library(raster)
library(grid)
img1 <- as.matrix(raster(system.file("external/rlogo.grd", package="raster")))
img1[img1>128] <- NA
img1[img1>0] <- 0
image(img1)
g1 <- rasterGrob(img1, interpolate=TRUE)
p <- ggplot(mtcars, aes(wt, mpg)) +
geom_point() +
ggtitle(" <- dat rLogo tho") +
annotation_custom(g1,xmin = 1.2,1.6,35.5,38)
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.draw(gt)