插入 Image/PNG ggplot2 - Cowplot

Question

我正在尝试使用 cowplot 包的 draw_image() 函数。作为示例，我已经设法在图表中获取图像。

我不知道 xy 位置是如何工作的，我不得不不断输入随机数，直到我看到图像。

require(ggplot2) #required packages
require(cowplot)
require(magick)

p1 <- qplot(Sepal.Length, Sepal.Width, data = iris)

ggdraw(p1) +      
  draw_image(
    "https://upload.wikimedia.org/wikipedia/en/7/77/EricCartman.png",
    y = 0.2,
    scale = 0.5
  )

任何人都可以建议他们运作的规模吗？它看起来确实与图表的比例不同。

Answer 1

它在地块的坐标中。可能让您感到困惑的一点是 ggdraw() 正在设置一个新的坐标系运行从 0 到 1 在 x 和 y 上。如果要在绘图坐标中绘制图像，则无需使用 ggdraw()。只需将 draw_plot() 直接添加到绘图中即可。

library(ggplot2)
library(cowplot)
theme_set(theme_bw())

p1 <- qplot(Sepal.Length, Sepal.Width, data = iris)

# ggdraw() sets up a new coordinate system running from 0 to 1. This
# allows you to place an image on top of the plot.
ggdraw(p1) + 
  draw_image("https://upload.wikimedia.org/wikipedia/en/7/77/EricCartman.png")

# if you want to draw the image into the plot, don't use ggdraw()
p1 + draw_image(
  "https://upload.wikimedia.org/wikipedia/en/7/77/EricCartman.png",
  x = 5, y = 2.5, width = 2, height = 1.5
)

^{由 reprex package (v0.2.1)}

创建于 2018-12-19

插入 Image/PNG ggplot2 - Cowplot

Insert Image/PNG ggplot2 - Cowplot

r

ggplot2

cowplot