Thanks David and Berton,

But I am so sorry for my mistake.
I have just found what I want is a three dimension *histogram*.
So correct problem is:

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


I check David provide' website
http://lmdvr.r-forge.r-project.org/figures/figures.html#%20Figure%206.15
but can't find three dimension histogram.

 Have any suggestions?

All help highly appreciated.


Best,
Yichih


2009/8/19 David Winsemius <dwinsemius@comcast.net>

>
> 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@gmail.com
>>
>>        [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@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<http://www.r-project.org/posting-guide.html>
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
> David Winsemius, MD
> Heritage Laboratories
> West Hartford, CT
>
>


-- 
Yichih Hsieh

e-mail : yichih.hsieh@gmail.com

	[[alternative HTML version deleted]]


