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

Why do airplanes bank sharply to the right after air-to-air refueling?

How to prevent changing the value of variable?

MessageLevel in QGIS3

sp_blitzCache results Memory grants

Bold, vivid family

What does "Its cash flow is deeply negative" mean?

How to invert MapIndexed on a ragged structure? How to construct a tree from rules?

How does the Z80 determine which peripheral sent an interrupt?

What is "(CFMCC)" on an ILS approach chart?

Do I need to enable Dev Hub in my PROD Org?

Unreliable Magic - Is it worth it?

Help understanding this unsettling image of Titan, Epimetheus, and Saturn's rings?

Why has the US not been more assertive in confronting Russia in recent years?

How to avoid supervisors with prejudiced views?

Real integral using residue theorem - why doesn't this work?

How do scammers retract money, while you can’t?

How does the mv command work with external drives?

Is it possible to search for a directory/file combination?

I believe this to be a fraud - hired, then asked to cash check and send cash as Bitcoin

Is it my responsibility to learn a new technology in my own time my employer wants to implement?

What flight has the highest ratio of time difference to flight time?

Why is the US ranked as #45 in Press Freedom ratings, despite its extremely permissive free speech laws?

"In the right combination" vs "with the right combination"?

Why does the UK parliament need a vote on the political declaration?



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










7












$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,



@risk histogram.



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];


histogram










share|improve this question









New contributor




Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.







$endgroup$
















    7












    $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,



    @risk histogram.



    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];


    histogram










    share|improve this question









    New contributor




    Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
    Check out our Code of Conduct.







    $endgroup$














      7












      7








      7


      2



      $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,



      @risk histogram.



      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];


      histogram










      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.







      $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,



      @risk histogram.



      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];


      histogram







      plotting programming probability-or-statistics






      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.











      share|improve this question









      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      share|improve this question




      share|improve this question








      edited 52 mins ago









      J. M. is slightly pensive

      98.7k10311467




      98.7k10311467






      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.









      asked 3 hours ago









      StupidStupid

      383




      383




      New contributor




      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.





      New contributor





      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.






      Stupid is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
      Check out our Code of Conduct.




















          2 Answers
          2






          active

          oldest

          votes


















          4












          $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]];)]]


          interactive histogram






          share|improve this answer









          $endgroup$




















            5












            $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

            ]
            ]


            enter image description here






            share|improve this answer









            $endgroup$













              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
              );



              );






              Stupid is a new contributor. Be nice, and check out our Code of Conduct.









              draft saved

              draft discarded


















              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









              4












              $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]];)]]


              interactive histogram






              share|improve this answer









              $endgroup$

















                4












                $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]];)]]


                interactive histogram






                share|improve this answer









                $endgroup$















                  4












                  4








                  4





                  $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]];)]]


                  interactive histogram






                  share|improve this answer









                  $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]];)]]


                  interactive histogram







                  share|improve this answer












                  share|improve this answer



                  share|improve this answer










                  answered 1 hour ago









                  J. M. is slightly pensiveJ. M. is slightly pensive

                  98.7k10311467




                  98.7k10311467





















                      5












                      $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

                      ]
                      ]


                      enter image description here






                      share|improve this answer









                      $endgroup$

















                        5












                        $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

                        ]
                        ]


                        enter image description here






                        share|improve this answer









                        $endgroup$















                          5












                          5








                          5





                          $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

                          ]
                          ]


                          enter image description here






                          share|improve this answer









                          $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

                          ]
                          ]


                          enter image description here







                          share|improve this answer












                          share|improve this answer



                          share|improve this answer










                          answered 1 hour ago









                          b3m2a1b3m2a1

                          28.4k358163




                          28.4k358163




















                              Stupid is a new contributor. Be nice, and check out our Code of Conduct.









                              draft saved

                              draft discarded


















                              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.




                              draft saved


                              draft discarded














                              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





















































                              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







                              Popular posts from this blog

                              Can not update quote_id field of “quote_item” table magento 2Magento 2.1 - We can't remove the item. (Shopping Cart doesnt allow us to remove items before becomes empty)Add value for custom quote item attribute using REST apiREST API endpoint v1/carts/cartId/items always returns error messageCorrect way to save entries to databaseHow to remove all associated quote objects of a customer completelyMagento 2 - Save value from custom input field to quote_itemGet quote_item data using quote id and product id filter in Magento 2How to set additional data to quote_item table from controller in Magento 2?What is the purpose of additional_data column in quote_item table in magento2Set Custom Price to Quote item magento2 from controller

                              How to solve knockout JS error in Magento 2 Planned maintenance scheduled April 23, 2019 at 23:30 UTC (7:30pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?(Magento2) knockout.js:3012 Uncaught ReferenceError: Unable to process bindingUnable to process binding Knockout.js magento 2Cannot read property `scopeLabel` of undefined on Product Detail PageCan't get Customer Data on frontend in Magento 2Magento2 Order Summary - unable to process bindingKO templates are not loading in Magento 2.1 applicationgetting knockout js error magento 2Product grid not load -— Unable to process binding Knockout.js magento 2Product form not loaded in magento2Uncaught ReferenceError: Unable to process binding “if: function()return (isShowLegend()) ” magento 2

                              Nissan Patrol Зміст Перше покоління — 4W60 (1951-1960) | Друге покоління — 60 series (1960-1980) | Третє покоління (1980–2002) | Четверте покоління — Y60 (1987–1998) | П'яте покоління — Y61 (1997–2013) | Шосте покоління — Y62 (2010- ) | Посилання | Зноски | Навігаційне менюОфіційний український сайтТест-драйв Nissan Patrol 2010 7-го поколінняNissan PatrolКак мы тестировали Nissan Patrol 2016рвиправивши або дописавши її