如何在R中根据人体gif制作热图？ [复制]

我有一张人体 gif，需要在其上绘制热图。要使用的数据在R中

我找到了有关如何导入 gif 的说明，但我不确定如何将数据导入到 gif 中。

我想我需要首先将 gif 放在网格上，然后获取一些坐标，然后将数据分配给相关坐标？

例如，如果头部位于 (5,10) 处，胃位于 (5,5) 处，右膝位于 (4,3) 处，等等。

人们是否有一个用于此目的的包，或者这只是一个在没有包的情况下严格使用 R 进行编程的任务？或者你使用其他资源吗？

如果您找到可以使用的 SVG 图像，也可以使用grImport包以将文件转换为 XML，然后可以轻松使用 R 进行修改。

例如，如果您想使用这个文件,你可以添加一些fill使用 Illustrator/Gimp 或其他任何工具对图像进行形状处理然后使用将其转换为 XMLgrImport:

library(grImport)
PostScriptTrace("yourimage.ps")

这将创建一个yourimage.ps.xml文件。如果您愿意，可以修改idsXML 中的填充路径节点的名称，以便更轻松地访问它们以更改颜色。

例如，我在 SVG 文件上制作了 14 个身体部位，并将它们的 id 更改为名称而不是数字，您可以在此处找到 XML：带有身体部位 XML 的人体 SVG

要改变身体部位的颜色，你只需改变rgb的一部分fill nodes:

library(grImport)
library(XML)
library(gridExtra)

#function to change the rgb color of the xml paths
changeColor<-function(bodypart,color){
        node<-xpathSApply(doc, paste("//path[@id='",bodypart,"']/context/rgb",sep=""))[[1]]
        rgbCol<-col2rgb(color)
        xmlAttrs(node)["r"]=rgbCol[1]/255
        xmlAttrs(node)["g"]=rgbCol[2]/255
        xmlAttrs(node)["b"]=rgbCol[3]/255
}

#read the xml image
doc<-xmlParse("Human_body_front_and_side.ps.xml")

#these are the different parts you can change
bodyparts<-c("head","hand-right","hand-left","foot-left","foot-right","lowerleg-left","lowerleg-right",
            "upperleg-left","upperleg-right","torso","forearm-right","forearm-left","upperarm-right","upperarm-left")

#color the bodyparts with random color
mapply(function(x,y){changeColor(x,y)},bodyparts,sample(colours(), 14))


#load the XML as a picture
body<-readPicture(saveXML(doc))

#plot it
grid.arrange(pictureGrob(body), ncol=1)

我得到这样的东西：