Plotting curves of different orders of magnitudes on the same graph

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP











up vote
5
down vote

favorite












I want to plot 



Plot[Exp[x],Sin[x],x,0,10]


The issue is that Sin[x] and Exp[x] are not of the same order of magnitude, so we do not see Sin[x]. Therefore, I would like to set different y-axis but on the same graph. For Exp[x], the y axis would go from 0 to 25000 and for Sin[x] from -1 to 1. How can I do that ?






plotting visualization







share|improve this question























  • Why do you need to plot curves with widely-varying ranges together?
    – J. M. is somewhat okay.♦
    5 hours ago






  • 1




    I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
    – J.A
    5 hours ago










  • How about LogPlot?
    – Î‘λέξανδρος Ζεγγ
    2 hours ago






  • 1




    @ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
    – Michael Seifert
    1 hour ago














up vote
5
down vote

favorite












I want to plot 



Plot[Exp[x],Sin[x],x,0,10]


The issue is that Sin[x] and Exp[x] are not of the same order of magnitude, so we do not see Sin[x]. Therefore, I would like to set different y-axis but on the same graph. For Exp[x], the y axis would go from 0 to 25000 and for Sin[x] from -1 to 1. How can I do that ?






plotting visualization







share|improve this question























  • Why do you need to plot curves with widely-varying ranges together?
    – J. M. is somewhat okay.♦
    5 hours ago






  • 1




    I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
    – J.A
    5 hours ago










  • How about LogPlot?
    – Î‘λέξανδρος Ζεγγ
    2 hours ago






  • 1




    @ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
    – Michael Seifert
    1 hour ago












up vote
5
down vote

favorite









up vote
5
down vote

favorite











I want to plot 



Plot[Exp[x],Sin[x],x,0,10]


The issue is that Sin[x] and Exp[x] are not of the same order of magnitude, so we do not see Sin[x]. Therefore, I would like to set different y-axis but on the same graph. For Exp[x], the y axis would go from 0 to 25000 and for Sin[x] from -1 to 1. How can I do that ?






plotting visualization







share|improve this question















I want to plot 



Plot[Exp[x],Sin[x],x,0,10]


The issue is that Sin[x] and Exp[x] are not of the same order of magnitude, so we do not see Sin[x]. Therefore, I would like to set different y-axis but on the same graph. For Exp[x], the y axis would go from 0 to 25000 and for Sin[x] from -1 to 1. How can I do that ?






plotting visualization




plotting visualization






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 30 mins ago









Community♦

1




1










asked 5 hours ago









J.A

1414




1414











  • Why do you need to plot curves with widely-varying ranges together?
    – J. M. is somewhat okay.♦
    5 hours ago






  • 1




    I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
    – J.A
    5 hours ago










  • How about LogPlot?
    – Î‘λέξανδρος Ζεγγ
    2 hours ago






  • 1




    @ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
    – Michael Seifert
    1 hour ago
















  • Why do you need to plot curves with widely-varying ranges together?
    – J. M. is somewhat okay.♦
    5 hours ago






  • 1




    I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
    – J.A
    5 hours ago










  • How about LogPlot?
    – Î‘λέξανδρος Ζεγγ
    2 hours ago






  • 1




    @ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
    – Michael Seifert
    1 hour ago















Why do you need to plot curves with widely-varying ranges together?
– J. M. is somewhat okay.♦
5 hours ago




Why do you need to plot curves with widely-varying ranges together?
– J. M. is somewhat okay.♦
5 hours ago




1




1




I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
– J.A
5 hours ago




I have a case when I want to visualize the data and the log of the data. The curve is supposed to be an exponential at the beginning and vary linearly at the end. I want to see a linear evolution at the beginning with the log of the data, a linear evolution at the end with the data, and a transition area. I asked my question in a simple way, since the data is pretty big and that it's a general question
– J.A
5 hours ago












How about LogPlot?
– Î‘λέξανδρος Ζεγγ
2 hours ago




How about LogPlot?
– Î‘λέξανδρος Ζεγγ
2 hours ago




