thr3ads.net - R help - [R] animated grid graphics [Jul 2009]

If this information is useful, please help other people find it:
Share via:

Unternährer Thomas

2009-Jul-21 12:18 UTC

[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

Paul Hiemstra

2009-Jul-21 13:00 UTC

head link

[R] animated grid graphics

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.
>

Unternährer Thomas

2009-Jul-21 13:29 UTC

head link

[R] animated grid graphics

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.

Apparently Analagous Threads

Search for more seemingly similar threads

R help - Jul 2009 - animated grid graphics

[R] animated grid graphics

[R] animated grid graphics

[R] animated grid graphics

Apparently Analagous Threads