I need to make a fairly complex animated graphic and decided to use grid for it.
A very simple example of what I need:
##=============================================================================library(grid)
grid.newpage()
pushViewport(plotViewport())
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100))))
grid.xaxis()
grid.yaxis()
rectNames <- paste("r", 1:100, sep = "")
for (i in 1:100) {
grid.rect(x = unit(sample(0:100, 1), "native"),
y = unit(sample(0:100, 1), "native"),
width = 0.1, height = 0.1, name = rectNames[i])
}
for (i in 1:100) {
grid.remove(rectNames[i])
}
##=============================================================================
The problem here is that removing grid objects is very slow, at least in the
way I use it. Is it possible to remove all objects at once (or to use some
technique similar to double buffering)?
A second way to do it would be to remove a viewport and all its children from
the current viewport tree. Is this possible? Example:
##=============================================================================grid.newpage()
pushViewport(plotViewport())
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100))))
grid.xaxis()
grid.yaxis()
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100)),
name = "plotVP"))
for (i in 1:100) {
grid.rect(x = unit(sample(0:100, 1), "native"),
y = unit(sample(0:100, 1), "native"),
width = 0.1, height = 0.1, name = paste("r", i, sep =
""))
}
*remove("plotVP")*??
##=============================================================================
Another approach would be to save every single plot as an image and use
something like imagemagick to produce an animated gif, but I was just wondering
if it's possible by using grid only (no need to use it outside of R).
Thanks in advance
Thomas
Hi, Drawing grid graphics always takes long, I would write the images to png's and make the animation. If you use Linux I can suggest some nice tools to do this. This movie is also much more compatible with all kinds of machines. It might be that you can get your grid animation working on your own computer, but if another user has a less powerfull machine he might not have a smooth animation. Good luck! Paul Untern?hrer Thomas schreef:> I need to make a fairly complex animated graphic and decided to use grid for it. > A very simple example of what I need: > > ##=============================================================================> library(grid) > grid.newpage() > pushViewport(plotViewport()) > pushViewport(viewport(xscale = extendrange(c(0, 100)), > yscale = extendrange(c(0, 100)))) > grid.xaxis() > grid.yaxis() > > rectNames <- paste("r", 1:100, sep = "") > for (i in 1:100) { > grid.rect(x = unit(sample(0:100, 1), "native"), > y = unit(sample(0:100, 1), "native"), > width = 0.1, height = 0.1, name = rectNames[i]) > } > > for (i in 1:100) { > grid.remove(rectNames[i]) > } > ##=============================================================================> > The problem here is that removing grid objects is very slow, at least in the > way I use it. Is it possible to remove all objects at once (or to use some > technique similar to double buffering)? > > > A second way to do it would be to remove a viewport and all its children from > the current viewport tree. Is this possible? Example: > > ##=============================================================================> grid.newpage() > pushViewport(plotViewport()) > pushViewport(viewport(xscale = extendrange(c(0, 100)), > yscale = extendrange(c(0, 100)))) > grid.xaxis() > grid.yaxis() > > pushViewport(viewport(xscale = extendrange(c(0, 100)), > yscale = extendrange(c(0, 100)), > name = "plotVP")) > for (i in 1:100) { > grid.rect(x = unit(sample(0:100, 1), "native"), > y = unit(sample(0:100, 1), "native"), > width = 0.1, height = 0.1, name = paste("r", i, sep = "")) > } > > *remove("plotVP")*?? > ##=============================================================================> > > Another approach would be to save every single plot as an image and use > something like imagemagick to produce an animated gif, but I was just wondering > if it's possible by using grid only (no need to use it outside of R). > > Thanks in advance > > Thomas > > ______________________________________________ > R-help at r-project.org mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. >
Ups, I just realized that we have the possibility of using
grid.remove(..., redraw = FALSE) which is more or less what I was looking for.
But I'm still wondering if its possible to remove a viewport from
a viewport tree:
##=============================================================================f
<- function(vpName) {
pushViewport(viewport(width = 0.8, height = 0.8, name = vpName))
grid.rect()
}
grid.newpage()
f("vp1")
f("vp2")
f("vp3")
current.vpTree()
## viewport[ROOT]->(viewport[vp1]->(viewport[vp2]->(viewport[vp3])))
## remove("vp2") should result in
## viewport[ROOT]->(viewport[vp1]->(viewport[vp3]))
## or
## viewport[ROOT]->(viewport[vp1])
## grid.rect should also be removed from the device
##=============================================================================
is this possible?
-----Urspr?ngliche Nachricht-----
Von: r-help-bounces at r-project.org im Auftrag von Untern?hrer Thomas
Gesendet: Di 21.07.2009 14:18
An: r-help at r-project.org
Betreff: [R] animated grid graphics
I need to make a fairly complex animated graphic and decided to use grid for it.
A very simple example of what I need:
##=============================================================================library(grid)
grid.newpage()
pushViewport(plotViewport())
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100))))
grid.xaxis()
grid.yaxis()
rectNames <- paste("r", 1:100, sep = "")
for (i in 1:100) {
grid.rect(x = unit(sample(0:100, 1), "native"),
y = unit(sample(0:100, 1), "native"),
width = 0.1, height = 0.1, name = rectNames[i])
}
for (i in 1:100) {
grid.remove(rectNames[i])
}
##=============================================================================
The problem here is that removing grid objects is very slow, at least in the
way I use it. Is it possible to remove all objects at once (or to use some
technique similar to double buffering)?
A second way to do it would be to remove a viewport and all its children from
the current viewport tree. Is this possible? Example:
##=============================================================================grid.newpage()
pushViewport(plotViewport())
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100))))
grid.xaxis()
grid.yaxis()
pushViewport(viewport(xscale = extendrange(c(0, 100)),
yscale = extendrange(c(0, 100)),
name = "plotVP"))
for (i in 1:100) {
grid.rect(x = unit(sample(0:100, 1), "native"),
y = unit(sample(0:100, 1), "native"),
width = 0.1, height = 0.1, name = paste("r", i, sep =
""))
}
*remove("plotVP")*??
##=============================================================================
Another approach would be to save every single plot as an image and use
something like imagemagick to produce an animated gif, but I was just wondering
if it's possible by using grid only (no need to use it outside of R).
Thanks in advance
Thomas
______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.