R help - Aug 2009 - three dimensions barchart

Dear R community,

I have one problem with figures.

I draw the Relative Distribution graph,
it looks like barchart(X,Y plot),
but I have ten(year) Relative Distribution grapgs,
have any command am can combine ten barcharts(X,Y plot) to become a three
dimensions barchart(X,Y,Z plot)?

All help highly appreciated


Best,
Yichih


One Relative Distribution graph:

fig2b<-reldist(y=mu96$adjwage,yo=mu68$adjwage,ci=F,smooth=0.4,
bar=TRUE,yolabs=seq(-1,3,by=0.5),
ylim=c(0,7),cex=0.8,ylab="Relative Density",xlab="Proportion of
the Original
Cohort")
title(main="Fig2(b):2007",cex=0.6)



-- 
Yichih Hsieh

e-mail : yichih.hsieh@gmail.com

	[[alternative HTML version deleted]]

On Aug 18, 2009, at 7:18 AM, Yichih Hsieh wrote:
> Dear R community,
>
> I have one problem with figures.
>
> I draw the Relative Distribution graph,
> it looks like barchart(X,Y plot),
> but I have ten(year) Relative Distribution grapgs,
> have any command am can combine ten barcharts(X,Y plot) to become a  
> three
> dimensions barchart(X,Y,Z plot)?
>
It has been my experience that the R-graphics experts generally  
deprecate 3-D bar graphs, but there are some worked examples in the  
supporting webpages for Sarkar's "Lattice" book:

Fig 6.4 (image followed by code)
http://dsarkar.fhcrc.org/lattice/book/images/Figure_06_04_stdBW.png

cloud(density ~ long + lat, state.info,
           subset = !(name %in% c("Alaska", "Hawaii")), type
= "h",
lwd = 2, zlim = c(0,
                             max(state.info$density)), scales =  
list(arrows = FALSE))
library("maps") state.map <- map("state", plot=FALSE,
fill = FALSE)
panel.3dmap <- function(..., rot.mat, distance, xlim, ylim, zlim,  
xlim.scaled,
     ylim.scaled, zlim.scaled) {
            scaled.val <- function(x, original, scaled) { scaled[1] +
                         (x - original[1]) * diff(scaled) /  
diff(original) }

  m <- ltransform3dto3d(rbind(scaled.val(state.map$x, xlim,  
xlim.scaled),
              scaled.val(state.map$y, ylim, ylim.scaled),  
zlim.scaled[1]),
              rot.mat, distance) panel.lines(m[1,], m[2,], col =  
"grey76") }


Fig 6.15 (image )
http://dsarkar.fhcrc.org/lattice/book/images/Figure_06_15_stdBW.png

code at:

http://lmdvr.r-forge.r-project.org/figures/figures.html#%20Figure%206.15
> All help highly appreciated
>
>
> Best,
> Yichih
>
>
> One Relative Distribution graph:
>
> fig2b<-reldist(y=mu96$adjwage,yo=mu68$adjwage,ci=F,smooth=0.4,
> bar=TRUE,yolabs=seq(-1,3,by=0.5),
> ylim=c(0,7),cex=0.8,ylab="Relative Density",xlab="Proportion
of the
> Original
> Cohort")
> title(main="Fig2(b):2007",cex=0.6)
>
>
>
> -- 
> Yichih Hsieh
>
> e-mail : yichih.hsieh at gmail.com
>
> 	[[alternative HTML version deleted]]
>
> ______________________________________________
> 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.
David Winsemius, MD
Heritage Laboratories
West Hartford, CT