R의 주어진 좌표에서 어떻게 이미지를 그릴 수 있습니까?

Question

png/jpeg 형식의 'n'이미지와 2 차원 (x, y)의 해당 좌표 'n'을 제공합니다.이 그림을 단일 좌표의 주어진 좌표에 표시하고 싶습니다. 이미지가 너무 크다면 주어진 좌표에서 더 작은 크기의 버전으로 그려 보는 것이 이상적입니다. 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

ms.image 기능과 함께 my.symbols 기능 (모두 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 package이

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()