Superposer des données sur l'image d'arrière-plan

JPEG

Pour les images jpeg, vous pouvez utiliser read.jpeg() de la rimage paquet.

par exemple :

anImage <- read.jpeg("anImage.jpeg")
plot(anImage)
points(my.x,my.y,col="red")
...

En définissant par(new=T) avant la prochaine commande plot, vous pouvez construire complet de parcelles au cours d'une image d'arrière-plan. (voir ?par et plus bas)

PNG

PNG images, vous pouvez les télécharger à l'aide de readPNG de la png paquet. Avec readPNGvous avez besoin de la rasterImage de commande de la parcelle (voir aussi les fichiers d'aide). Sur Windows, on doit se débarrasser de la couche alpha, que Windows ne peut pas faire face avec pixel par pixel alphas jusqu'à maintenant. Simon Urbanek était donc de nature à point de cette solution :

img <- readPNG(system.file("img", "Rlogo.png", package="png"))
r = as.raster(img[,,1:3])
r[img[,,4] == 0] = "white"

plot(1:2,type="n")
rasterImage(r,1,1,2,2)

GIF

Pour les fichiers gif, vous pouvez utiliser read.gif de caTools. Le problème, c'est que c'est la rotation de la matrice, de sorte que vous avez à régler :

Gif <- read.gif("http://www.openbsd.org/art/puffy/ppuf600X544.gif")

n <- dim(Gif$image)
image(t(Gif$image)[n[2]:1,n[1]:1],col=Gif$col,axes=F)

À tracer sur cette image, vous devez définir le par correctement, par exemple :

image(t(Gif$image)[n[2]:1,n[1]:1],col=Gif$col,axes=F)
op <- par(new=T)
plot(1:100,new=T)
par(op)

Pour une image JPEG, vous pouvez utiliser le bibliothèque jpeg et ggplot2 bibliothèque.

Habituellement, j'ai trouvé utile d'avoir l'axe gradué en pixel et de l'axe vertical passant positif dans le sens descendant et de l'image en conservant ses proportions d'origine. Donc, je peux nourrir R directement avec la sortie produite par la vision par ordinateur de l'algorithme, par exemple, l'algorithme permet de détecter le trou de balle et d'en extraire le trou de coordonnées à partir d'une cible de tir photo et de R peut tracer un histogramme 2D à l'aide de la cible de l'image comme arrière-plan.

Mon code est basé sur le code par baptiste trouvé à https://stackoverflow.com/a/16418186/15485

library(ggplot2)
library(jpeg)

img <- readJPEG("bersaglio.jpg") # http://www.tiropratico.com/bersagli/forme/avancarica.jpg

h<-dim(img)[1] # image height
w<-dim(img)[2] # image width

df<-data.frame(x=rnorm(100000,w/1.99,w/100),y=rnorm(100000,h/2.01,h/97))
plot(ggplot(df, aes(x,y)) + 
       annotation_custom(grid::rasterGrob(img, width=unit(1,"npc"), height=unit(1,"npc")), 0, w, 0, -h) + # The minus is needed to get the y scale reversed
       scale_x_continuous(expand=c(0,0),limits=c(0,w)) +
       scale_y_reverse(expand=c(0,0),limits=c(h,0)) + # The y scale is reversed because in image the vertical positive direction is typically downward
                                                      # Also note the limits where h>0 is the first parameter.
       coord_equal() + # To keep the aspect ratio of the image.

       stat_bin2d(binwidth=2,aes(fill = ..density..)) +
       scale_fill_gradient(low = "dark red", high = "red")
     )

df<-data.frame(x=rnorm(100000,100,w/70),y=rnorm(100000,400,h/100))
plot(ggplot(df, aes(x,y)) + 
       annotation_custom(grid::rasterGrob(img, width=unit(1,"npc"), height=unit(1,"npc")), 0, w, 0, -h) + # The minus is needed to get the y scale reversed
       scale_x_continuous(expand=c(0,0),limits=c(0,w)) +
       scale_y_reverse(expand=c(0,0),limits=c(h,0)) + # The y scale is reversed because in image the vertical positive direction is typically downward
       # Also note the limits where h>0 is the first parameter.
       coord_equal() + # To keep the aspect ratio of the image.

       stat_bin2d(binwidth=2,aes(fill = ..density..)) +
       scale_fill_gradient(low = "dark red", high = "red")
)