Plot of histogram similar to output from @risk The 2019 Stack Overflow Developer Survey Results Are InCircular 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
60's-70's movie: home appliances revolting against the owners
Is an up-to-date browser secure on an out-of-date OS?
What aspect of planet earth must be changed to prevent the industrial revolution?
For what reasons would an animal species NOT cross a *horizontal* land bridge?
Button changing its text & action. Good or terrible?
Can withdrawing asylum be illegal?
How to read αἱμύλιος or when to aspirate
Does Parliament need to approve the new Brexit delay to 31 October 2019?
Make it rain characters
Am I ethically obligated to go into work on an off day if the reason is sudden?
How can I define good in a religion that claims no moral authority?
Mortgage adviser recommends a longer term than necessary combined with overpayments
Variable with quotation marks "$()"
Would an alien lifeform be able to achieve space travel if lacking in vision?
Did researcher Katie Bouman only contribute 0.26% of code that created Black Hole image?
How to fill page vertically?
What was the last x86 CPU that did not have the x87 floating-point unit built in?
Cooking pasta in a water boiler
Single author papers against my advisor's will?
Humiliated in front of employees
Why are PDP-7-style microprogrammed instructions out of vogue?
How to make Illustrator type tool selection automatically adapt with text length
Can we generate random numbers using irrational numbers like π and e?
Can a flute soloist sit?
Plot of histogram similar to output from @risk
The 2019 Stack Overflow Developer Survey Results Are InCircular 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
$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
$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
$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
98.9k10311467
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]];)]]
$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
]
]
$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]];)]]
$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]];)]]
$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]];)]]
$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
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
]
]
$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
]
]
$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
]
]
$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.7k359165
28.7k359165
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