相关疑难解决方法(0)

我有一组150x150px的png图像,以及它们对应的一组(x,y)坐标.有没有办法在网格上绘制图像？例如,我正在寻找一个R或Python解决方案来创建如下内容:

所以我有这个R脚本可以生成带有每个点标签的散点图.是这样的:

img1<-"http://blog.gettyimages.com/wp-content/uploads/2013/01/Siberian-Tiger-Running-Through-Snow-Tom-Brakefield-Getty-Images-200353826-001-628x419.jpg"
img2<-"http://blog.gettyimages.com/wp-content/uploads/2013/01/Hurricane-Sandy-Andrew-Burton-Getty-Images-154986556.jpg"
imgdata<-data.frame(c(img1,img2,img1,img2,img1,img2,img1,img2,img1,img2))
colnames(imgdata)<-"images"
txtdata<-data.frame(c("A","B","C","D","E","F","G","H","I","J"))

plotdata<-data.frame(seq(1:10),seq(11:20),txtdata,imgdata)
colnames(plotdata)<-c("var1","var2","texts","images")
ggplot(data=plotdata, aes(plotdata[,1],plotdata[,2])) + 
  geom_point(data=plotdata, aes(plotdata[,1],plotdata[,2])) +
  geom_text(aes(label=plotdata$points,size=2, hjust=2))

这给出了散点图,其中每个点标记为"A","B","C"......等.

我想要做的几乎是相同的,除了文本之外,我想用图像在向量或数据框的链接中标记每个点(在本例中为"imgdata").请注意,我选择这些图像只是作为例子; 我有更多,所以我无法手动下载它们.

我看过这个似乎相似的问题,但是我很难让它与我的数据一起工作.

假设我的边缘列表包含以下内容:

P1 P2 weight
a  b  1
a  c  3
a  d  2
b  c  8

我read.csv用来收集数据,然后将其转换为矩阵.然后我使用以下内容绘制它:

g=graph.edgelist(x[,1:2],directed=F)
E(g)$weight=as.numeric(x[,3])
tkplot(g,layout=layout.fruchterman.reingold,edge.width=E(g)$weight)

这将返回一个包含顶点和边的网络.我想用一个图像替换顶点a,用另一个图像替换顶点b,依此类推.我知道如何将相同的图像应用于所有,但我想将不同的图像应用于每个顶点.我该怎么做呢？

编辑:根据user20650的要求,在下面添加可重现的代码

# loading libraries
library(igraph)
library(rgdal)

# reading data from edgelist
x <- read.csv('edgelist', colClasses = c("character","character","numeric"), header=T)
# however, to replicate the data, use this line instead (Above line included just to show how I get the data)
x <- data.frame(P1 = c("a","a","a","b"), P2 = c("b","c","d","c"), weight = …