1




1




@ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
– Michael Seifert
1 hour ago




@ΑλέξανδροςΖεγγ: That won't work so well for a function that becomes negative, like Sin[x] does. (There are ways around this, of course.)
– Michael Seifert
1 hour ago










2 Answers
2






active

oldest

votes

















up vote
6
down vote













A slightly modified version using Overlay.



combine[data1_, data2_] := Overlay[ListLinePlot[data1,
 Frame -> True, True, False, False, 
 FrameLabel -> "x1", "y1", LabelStyle -> Directive[12, Blue], 
 PlotStyle -> Blue, PlotRange -> All, 
 ImagePadding -> 50, 50, 40, 40],
 ListLinePlot[data2, Frame -> False, False, True, True, 
 FrameTicks -> All, FrameLabel -> None, "y2", None, "x2", 
 LabelStyle -> Directive[12, Red], PlotStyle -> Red, Dashed, 
 PlotRange -> All, ImagePadding -> 50, 50, 40, 40], 
 Alignment -> Center]

data1 = Table[x, Sin[x], x, 0, 10, 0.01];
data2 = Table[x, Exp[x], x, -5, 5, 0.01];
combine[data1, data2]


enter image description here



One advantage here is that you can use any range for x and y.



You can use Plot as well in the combine and modify the appearance.






share|improve this answer






















  • +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
    – Michael Seifert
    1 hour ago


















up vote
3
down vote













Multiply, Sin[x] by, say, 1000 and rescale the right axis:



