Re: How to specify x-axis in List when using ListPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg127874] Re: How to specify x-axis in List when using ListPlot*From*: "Dr. Wolfgang Hintze" <weh at snafu.de>*Date*: Wed, 29 Aug 2012 01:12:04 -0400 (EDT)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <k1i0rg$4p2$1@smc.vnet.net>

On 28 Aug., 10:53, Jack Heanult <john.h.hay... at gmail.com> wrote: > I have imported a csv file into a list with this stmt: > > data1 = Take[Import["D:\_reports\optim_5_60_b_2.csv", "CSV"], 5] > > Which gives: > > {{1, 8, 9, 1}, {2, 2, 8, 1}, {3, 8, 9, 2}, {4, 3, 7.5, 2}, {5, 3, 7.5, 1}} > > I would like to create a plot where the x-axis is based on the first field: > > 1,2,3,4,5 > > And the plot creates a line for each subsequent field, so the 2nd fields are: > > 8,2,8,3,3 and this would be plotted as a line. > > This would be the first line on the y-axis, the other y-axis values would be plotted in the same manner. I would like the first y-plot to be plotted in red, and the second in blue, and the third in green with chart labels. > > Just to get it to plot I have tried: > tobeplotted = With[{LocalX = data1[[All, 1]]}, > Transpose[{LocalX, #}] & /@ Transpose[data1[[All, 2 ;;]]]] > > ListPlot[tobeplotted, PlotStyle -> {Red, Blue, Green}, PlotMarkers -> {Automatic, 10}] > > But the resulting plot is not what I want. > > The first column in the csv file is the 'test number' (1) the 2nd(8), 3rd (9), are the test variables, and the 4th(1) column is the result. I would like to see how the test results vary as the variables change. Perhaps ListPlot is not what I want, it was my thought just to see something similar to what I can do in a Excel graph. > > Any help is most appreciated. Maybe I misunderstood something, but what's wrong with these very simple commands, which create a colored graph of you data? In[1]:= t = {{1, 8, 9, 1}, {2, 2, 8, 1}, {3, 8, 9, 2}, {4, 3, 7.5, 2}, {5, 3, 7.5, 1}} Out[1]= {{1, 8, 9, 1}, {2, 2, 8, 1}, {3, 8, 9, 2}, {4, 3, 7.5, 2}, {5, 3, 7.5, 1}} In[4]:= tt = Transpose[t] Out[4]= {{1, 2, 3, 4, 5}, {8, 2, 8, 3, 3}, {9, 8, 9, 7.5, 7.5}, {1, 1, 2, 2, 1}} In[6]:= ListPlot[Drop[tt, 1], PlotJoined -> True] Best regards, Wolfgang