New answers tagged

0

Perhaps you would like to use Histogram3D Manipulate[ Histogram3D[ Table[{Frequency[k, r, fmin, fmax], Amplitude[k, r]}, {k, 0, Nwaves - 1}]], {{Nwaves, 1, Style["Number of waves", 10]}, 1, 50, 1, ImageSize -> Large, Appearance -> {"Labeled", "Closed"}}, {{fmin, 0, Style["Min frequency", 10]}, 0, fmax, 0.001, ImageSize -> Large, Appearance ...


8

Histogram does not support a grouped ChartLayout. Hence the workaround using BarChart: I've arranged the 'histogram' into a bar chart so that the data can be displayed side by side. An alternative to using BarChart with "Grouped" layout is to use a custom ChartElementFunction to produce the desired Histogram layout: ClearAll[groupedHistogram] ...


7

Rather than Show, you can use Prolog + Inset with Scaled: Plot[ 140 PDF[SmoothKernelDistribution[#], x] & /@ {S086, T086, X086}, {x, 0, 100}, Evaluated -> True, PlotStyle -> { {Thickness[0.01], RGBColor[0.23, 0.42, 0.63]}, {Thickness[0.01], RGBColor[0.29, 0.53, 0.80]}, {Thickness[0.01], RGBColor[0.62, 0.73, 0.88]}}, Frame -> ...


3

Perhaps this is helpful or can be adapted. Using the data from OP. Note the "normal distribution" has been scaled for effect (not quantitative): d = {data1, data2, data3}; style = {Red, Green, Blue}; lab = {"data1", "data2", "data3"}; dc = DistributionChart[Join[Table[Null, {3}], d], ChartStyle -> style]; bw = BoxWhiskerChart[d, ChartStyle -> style]; ...


9

This is very similar to Quantum_Oli's answer, but I will post it anyway. It use's a modified version of Jens's plotGrid function to do the work of combining the plots. The function is imported from a pastebin to save space here, << "http://pastebin.com/raw/tmMYLyMh"; hist = Show[ Plot[140 PDF[SmoothKernelDistribution[#], x] & /@ {data1, ...


7

It is indeed possible, although not necessarily straightforward. The method I present below gives a pretty robust and accurate way of lining up plots, the downside is a little bit of code and having to specify a few different options. I'm used to it, it works. The key is that by specifying the ImageSize, and the Left and Right components of the ImagePadding ...


0

This is what we get playing with the parameters of SmoothHistogram and SmoothKernelDistribution: data = RandomSample[Join[RandomVariate[NormalDistribution[2, 1], 2000], ConstantArray[0, {100}]]]; Histogram[data] SmoothHistogram[data, {"Adaptive", .1, .001}] SmoothHistogram[data, {"Adaptive", .05, .01}] dist = SmoothKernelDistribution[data, ...


0

For version 9, wrapping data with Labeled gives the desired result: BarChart[{Labeled @@@ Transpose[{eventosporclasses, Rotate[#, Pi/2.4] & /@ Classes}]}, ChartElementFunction -> "ObliqueRectangle", PlotLabel -> Style["Distribuição de magnitudes (2014) -> atualização de: " <> DateString[{"Day", "/", "Month", "/", "Year", " às ...


2

I solved the issue by wrapping the Histogram inside a Show ! Here's an example which works very well with Mathematica 7 : (*This code produces the issue : too much space above the vertical axes : *) Histogram[ RandomReal[{0, 10}, 100], PlotRange -> {0, 30}, PlotRangePadding -> None, Frame -> True ] (* This one solves the problem ...



Top 50 recent answers are included