Plot of histogram similar to output from @riskCircular Plot and Circular HistogramHow to partition a list into sublists in a similar way to HistogramHypothesis Testing and Formatting Outputplot with horizontal similar specified markersControlling plot range of histogramVector component plot as histogramHow to get data from Histogram (HistogramList) for making plot?Getting PDF from imported HistogramConstruct Distribution Histogram From Random VariableIssues with smooth histogram
Email Account under attack (really) - anything I can do?
Is domain driven design an anti-SQL pattern?
Does it makes sense to buy a new cycle to learn riding?
Shall I use personal or official e-mail account when registering to external websites for work purpose?
What happens when a metallic dragon and a chromatic dragon mate?
Why is my log file so massive? 22gb. I am running log backups
Landing in very high winds
Can one use the reaction spell from the War Caster feat to cast Bigby's Hand?
Is there any use for defining additional entity types in a SOQL FROM clause?
Finding files for which a command fails
How could a lack of term limits lead to a "dictatorship?"
Domain expired, GoDaddy holds it and is asking more money
How is it possible for user's password to be changed after storage was encrypted? (on OS X, Android)
Could a US political party gain complete control over the government by removing checks & balances?
Information to fellow intern about hiring?
Are white and non-white police officers equally likely to kill black suspects?
aging parents with no investments
Where else does the Shulchan Aruch quote an authority by name?
New order #4: World
I see my dog run
Was there ever an axiom rendered a theorem?
Is there a familial term for apples and pears?
Why airport relocation isn't done gradually?
Is ipsum/ipsa/ipse a third person pronoun, or can it serve other functions?
Plot of histogram similar to output from @risk
Circular Plot and Circular HistogramHow to partition a list into sublists in a similar way to HistogramHypothesis Testing and Formatting Outputplot with horizontal similar specified markersControlling plot range of histogramVector component plot as histogramHow to get data from Histogram (HistogramList) for making plot?Getting PDF from imported HistogramConstruct Distribution Histogram From Random VariableIssues with smooth histogram
$begingroup$
In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,
.
I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
Histogram[mydata, Automatic, "Probability"]
mydist = EmpiricalDistribution[mydata];
plotting programming probability-or-statistics
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
$endgroup$
add a comment |
$begingroup$
In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,
.
I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
Histogram[mydata, Automatic, "Probability"]
mydist = EmpiricalDistribution[mydata];
plotting programming probability-or-statistics
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
$endgroup$
add a comment |
$begingroup$
In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,
.
I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
Histogram[mydata, Automatic, "Probability"]
mydist = EmpiricalDistribution[mydata];
plotting programming probability-or-statistics
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
$endgroup$
In order to analyze simulated data, @risk provides a histogram with handle bars, so that we can move these handles to see what proportion of data are on each side. For example,
.
I am trying to create similar graph for my empirical data, but I have no idea how to do it. Any help starting with the following code would be much appreciated.
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000];
Histogram[mydata, Automatic, "Probability"]
mydist = EmpiricalDistribution[mydata];
plotting programming probability-or-statistics
plotting programming probability-or-statistics
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
edited Mar 30 at 5:14
J. M. is away♦
98.9k10311467
98.9k10311467
asked Mar 30 at 2:54
StupidStupid
584
asked Mar 30 at 2:54
StupidStupid
584
asked Mar 30 at 2:54
StupidStupid
584
584
add a comment |
add a comment |
2 Answers
2
active
oldest
votes
$begingroup$
A starting point:
BlockRandom[SeedRandom[42]; (* for reproducibility *)
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];
DynamicModule[hd, hist, xmin, xmax, yr,
Manipulate[Show[hist,
Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
Exclusions -> None, Filling -> 1 -> Axis,
FillingStyle -> Opacity[0.8, Pink],
PlotPoints -> 95, PlotRange -> yr,
PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
Axes -> None, Frame -> True,
GridLines -> h[[1, 1]], h[[2, 1]], None,
Method -> "GridLinesInFront" -> True,
PlotLabel -> StringForm["``%",
100 Round[Abs[CDF[hd, h[[2, 1]]] -
CDF[hd, h[[1, 1]]]],
0.001]]],
h, xmin, 0, xmax, 0, Locator, Appearance -> None,
Initialization :> (hd = HistogramDistribution[mydata];
xmin, xmax = First[hd["Domain"]];
hist = Histogram[mydata, Automatic, "PDF",
ChartBaseStyle ->
Directive[EdgeForm[], LightPink]];
yr = Last[Charting`get2DPlotRange[hist]];)]]
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
$endgroup$
add a comment |
$begingroup$
Try this:
With[dist = CDF[mydist],
Manipulate[
Histogram[mydata, Automatic, "Probability",
PlotRange -> MinMax@mydata, All,
PlotLabel ->
StringForm["Percent Inside: ``" ,
dist[bounds[[2]]] - dist[bounds[[1]]]],
Epilog ->
EdgeForm[None],
GrayLevel[1, .5],
Rectangle[
Min@mydata, 0,
bounds[[1]], 1000000
],
Rectangle[
bounds[[2]], 0,
Max@mydata, 1000000
]
],
bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
Sequence @@ MinMax@mydata,
ControlType -> IntervalSlider
]
]
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
$endgroup$
add a comment |
Your Answer
StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");
StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);
else
createEditor();
);
function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);
);
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194234%2fplot-of-histogram-similar-to-output-from-risk%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
$begingroup$
A starting point:
BlockRandom[SeedRandom[42]; (* for reproducibility *)
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];
DynamicModule[hd, hist, xmin, xmax, yr,
Manipulate[Show[hist,
Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
Exclusions -> None, Filling -> 1 -> Axis,
FillingStyle -> Opacity[0.8, Pink],
PlotPoints -> 95, PlotRange -> yr,
PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
Axes -> None, Frame -> True,
GridLines -> h[[1, 1]], h[[2, 1]], None,
Method -> "GridLinesInFront" -> True,
PlotLabel -> StringForm["``%",
100 Round[Abs[CDF[hd, h[[2, 1]]] -
CDF[hd, h[[1, 1]]]],
0.001]]],
h, xmin, 0, xmax, 0, Locator, Appearance -> None,
Initialization :> (hd = HistogramDistribution[mydata];
xmin, xmax = First[hd["Domain"]];
hist = Histogram[mydata, Automatic, "PDF",
ChartBaseStyle ->
Directive[EdgeForm[], LightPink]];
yr = Last[Charting`get2DPlotRange[hist]];)]]
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
$endgroup$
add a comment |
$begingroup$
A starting point:
BlockRandom[SeedRandom[42]; (* for reproducibility *)
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];
DynamicModule[hd, hist, xmin, xmax, yr,
Manipulate[Show[hist,
Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
Exclusions -> None, Filling -> 1 -> Axis,
FillingStyle -> Opacity[0.8, Pink],
PlotPoints -> 95, PlotRange -> yr,
PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
Axes -> None, Frame -> True,
GridLines -> h[[1, 1]], h[[2, 1]], None,
Method -> "GridLinesInFront" -> True,
PlotLabel -> StringForm["``%",
100 Round[Abs[CDF[hd, h[[2, 1]]] -
CDF[hd, h[[1, 1]]]],
0.001]]],
h, xmin, 0, xmax, 0, Locator, Appearance -> None,
Initialization :> (hd = HistogramDistribution[mydata];
xmin, xmax = First[hd["Domain"]];
hist = Histogram[mydata, Automatic, "PDF",
ChartBaseStyle ->
Directive[EdgeForm[], LightPink]];
yr = Last[Charting`get2DPlotRange[hist]];)]]
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
$endgroup$
add a comment |
$begingroup$
A starting point:
BlockRandom[SeedRandom[42]; (* for reproducibility *)
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];
DynamicModule[hd, hist, xmin, xmax, yr,
Manipulate[Show[hist,
Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
Exclusions -> None, Filling -> 1 -> Axis,
FillingStyle -> Opacity[0.8, Pink],
PlotPoints -> 95, PlotRange -> yr,
PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
Axes -> None, Frame -> True,
GridLines -> h[[1, 1]], h[[2, 1]], None,
Method -> "GridLinesInFront" -> True,
PlotLabel -> StringForm["``%",
100 Round[Abs[CDF[hd, h[[2, 1]]] -
CDF[hd, h[[1, 1]]]],
0.001]]],
h, xmin, 0, xmax, 0, Locator, Appearance -> None,
Initialization :> (hd = HistogramDistribution[mydata];
xmin, xmax = First[hd["Domain"]];
hist = Histogram[mydata, Automatic, "PDF",
ChartBaseStyle ->
Directive[EdgeForm[], LightPink]];
yr = Last[Charting`get2DPlotRange[hist]];)]]
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
$endgroup$
A starting point:
BlockRandom[SeedRandom[42]; (* for reproducibility *)
mydata = RandomVariate[TriangularDistribution[100, 400, 200], 5000]];
DynamicModule[hd, hist, xmin, xmax, yr,
Manipulate[Show[hist,
Plot[PDF[hd, x], x, h[[1, 1]], h[[2, 1]],
Exclusions -> None, Filling -> 1 -> Axis,
FillingStyle -> Opacity[0.8, Pink],
PlotPoints -> 95, PlotRange -> yr,
PlotStyle -> Directive[AbsoluteThickness[2], Pink]],
Axes -> None, Frame -> True,
GridLines -> h[[1, 1]], h[[2, 1]], None,
Method -> "GridLinesInFront" -> True,
PlotLabel -> StringForm["``%",
100 Round[Abs[CDF[hd, h[[2, 1]]] -
CDF[hd, h[[1, 1]]]],
0.001]]],
h, xmin, 0, xmax, 0, Locator, Appearance -> None,
Initialization :> (hd = HistogramDistribution[mydata];
xmin, xmax = First[hd["Domain"]];
hist = Histogram[mydata, Automatic, "PDF",
ChartBaseStyle ->
Directive[EdgeForm[], LightPink]];
yr = Last[Charting`get2DPlotRange[hist]];)]]
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
answered Mar 30 at 4:42
J. M. is away♦J. M. is away
98.9k10311467
98.9k10311467
add a comment |
add a comment |
$begingroup$
Try this:
With[dist = CDF[mydist],
Manipulate[
Histogram[mydata, Automatic, "Probability",
PlotRange -> MinMax@mydata, All,
PlotLabel ->
StringForm["Percent Inside: ``" ,
dist[bounds[[2]]] - dist[bounds[[1]]]],
Epilog ->
EdgeForm[None],
GrayLevel[1, .5],
Rectangle[
Min@mydata, 0,
bounds[[1]], 1000000
],
Rectangle[
bounds[[2]], 0,
Max@mydata, 1000000
]
],
bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
Sequence @@ MinMax@mydata,
ControlType -> IntervalSlider
]
]
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
$endgroup$
add a comment |
$begingroup$
Try this:
With[dist = CDF[mydist],
Manipulate[
Histogram[mydata, Automatic, "Probability",
PlotRange -> MinMax@mydata, All,
PlotLabel ->
StringForm["Percent Inside: ``" ,
dist[bounds[[2]]] - dist[bounds[[1]]]],
Epilog ->
EdgeForm[None],
GrayLevel[1, .5],
Rectangle[
Min@mydata, 0,
bounds[[1]], 1000000
],
Rectangle[
bounds[[2]], 0,
Max@mydata, 1000000
]
],
bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
Sequence @@ MinMax@mydata,
ControlType -> IntervalSlider
]
]
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
$endgroup$
add a comment |
$begingroup$
Try this:
With[dist = CDF[mydist],
Manipulate[
Histogram[mydata, Automatic, "Probability",
PlotRange -> MinMax@mydata, All,
PlotLabel ->
StringForm["Percent Inside: ``" ,
dist[bounds[[2]]] - dist[bounds[[1]]]],
Epilog ->
EdgeForm[None],
GrayLevel[1, .5],
Rectangle[
Min@mydata, 0,
bounds[[1]], 1000000
],
Rectangle[
bounds[[2]], 0,
Max@mydata, 1000000
]
],
bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
Sequence @@ MinMax@mydata,
ControlType -> IntervalSlider
]
]
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
$endgroup$
Try this:
With[dist = CDF[mydist],
Manipulate[
Histogram[mydata, Automatic, "Probability",
PlotRange -> MinMax@mydata, All,
PlotLabel ->
StringForm["Percent Inside: ``" ,
dist[bounds[[2]]] - dist[bounds[[1]]]],
Epilog ->
EdgeForm[None],
GrayLevel[1, .5],
Rectangle[
Min@mydata, 0,
bounds[[1]], 1000000
],
Rectangle[
bounds[[2]], 0,
Max@mydata, 1000000
]
],
bounds, Rescale[.25, .75, 0, 1, MinMax@mydata],
Sequence @@ MinMax@mydata,
ControlType -> IntervalSlider
]
]
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
answered Mar 30 at 4:35
b3m2a1b3m2a1
28.5k359164
28.5k359164
add a comment |
add a comment |
Thanks for contributing an answer to Mathematica Stack Exchange!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
Use MathJax to format equations. MathJax reference.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194234%2fplot-of-histogram-similar-to-output-from-risk%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
