Plot of histogram similar to output from @risk The Next CEO of Stack OverflowCircular 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
Could you use a laser beam as a modulated carrier wave for radio signal?
Is there a rule of thumb for determining the amount one should accept for of a settlement offer?
Why can't we say "I have been having a dog"?
"Eavesdropping" vs "Listen in on"
Physiological effects of huge anime eyes
Man transported from Alternate World into ours by a Neutrino Detector
Incomplete cube
Why do we say “un seul M” and not “une seule M” even though M is a “consonne”?
Car headlights in a world without electricity
How to implement Comparable so it is consistent with identity-equality
Does int main() need a declaration on C++?
Strange use of "whether ... than ..." in official text
A hang glider, sudden unexpected lift to 25,000 feet altitude, what could do this?
Creating a script with console commands
Is it OK to decorate a log book cover?
Simplify trigonometric expression using trigonometric identities
How can the PCs determine if an item is a phylactery?
pgfplots: How to draw a tangent graph below two others?
Are British MPs missing the point, with these 'Indicative Votes'?
How dangerous is XSS
Small nick on power cord from an electric alarm clock, and copper wiring exposed but intact
Find the majority element, which appears more than half the time
MT "will strike" & LXX "will watch carefully" (Gen 3:15)?
What difference does it make matching a word with/without a trailing whitespace?
Plot of histogram similar to output from @risk
The Next CEO of Stack OverflowCircular 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
New contributor
$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
New contributor
$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
New contributor
$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
New contributor
New contributor
edited 2 days ago
J. M. is slightly pensive♦
98.9k10311467
98.9k10311467
New contributor
asked 2 days ago
StupidStupid
584
584
New contributor
New contributor
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 |
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
);
);
Stupid is a new contributor. Be nice, and check out our Code of Conduct.
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 2 days ago
J. M. is slightly pensive♦J. M. is slightly pensive
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 2 days ago
b3m2a1b3m2a1
28.5k359164
28.5k359164
add a comment |
add a comment |
Stupid is a new contributor. Be nice, and check out our Code of Conduct.
Stupid is a new contributor. Be nice, and check out our Code of Conduct.
Stupid is a new contributor. Be nice, and check out our Code of Conduct.
Stupid is a new contributor. Be nice, and check out our Code of Conduct.
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