我目前正在尝试创建一个将 Logo 映射到 X 和 Y 坐标的图。虽然目标是拥有另一组具有相同 Logo 但具有 alpha 值的点,以便 Logo 更加透明。
这是一个可重现的例子。目标是让左侧的 Logo 透明。
library(ggimage)
library(tidyverse)
library(RCurl)
Sample_X1 <- c(1,0,2,3,1)
Sample_X2 <- c(4,5,7,4,3)
Sample_Y <- c('A','B','C','D','E')
Logo <- 'https://i1.pngguru.com/preview/233/348/954/numix-circle-for-windows-rstudio-icon-png-icon-thumbnail.jpg'
data <- data.frame(cbind(Sample_X1, Sample_X2, Sample_Y, Logo))
ggplot(data = data) +
geom_segment(aes(x = Sample_X1, xend = Sample_X2, y = Sample_Y, yend = Sample_Y), size = 1) +
geom_image(aes(x = Sample_X1, y = Sample_Y, image = Logo), size = .05) +
geom_image(aes(x = Sample_X2, y = Sample_Y, image = Logo), size = .05) +
theme_minimal() +
labs(title = 'Example for Stack Overflow')
有没有办法用ggplot来完成这个?到目前为止,我只能找到使背景 Logo 透明的方法,但无法将它们映射到 XY 数据。
任何帮助表示赞赏!
最佳答案
image_fun
参数可用于定义应如何处理图像。 image_fx
可用于设置 Alpha channel 。
library(ggplot2)
transparent <- function(img) {
magick::image_fx(img, expression = "0.5*a", channel = "alpha")
}
ggplot(data.frame(x = runif(10), y = runif(10)), aes(x, y)) +
ggimage::geom_image(
image = system.file("extdata/Rlogo.png", package="ggimage"),
image_fun = transparent,
size = 0.3
)
关于r - 有没有办法在 ggplot 的 geom_image 中添加 alpha 值?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60820565/