Question

我想在ggplot背景中添加透明图像\ logo。

我尝试了以下方法。

 m <- readPNG(".\\Input\\Logo.png", FALSE)

 w <- matrix(rgb(m[,,1],m[,,2],m[,,3], m[,,4] * 0.2), nrow=dim(m)[1])

 qplot(1:10, rnorm(10), geom = "blank") +
 annotation_custom(xmin=-Inf, ymin=-Inf, xmax=Inf, ymax=Inf,    
 rasterGrob(w)) + geom_point()

但是我收到一个错误：m [，，4]：下标超出范围时出错。

感谢您对此的支持。

Answer 1

我没有.\\Input\\Logo.png但是，试试这个：

library(png)
m <- readPNG(system.file("img", "Rlogo.png", package="png"))
w <- matrix(rgb(m[,,1],m[,,2],m[,,3], m[,,4] * 0.2), nrow=dim(m)[1])
qplot(1:10, rnorm(10), geom = "blank") +
  annotation_custom(xmin=-Inf, ymin=-Inf, xmax=Inf, ymax=Inf,    
                    rasterGrob(w)) + geom_point()

在ggplot2背景中插入透明徽标

1 个答案: