R - 在散点图上绘制缩略图（在列表中）

Question

我想将一组缩略图绘制为散点图上的点。我从位于 here 的答案代码开始，但他们在整个情节中重复相同的缩略图，而我有一个图像列表。

xy <- data.frame(x=runif(337, 0, 100), y=runif(337, 0, 100))
imgfiles <- list.files(getwd(),pattern="*-scaled.png")
img <- lapply( imgfiles,function(x) readPNG(x) )

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[[11]])        # this works but the same image is repeated

我试过将 thumbnail() 包装成一个循环，但结果是空的

for (n in length(img)){
        thumbnails(xy[n,1], xy[n,2], img[[n]])        
}

我该怎么做？我不明白如何引用列表中的图像，或者我是否应该将它们更改为不同的数据结构。

Answer 1

我只需要去掉缩略图中的这一行()

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

它正在复制原始答案中给出的示例图像。之后不需要循环。

R - 在散点图上绘制缩略图（在列表中）

R - plotting thumbnails (that are in a list) on a scatterplot

r

image

list

gplots