Re: Aggregating data and graphing it
- To: mathgroup at smc.vnet.net
- Subject: [mg101961] Re: Aggregating data and graphing it
- From: fd <fdimer at gmail.com>
- Date: Fri, 24 Jul 2009 06:13:47 -0400 (EDT)
- References: <h494ve$pvq$1@smc.vnet.net>
hmm...looking closer I noticed histogram is not a good thing to use
here...
I got to draw the graphs individually, which is not that hard
arrdata = GatherBy[data, #[[1]] && #[[2]] &]
histdata = {#[[1, 1]], #[[1, 2]], Total[#[[All, 3]]]} & /@ arrdata
Graphics3D[
Cuboid[{#[[1]] - 10, #[[2]] - 1, 0}, {#[[1]], #[[2]], #[[3]]}] & /@
histdata, BoxRatios -> {1, 2, 3}, Axes -> True]