Fotode (jpg - failide) lisamine graafikule

Abiks on lisamoodul jpeg, mis võimaldab R-i sisse lugeda jpg-faile (on ka teisi alternatiive). Jpg- faili sisselugemine R-i on imelihtne:


library(jpeg)
x=read.jpeg("faili nimi")

plot(1:2, type='n')
rasterImage(x, 1.1, 1.1, 1.9, 1.9)

Näide 1 - foto barplot'i taustana

par(mar=c(3,3,3,1), cex=2, lwd=3)
barplot(table(a), col=heat.colors(8), col.axis="darkred", col.lab="darkred", fg="darkred", main="Tulpdiagramm", col.main="darkred", ylim=c(0,40))

par(xpd=NULL)
rasterImage(x, -1, -1, 8, 50)

par(new=TRUE)
barplot(table(a), col=heat.colors(8), col.axis="darkred", col.lab="darkred", fg="darkred", main="Tulpdiagramm", col.main="darkred", ylim=c(0,40))

Näide 2 - foto logona graafikule lisaks


barplot(table(a), col=heat.colors(8), col.axis="darkred", col.lab="darkred", fg="darkred", main="Tulpdiagramm", col.main="darkred", ylim=c(0,40))

x2=readJPEG("c:\\temp\\seen.jpg")
rasterImage(x2, 5,25, 7.5, 36)