Как мы строим изображения по заданным координатам в R?

Question

Учитывая 'n' изображений в формате png/jpeg и 'n' соответствующие координаты в 2-х измерениях (x,y): я хотел бы нанести эти изображения с заданными координатами на один график. Если я нахожу изображения слишком большими, я в идеале хотел бы представить их как уменьшенную / масштабированную версию с заданными координатами. Как я могу добиться такого сюжета в R?

Пример того, как будет выглядеть такой сюжет, приведен ниже:

Answer 1

xy <- data.frame(x=runif(10, 0, 100), y=runif(10, 0, 100))

require(png)
img <- readPNG(system.file("img", "Rlogo.png", package="png"))

thumbnails <- function(x, y, images, width = 0.1*diff(range(x)), 
                       height = 0.1*diff(range(y))){

  images <- replicate(length(x), images, simplify=FALSE)
  stopifnot(length(x) == length(y))

  for (ii in seq_along(x)){
    rasterImage(images[[ii]], xleft=x[ii] - 0.5*width,
                ybottom= y[ii] - 0.5*height,
                xright=x[ii] + 0.5*width, 
                ytop= y[ii] + 0.5*height, interpolate=FALSE)
  }
}

plot(xy, t="n")
thumbnails(xy[,1], xy[,2], img)

Answer 2

my.symbols функционировать вместе с ms.image Функция (обе из пакета TeachingDemos) может использоваться для построения графиков с изображениями.

Вот пример:

library(png)

flag.list <- lapply( list.files('flags/',pattern='png$', full=TRUE), 
    function(x) readPNG(x) )

library(TeachingDemos)

ms.flags <- function(ind,...) {

    tmp <- array(0, dim=c(150,150,4) )
    tmp[ 26:125, , 1:3] <- flag.list[[ind]]
    tmp[ 26:125, , 4 ] <- 1

    ms.image(tmp,...)
}

x <- rnorm(50)
y <- rnorm(50)

my.symbols(x,y, symb = ms.flags, ind=1:50, symb.plots=TRUE,
  add=FALSE, xlim=c(-3,3), ylim=c(-3,3), inches=0.75)

Answer 3

пакет ggflags предоставляет пример для проверки принципа

library(ggflags)
set.seed(1234)
d <- data.frame(x=rnorm(50), y=rnorm(50), 
                country=sample(c("ar","fr", "nz", "gb", "es", "ca"), 50, TRUE), 
                stringsAsFactors = FALSE)
ggplot(d, aes(x=x, y=y, country=country, size=x)) + 
  geom_flag() + 
  scale_country()