Plot[Exp[x], 1000 Sin[x], x, 0, 10, Frame -> True, 
 FrameTicks -> Automatic, Charting`FindTicks[-1000, 1000, -1, 1], 
 Automatic, Automatic,
 PlotLegends -> "Expressions"]


enter image description here






share|improve this answer






















    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',
    convertImagesToLinks: false,
    noModals: false,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    );



    );













     

    draft saved


    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183357%2fplotting-curves-of-different-orders-of-magnitudes-on-the-same-graph%23new-answer', 'question_page');

    );

    Post as a guest

















    2 Answers
    2






    active

    oldest

    votes








    2 Answers
    2






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    6
    down vote













    A slightly modified version using Overlay.



    combine[data1_, data2_] := Overlay[ListLinePlot[data1,
     Frame -> True, True, False, False, 
     FrameLabel -> "x1", "y1", LabelStyle -> Directive[12, Blue], 
     PlotStyle -> Blue, PlotRange -> All, 
     ImagePadding -> 50, 50, 40, 40],
     ListLinePlot[data2, Frame -> False, False, True, True, 
     FrameTicks -> All, FrameLabel -> None, "y2", None, "x2", 
     LabelStyle -> Directive[12, Red], PlotStyle -> Red, Dashed, 
     PlotRange -> All, ImagePadding -> 50, 50, 40, 40], 
     Alignment -> Center]

    data1 = Table[x, Sin[x], x, 0, 10, 0.01];
    data2 = Table[x, Exp[x], x, -5, 5, 0.01];
    combine[data1, data2]


    enter image description here



    One advantage here is that you can use any range for x and y.



    You can use Plot as well in the combine and modify the appearance.






    share|improve this answer






















    • +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
      – Michael Seifert
      1 hour ago















    up vote
    6
    down vote













    A slightly modified version using Overlay.



    combine[data1_, data2_] := Overlay[ListLinePlot[data1,
     Frame -> True, True, False, False, 
     FrameLabel -> "x1", "y1", LabelStyle -> Directive[12, Blue], 
     PlotStyle -> Blue, PlotRange -> All, 
     ImagePadding -> 50, 50, 40, 40],
     ListLinePlot[data2, Frame -> False, False, True, True, 
     FrameTicks -> All, FrameLabel -> None, "y2", None, "x2", 
     LabelStyle -> Directive[12, Red], PlotStyle -> Red, Dashed, 
     PlotRange -> All, ImagePadding -> 50, 50, 40, 40], 
     Alignment -> Center]

    data1 = Table[x, Sin[x], x, 0, 10, 0.01];
    data2 = Table[x, Exp[x], x, -5, 5, 0.01];
    combine[data1, data2]


    enter image description here



    One advantage here is that you can use any range for x and y.



    You can use Plot as well in the combine and modify the appearance.






    share|improve this answer






















    • +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
      – Michael Seifert
      1 hour ago













    up vote
    6
    down vote










    up vote
    6
    down vote









    A slightly modified version using Overlay.



    combine[data1_, data2_] := Overlay[ListLinePlot[data1,
     Frame -> True, True, False, False, 
     FrameLabel -> "x1", "y1", LabelStyle -> Directive[12, Blue], 
     PlotStyle -> Blue, PlotRange -> All, 
     ImagePadding -> 50, 50, 40, 40],
     ListLinePlot[data2, Frame -> False, False, True, True, 
     FrameTicks -> All, FrameLabel -> None, "y2", None, "x2", 
     LabelStyle -> Directive[12, Red], PlotStyle -> Red, Dashed, 
     PlotRange -> All, ImagePadding -> 50, 50, 40, 40], 
     Alignment -> Center]

    data1 = Table[x, Sin[x], x, 0, 10, 0.01];
    data2 = Table[x, Exp[x], x, -5, 5, 0.01];
    combine[data1, data2]


    enter image description here



    One advantage here is that you can use any range for x and y.



    You can use Plot as well in the combine and modify the appearance.






    share|improve this answer














    A slightly modified version using Overlay.



    combine[data1_, data2_] := Overlay[ListLinePlot[data1,
     Frame -> True, True, False, False, 
     FrameLabel -> "x1", "y1", LabelStyle -> Directive[12, Blue], 
     PlotStyle -> Blue, PlotRange -> All, 
     ImagePadding -> 50, 50, 40, 40],
     ListLinePlot[data2, Frame -> False, False, True, True, 
     FrameTicks -> All, FrameLabel -> None, "y2", None, "x2", 
     LabelStyle -> Directive[12, Red], PlotStyle -> Red, Dashed, 
     PlotRange -> All, ImagePadding -> 50, 50, 40, 40], 
     Alignment -> Center]

    data1 = Table[x, Sin[x], x, 0, 10, 0.01];
    data2 = Table[x, Exp[x], x, -5, 5, 0.01];
    combine[data1, data2]


    enter image description here



    One advantage here is that you can use any range for x and y.



    You can use Plot as well in the combine and modify the appearance.







    share|improve this answer














    share|improve this answer



    share|improve this answer








    edited 2 hours ago

























    answered 3 hours ago









    Sumit

    11.5k21854




    11.5k21854











    • +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
      – Michael Seifert
      1 hour ago

















    • +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
      – Michael Seifert
      1 hour ago
















    +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
    – Michael Seifert
    1 hour ago





    +1 for the coding ingenuity, but honestly, for me this just reinforces the idea that a small multiple chart is often the way to go.
    – Michael Seifert
    1 hour ago











    up vote
    3
    down vote













    Multiply, Sin[x] by, say, 1000 and rescale the right axis:



    Plot[Exp[x], 1000 Sin[x], x, 0, 10, Frame -> True, 
     FrameTicks -> Automatic, Charting`FindTicks[-1000, 1000, -1, 1], 
     Automatic, Automatic,
     PlotLegends -> "Expressions"]


    enter image description here






    share|improve this answer


























      up vote
      3
      down vote













      Multiply, Sin[x] by, say, 1000 and rescale the right axis:



      Plot[Exp[x], 1000 Sin[x], x, 0, 10, Frame -> True, 
       FrameTicks -> Automatic, Charting`FindTicks[-1000, 1000, -1, 1], 
       Automatic, Automatic,
       PlotLegends -> "Expressions"]


      enter image description here






      share|improve this answer
























        up vote
        3
        down vote










        up vote
        3
        down vote









        Multiply, Sin[x] by, say, 1000 and rescale the right axis:



        Plot[Exp[x], 1000 Sin[x], x, 0, 10, Frame -> True, 
         FrameTicks -> Automatic, Charting`FindTicks[-1000, 1000, -1, 1], 
         Automatic, Automatic,
         PlotLegends -> "Expressions"]


        enter image description here






        share|improve this answer














        Multiply, Sin[x] by, say, 1000 and rescale the right axis:



        Plot[Exp[x], 1000 Sin[x], x, 0, 10, Frame -> True, 
         FrameTicks -> Automatic, Charting`FindTicks[-1000, 1000, -1, 1], 
         Automatic, Automatic,
         PlotLegends -> "Expressions"]


        enter image description here







        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited 4 hours ago

























        answered 5 hours ago









        kglr

        164k8188388




        164k8188388



























             

            draft saved


            draft discarded















































             


            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f183357%2fplotting-curves-of-different-orders-of-magnitudes-on-the-same-graph%23new-answer', 'question_page');

            );

            Post as a guest
































































            Comments

            Post a Comment

            Popular posts from this blog

            What does second last employer means? [closed]

            Image
            Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote -3 down vote favorite Say, for example I have worked in the following companies, Company A => 2010 - 2011 Company B => 2011 - 2012 Company C => 2012 - Till Date Company D => Have offer Now assume Company D is asking to submit documents from my second last employer. So from the list of companies given, which company would be qualified as second last employer? software-industry employer share | improve this question asked Aug 10 '14 at 5:16 Rajaprabhu Aravindasamy 559 1 6 13 closed as off-topic by Jim G., jmort253 ♦ Aug 11 '14 at 1:58 This question appears to be off-topic. The users who voted to close gave this specific reason: "Questions seeking advice on company-specific regulations, agreements, or policies should be directed to your manager or HR department. Questions that address...
            Read more

            List of Gilmore Girls characters

            Image
            The season three cast—(Back row): Lane, Michel, Paris, Emily, Richard, Sookie, Miss Patty, Kirk; Front row: Jess, Luke, Lorelai, Rory, Dean This is a list of characters for the comedy-drama television series Gilmore Girls . Contents 1 Main characters 1.1 Lorelai Gilmore 1.2 Rory Gilmore 1.3 Sookie St. James 1.4 Lane Kim 1.5 Michel Gerard 1.6 Luke Danes 1.7 Emily Gilmore 1.8 Richard Gilmore 1.9 Paris Geller 1.10 Dean Forester 1.11 Jess Mariano 1.12 Kirk Gleason 1.13 Jason Stiles 1.14 Logan Huntzberger 2 Major recurring characters 2.1 Christopher Hayden 2.2 Jackson Belleville 2.3 Mrs. Kim 2.4 Tristin DuGray 2.5 Max Medina 2.6 Taylor Doose 2.7 Dave Rygalski 2.8 Marty 3 Recurring characters 3.1 Stars Hollow 3.2 Chilton 3.3 Yale 3.4 Other 4 Notable guest stars 5 Unseen characters 6 Notes 7 References Main characters Actor Character Appearances Season 1 Season 2 Season 3 Season 4 Season 5 Season 6 Season 7 A Year in the Life Lauren Graham Lorelai Gilmore...
            Read more

            Confectionery

            Image
            Prepared foods made with a lot of sugar or other cabohydrates "Sweetmeat" redirects here. For the racehorse, see Sweetmeat (horse). Not to be confused with Sweetbread. This Kransekake is a traditional Scandinavian baker's confection. Confectionery is the art of making confections , which are food items that are rich in sugar and carbohydrates. Exact definitions are difficult. [1] In general, though, confectionery is divided into two broad and somewhat overlapping categories, bakers' confections and sugar confections. [2] Bakers' confectionery, also called flour confections , includes principally sweet pastries, cakes, and similar baked goods. Sugar confectionery includes candies ( sweets in British English), candied nuts, chocolates, chewing gum, bubble gum, pastillage, and other confections that are made primarily of sugar. In some cases, chocolate confections (confections made of chocolate) are treated as a separate category, as are sugar-free versions of ...
            Read more