Plot list with structure of each item x, y, z

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











up vote
6
down vote

favorite












Given the data below:



x, y, z = 
0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 1.0054247,
1.1, 0.14552025, 1.0184426, 1.6, 0.21458577, 1.0398293,
2.1, 0.28706229,1.0712175, 2.6, 0.3643249, 1.1155575


How can I plot column x with column z and z with y?










share|improve this question



























    up vote
    6
    down vote

    favorite












    Given the data below:



    x, y, z = 
    0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 1.0054247,
    1.1, 0.14552025, 1.0184426, 1.6, 0.21458577, 1.0398293,
    2.1, 0.28706229,1.0712175, 2.6, 0.3643249, 1.1155575


    How can I plot column x with column z and z with y?










    share|improve this question

























      up vote
      6
      down vote

      favorite









      up vote
      6
      down vote

      favorite











      Given the data below:



      x, y, z = 
      0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 1.0054247,
      1.1, 0.14552025, 1.0184426, 1.6, 0.21458577, 1.0398293,
      2.1, 0.28706229,1.0712175, 2.6, 0.3643249, 1.1155575


      How can I plot column x with column z and z with y?










      share|improve this question















      Given the data below:



      x, y, z = 
      0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 1.0054247,
      1.1, 0.14552025, 1.0184426, 1.6, 0.21458577, 1.0398293,
      2.1, 0.28706229,1.0712175, 2.6, 0.3643249, 1.1155575


      How can I plot column x with column z and z with y?







      plotting data






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 21 mins ago









      m_goldberg

      81.9k869190




      81.9k869190










      asked 12 hours ago









      Gallagher

      745




      745




















          5 Answers
          5






          active

          oldest

          votes

















          up vote
          7
          down vote













          This is also a good place to apply patterns to re-arrange the elements of the data.



          list = 0.1, 0.013070604, 1.00015, 0.6, 0.078698955,1.0054247, 
          1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,1.0398293,
          2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,1.1155575;

          ListPlot[list /. x_, y_, z_ -> x, z, list /. x_, y_, z_ -> z, y]





          share|improve this answer



























            up vote
            6
            down vote













            How about this



            data = Flatten /@ 0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 
            1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
            1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
            1.1155575;

            ListPlot[data[[All, 3, 1]], data[[All, 2 ;;]]]



            enter image description here







            share|improve this answer



























              up vote
              2
              down vote













              Here is another way:



              a = 
              0.1, 0.013070604, 1.00015, 0.6, 0.078698955,
              1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
              1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
              1.1155575
              ;
              x, y, z = MapAt[Transpose, Transpose[a], 2];
              ListPlot[Transpose[x, z], Transpose[z, y]]


              enter image description here






              share|improve this answer



























                up vote
                2
                down vote













                Yet another way:



                data2 = Flatten /@ data;
                yz, xz = data2[[All, 2, 3]], data2[[All, 1, 3]] ;

                ListPlot[yz , xz,
                PlotStyle -> Red, Blue,
                PlotLegends -> "y Vs z", "x Vs z" ,
                PlotRange -> .8, 1.2,
                AxesOrigin -> 0, .8,
                AxesLabel -> Column[Style[#, 16] & /@ "x", "y"], Style[ "z", 16]] 


                enter image description here



                ListPlot[-#[[1]], #[[2]] & /@ yz , xz, 
                 PlotStyle -> Red, Blue,
                 PlotLegends -> "y Vs z", "x Vs z" ,
                 PlotRange -> -3, 3, .8, 1.2,
                 AxesOrigin -> 0, .8,
                 AxesLabel -> None, Style[ "z", 16],
                 Epilog -> Text[Style["y", 16], Offset[-15, 0, Scaled@0, 0] ],
                Text[Style["x", 16], Offset[15, 0, Scaled@1, 0]],
                 PlotRangeClipping -> False,
                 ImagePadding -> Scaled[.05],
                 ImageSize -> 600,
                Ticks -> Join[Charting`FindTicks[3, 0, -3, 0][-3, 0],
                Charting`FindTicks[0, 1, 0, 1][0, 3] ], Automatic]


                enter image description here






                share|improve this answer





























                  up vote
                  1
                  down vote













                  Another way



                  data=0.1,0.013070604,1.00015,0.6,0.078698955,1.0054247,
                  1.1,0.14552025,1.0184426,1.6,0.21458577,1.0398293,
                  2.1,0.28706229,1.0712175,2.6,0.3643249,1.1155575
                  x,y,z=#[[;;,1]],#[[;;,2,1]],#[[;;,2,2]]&@data
                  ListPlot[MapThread[List,#]&/@z,x,y,z]


                  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%2f182046%2fplot-list-with-structure-of-each-item-x-y-z%23new-answer', 'question_page');

                    );

                    Post as a guest






























                    5 Answers
                    5






                    active

                    oldest

                    votes








                    5 Answers
                    5






                    active

                    oldest

                    votes









                    active

                    oldest

                    votes






                    active

                    oldest

                    votes








                    up vote
                    7
                    down vote













                    This is also a good place to apply patterns to re-arrange the elements of the data.



                    list = 0.1, 0.013070604, 1.00015, 0.6, 0.078698955,1.0054247, 
                    1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,1.0398293,
                    2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,1.1155575;

                    ListPlot[list /. x_, y_, z_ -> x, z, list /. x_, y_, z_ -> z, y]





                    share|improve this answer
























                      up vote
                      7
                      down vote













                      This is also a good place to apply patterns to re-arrange the elements of the data.



                      list = 0.1, 0.013070604, 1.00015, 0.6, 0.078698955,1.0054247, 
                      1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,1.0398293,
                      2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,1.1155575;

                      ListPlot[list /. x_, y_, z_ -> x, z, list /. x_, y_, z_ -> z, y]





                      share|improve this answer






















                        up vote
                        7
                        down vote










                        up vote
                        7
                        down vote









                        This is also a good place to apply patterns to re-arrange the elements of the data.



                        list = 0.1, 0.013070604, 1.00015, 0.6, 0.078698955,1.0054247, 
                        1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,1.0398293,
                        2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,1.1155575;

                        ListPlot[list /. x_, y_, z_ -> x, z, list /. x_, y_, z_ -> z, y]





                        share|improve this answer












                        This is also a good place to apply patterns to re-arrange the elements of the data.



                        list = 0.1, 0.013070604, 1.00015, 0.6, 0.078698955,1.0054247, 
                        1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,1.0398293,
                        2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,1.1155575;

                        ListPlot[list /. x_, y_, z_ -> x, z, list /. x_, y_, z_ -> z, y]






                        share|improve this answer












                        share|improve this answer



                        share|improve this answer










                        answered 12 hours ago









                        bill s

                        50.9k373144




                        50.9k373144




















                            up vote
                            6
                            down vote













                            How about this



                            data = Flatten /@ 0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 
                            1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                            1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                            1.1155575;

                            ListPlot[data[[All, 3, 1]], data[[All, 2 ;;]]]



                            enter image description here







                            share|improve this answer
























                              up vote
                              6
                              down vote













                              How about this



                              data = Flatten /@ 0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 
                              1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                              1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                              1.1155575;

                              ListPlot[data[[All, 3, 1]], data[[All, 2 ;;]]]



                              enter image description here







                              share|improve this answer






















                                up vote
                                6
                                down vote










                                up vote
                                6
                                down vote









                                How about this



                                data = Flatten /@ 0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 
                                1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                1.1155575;

                                ListPlot[data[[All, 3, 1]], data[[All, 2 ;;]]]



                                enter image description here







                                share|improve this answer












                                How about this



                                data = Flatten /@ 0.1, 0.013070604, 1.00015, 0.6, 0.078698955, 
                                1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                1.1155575;

                                ListPlot[data[[All, 3, 1]], data[[All, 2 ;;]]]



                                enter image description here








                                share|improve this answer












                                share|improve this answer



                                share|improve this answer










                                answered 12 hours ago









                                Αλέξανδρος Ζεγγ

                                1,828721




                                1,828721




















                                    up vote
                                    2
                                    down vote













                                    Here is another way:



                                    a = 
                                    0.1, 0.013070604, 1.00015, 0.6, 0.078698955,
                                    1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                    1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                    1.1155575
                                    ;
                                    x, y, z = MapAt[Transpose, Transpose[a], 2];
                                    ListPlot[Transpose[x, z], Transpose[z, y]]


                                    enter image description here






                                    share|improve this answer
























                                      up vote
                                      2
                                      down vote













                                      Here is another way:



                                      a = 
                                      0.1, 0.013070604, 1.00015, 0.6, 0.078698955,
                                      1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                      1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                      1.1155575
                                      ;
                                      x, y, z = MapAt[Transpose, Transpose[a], 2];
                                      ListPlot[Transpose[x, z], Transpose[z, y]]


                                      enter image description here






                                      share|improve this answer






















                                        up vote
                                        2
                                        down vote










                                        up vote
                                        2
                                        down vote









                                        Here is another way:



                                        a = 
                                        0.1, 0.013070604, 1.00015, 0.6, 0.078698955,
                                        1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                        1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                        1.1155575
                                        ;
                                        x, y, z = MapAt[Transpose, Transpose[a], 2];
                                        ListPlot[Transpose[x, z], Transpose[z, y]]


                                        enter image description here






                                        share|improve this answer












                                        Here is another way:



                                        a = 
                                        0.1, 0.013070604, 1.00015, 0.6, 0.078698955,
                                        1.0054247, 1.1, 0.14552025, 1.0184426, 1.6, 0.21458577,
                                        1.0398293, 2.1, 0.28706229, 1.0712175, 2.6, 0.3643249,
                                        1.1155575
                                        ;
                                        x, y, z = MapAt[Transpose, Transpose[a], 2];
                                        ListPlot[Transpose[x, z], Transpose[z, y]]


                                        enter image description here







                                        share|improve this answer












                                        share|improve this answer



                                        share|improve this answer










                                        answered 10 hours ago









                                        Henrik Schumacher

                                        38.4k253114




                                        38.4k253114




















                                            up vote
                                            2
                                            down vote













                                            Yet another way:



                                            data2 = Flatten /@ data;
                                            yz, xz = data2[[All, 2, 3]], data2[[All, 1, 3]] ;

                                            ListPlot[yz , xz,
                                            PlotStyle -> Red, Blue,
                                            PlotLegends -> "y Vs z", "x Vs z" ,
                                            PlotRange -> .8, 1.2,
                                            AxesOrigin -> 0, .8,
                                            AxesLabel -> Column[Style[#, 16] & /@ "x", "y"], Style[ "z", 16]] 


                                            enter image description here



                                            ListPlot[-#[[1]], #[[2]] & /@ yz , xz, 
                                             PlotStyle -> Red, Blue,
                                             PlotLegends -> "y Vs z", "x Vs z" ,
                                             PlotRange -> -3, 3, .8, 1.2,
                                             AxesOrigin -> 0, .8,
                                             AxesLabel -> None, Style[ "z", 16],
                                             Epilog -> Text[Style["y", 16], Offset[-15, 0, Scaled@0, 0] ],
                                            Text[Style["x", 16], Offset[15, 0, Scaled@1, 0]],
                                             PlotRangeClipping -> False,
                                             ImagePadding -> Scaled[.05],
                                             ImageSize -> 600,
                                            Ticks -> Join[Charting`FindTicks[3, 0, -3, 0][-3, 0],
                                            Charting`FindTicks[0, 1, 0, 1][0, 3] ], Automatic]


                                            enter image description here






                                            share|improve this answer


























                                              up vote
                                              2
                                              down vote













                                              Yet another way:



                                              data2 = Flatten /@ data;
                                              yz, xz = data2[[All, 2, 3]], data2[[All, 1, 3]] ;

                                              ListPlot[yz , xz,
                                              PlotStyle -> Red, Blue,
                                              PlotLegends -> "y Vs z", "x Vs z" ,
                                              PlotRange -> .8, 1.2,
                                              AxesOrigin -> 0, .8,
                                              AxesLabel -> Column[Style[#, 16] & /@ "x", "y"], Style[ "z", 16]] 


                                              enter image description here



                                              ListPlot[-#[[1]], #[[2]] & /@ yz , xz, 
                                               PlotStyle -> Red, Blue,
                                               PlotLegends -> "y Vs z", "x Vs z" ,
                                               PlotRange -> -3, 3, .8, 1.2,
                                               AxesOrigin -> 0, .8,
                                               AxesLabel -> None, Style[ "z", 16],
                                               Epilog -> Text[Style["y", 16], Offset[-15, 0, Scaled@0, 0] ],
                                              Text[Style["x", 16], Offset[15, 0, Scaled@1, 0]],
                                               PlotRangeClipping -> False,
                                               ImagePadding -> Scaled[.05],
                                               ImageSize -> 600,
                                              Ticks -> Join[Charting`FindTicks[3, 0, -3, 0][-3, 0],
                                              Charting`FindTicks[0, 1, 0, 1][0, 3] ], Automatic]


                                              enter image description here






                                              share|improve this answer
























                                                up vote
                                                2
                                                down vote










                                                up vote
                                                2
                                                down vote









                                                Yet another way:



                                                data2 = Flatten /@ data;
                                                yz, xz = data2[[All, 2, 3]], data2[[All, 1, 3]] ;

                                                ListPlot[yz , xz,
                                                PlotStyle -> Red, Blue,
                                                PlotLegends -> "y Vs z", "x Vs z" ,
                                                PlotRange -> .8, 1.2,
                                                AxesOrigin -> 0, .8,
                                                AxesLabel -> Column[Style[#, 16] & /@ "x", "y"], Style[ "z", 16]] 


                                                enter image description here



                                                ListPlot[-#[[1]], #[[2]] & /@ yz , xz, 
                                                 PlotStyle -> Red, Blue,
                                                 PlotLegends -> "y Vs z", "x Vs z" ,
                                                 PlotRange -> -3, 3, .8, 1.2,
                                                 AxesOrigin -> 0, .8,
                                                 AxesLabel -> None, Style[ "z", 16],
                                                 Epilog -> Text[Style["y", 16], Offset[-15, 0, Scaled@0, 0] ],
                                                Text[Style["x", 16], Offset[15, 0, Scaled@1, 0]],
                                                 PlotRangeClipping -> False,
                                                 ImagePadding -> Scaled[.05],
                                                 ImageSize -> 600,
                                                Ticks -> Join[Charting`FindTicks[3, 0, -3, 0][-3, 0],
                                                Charting`FindTicks[0, 1, 0, 1][0, 3] ], Automatic]


                                                enter image description here






                                                share|improve this answer














                                                Yet another way:



                                                data2 = Flatten /@ data;
                                                yz, xz = data2[[All, 2, 3]], data2[[All, 1, 3]] ;

                                                ListPlot[yz , xz,
                                                PlotStyle -> Red, Blue,
                                                PlotLegends -> "y Vs z", "x Vs z" ,
                                                PlotRange -> .8, 1.2,
                                                AxesOrigin -> 0, .8,
                                                AxesLabel -> Column[Style[#, 16] & /@ "x", "y"], Style[ "z", 16]] 


                                                enter image description here



                                                ListPlot[-#[[1]], #[[2]] & /@ yz , xz, 
                                                 PlotStyle -> Red, Blue,
                                                 PlotLegends -> "y Vs z", "x Vs z" ,
                                                 PlotRange -> -3, 3, .8, 1.2,
                                                 AxesOrigin -> 0, .8,
                                                 AxesLabel -> None, Style[ "z", 16],
                                                 Epilog -> Text[Style["y", 16], Offset[-15, 0, Scaled@0, 0] ],
                                                Text[Style["x", 16], Offset[15, 0, Scaled@1, 0]],
                                                 PlotRangeClipping -> False,
                                                 ImagePadding -> Scaled[.05],
                                                 ImageSize -> 600,
                                                Ticks -> Join[Charting`FindTicks[3, 0, -3, 0][-3, 0],
                                                Charting`FindTicks[0, 1, 0, 1][0, 3] ], Automatic]


                                                enter image description here







                                                share|improve this answer














                                                share|improve this answer



                                                share|improve this answer








                                                edited 2 hours ago

























                                                answered 3 hours ago









                                                kglr

                                                160k8184384




                                                160k8184384




















                                                    up vote
                                                    1
                                                    down vote













                                                    Another way



                                                    data=0.1,0.013070604,1.00015,0.6,0.078698955,1.0054247,
                                                    1.1,0.14552025,1.0184426,1.6,0.21458577,1.0398293,
                                                    2.1,0.28706229,1.0712175,2.6,0.3643249,1.1155575
                                                    x,y,z=#[[;;,1]],#[[;;,2,1]],#[[;;,2,2]]&@data
                                                    ListPlot[MapThread[List,#]&/@z,x,y,z]


                                                    enter image description here






                                                    share|improve this answer
























                                                      up vote
                                                      1
                                                      down vote













                                                      Another way



                                                      data=0.1,0.013070604,1.00015,0.6,0.078698955,1.0054247,
                                                      1.1,0.14552025,1.0184426,1.6,0.21458577,1.0398293,
                                                      2.1,0.28706229,1.0712175,2.6,0.3643249,1.1155575
                                                      x,y,z=#[[;;,1]],#[[;;,2,1]],#[[;;,2,2]]&@data
                                                      ListPlot[MapThread[List,#]&/@z,x,y,z]


                                                      enter image description here






                                                      share|improve this answer






















                                                        up vote
                                                        1
                                                        down vote










                                                        up vote
                                                        1
                                                        down vote









                                                        Another way



                                                        data=0.1,0.013070604,1.00015,0.6,0.078698955,1.0054247,
                                                        1.1,0.14552025,1.0184426,1.6,0.21458577,1.0398293,
                                                        2.1,0.28706229,1.0712175,2.6,0.3643249,1.1155575
                                                        x,y,z=#[[;;,1]],#[[;;,2,1]],#[[;;,2,2]]&@data
                                                        ListPlot[MapThread[List,#]&/@z,x,y,z]


                                                        enter image description here






                                                        share|improve this answer












                                                        Another way



                                                        data=0.1,0.013070604,1.00015,0.6,0.078698955,1.0054247,
                                                        1.1,0.14552025,1.0184426,1.6,0.21458577,1.0398293,
                                                        2.1,0.28706229,1.0712175,2.6,0.3643249,1.1155575
                                                        x,y,z=#[[;;,1]],#[[;;,2,1]],#[[;;,2,2]]&@data
                                                        ListPlot[MapThread[List,#]&/@z,x,y,z]


                                                        enter image description here







                                                        share|improve this answer












                                                        share|improve this answer



                                                        share|improve this answer










                                                        answered 10 hours ago









                                                        That Gravity Guy

                                                        54637




                                                        54637



























                                                             

                                                            draft saved


                                                            draft discarded















































                                                             


                                                            draft saved


                                                            draft discarded














                                                            StackExchange.ready(
                                                            function ()
                                                            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f182046%2fplot-list-with-structure-of-each-item-x-y-z%23new-answer', 'question_page');

                                                            );

                                                            Post as a guest













































































                                                            Comments

                                                            Popular posts from this blog

                                                            Long meetings (6-7 hours a day): Being “babysat” by supervisor

                                                            What does second last employer means? [closed]

                                                            One-line joke