尝试将图像添加到极坐标图会给出“错误：annotation_custom 仅适用于笛卡尔坐标”

Question

我已经尝试按照已经给出的答案将图像添加到绘图中，但是在使用coord_polar()时它们不起作用

# install.packages("RCurl", dependencies = TRUE)
library(RCurl)
myurl <- "http://vignette2.wikia.nocookie.net/micronations/images/5/50/German_flag.png"

# install.packages("png", dependencies = TRUE)
library(png)
img <-  readPNG(getURLContent(myurl))

# install.packages("ggplot2", dependencies = TRUE)
library(ggplot2)

ger <- grid::rasterGrob(img, interpolate=TRUE)

## works, adds the image to the plot
ggplot(mtcars, aes(x=mpg, y= cyl)) + geom_line() + annotation_custom(ger, 10, 15, 5)

## doesn't work
ggplot(mtcars, aes(x=mpg, y= cyl)) + geom_line() + annotation_custom(ger) + coord_polar()
> Error: annotation_custom only works with Cartesian coordinates

理想情况下，我希望能够将标志图像定位在极坐标图的中心，并沿着 y 轴定位另一个图像。

无论如何要添加图像？ 它可以原样，无需转换。

我正在使用ggplot2 2.0 版

Answer 1

格雷戈尔关于使用cowplot库的建议让我到达了那里。

在介绍了 cowplot之后，您可以使用draw_grob函数根据需要叠加图像。 由于位置会根据情节的尺寸而变化，因此需要进行一些调整，但这是可能的。

例子：

# install.packages("RCurl", dependencies = TRUE)
library(RCurl)
myurl <- "http://vignette2.wikia.nocookie.net/micronations/images/5/50/German_flag.png"

# install.packages("png", dependencies = TRUE)
library(png)
img <-  readPNG(getURLContent(myurl))

# install.packages("ggplot2", dependencies = TRUE)
library(ggplot2)

ger <- grid::rasterGrob(img, interpolate=TRUE)

g <- ggplot(mtcars, aes(x=mpg, y= cyl)) + geom_line() + coord_polar()

# install.packages("cowplot", dependencies = TRUE)
library(cowplot)
h <- ggdraw(g)
## tweak this to fit your plot
h + draw_grob(ger, 0.4, 0.48, 0.07, 0.07)