1
$\begingroup$

It should be a boring question to ask for someone, but this is very basic need which I haven't resolved by myself. I know I can use MapThread and pure function to make it short and beautiful, but even though I tried, I haven't been successful yet.

Here is the code. Basically, I'd like to get data and plot them. How would you write it in a efficient and elegant way? Any help will be very appreciable. So, I can keep learning.

data = {{"Anneal Temp", "L/L0", "L/L0", "L/L0", "L/L0", 
    "L/L0"}, {"C\\+(o)", "%", "%", "%", "%", "%"}, {"Anneal Temp", 
    "25C", "40C", "50C", "60C", "25C_HP"}, {25.`, 100.`, 100.`, 100.`,
     100.`, 100.`}, {400.`, 94.10705`, 96.7285`, 96.58404`, 96.79382`,
     97.32171`}, {600.`, 92.67395`, 95.23963`, 94.87605`, 95.48717`, 
    92.52326`}, {800.`, 82.6344`, 86.78122`, 87.94923`, 89.8549`, 
    85.86822`}, {1000.`, 55.62473`, 61.00761`, 61.45969`, 63.37078`, 
    65.06202`}};

x = data[[4 ;;, 1]];
y1 = data[[4 ;;, 2]];
y2 = data[[4 ;;, 3]];
y3 = data[[4 ;;, 4]];
y4 = data[[4 ;;, 5]];
y5 = data[[4 ;;, 6]];

p1 = Thread[{x, y1}];
p2 = Thread[{x, y2}];
p3 = Thread[{x, y3}];
p4 = Thread[{x, y4}];
p5 = Thread[{x, y5}];

ListLinePlot[{p1, p2, p3, p4, p5}]

enter image description here

$\endgroup$

2 Answers 2

3
$\begingroup$
ListLinePlot@Inner[List, data[[4 ;;, 1]], data[[4 ;;, 2 ;;]], List]

Mathematica graphics

$\endgroup$
1
  • $\begingroup$ Hi Dr. Belisarius, this is what I was looking for. Something short and simple. I need to study through. Thank you so much for your help. $\endgroup$
    – SungwooY
    Feb 25, 2016 at 18:55
1
$\begingroup$
data = {{"Anneal Temp", "L/L0", "L/L0", "L/L0", "L/L0", 
    "L/L0"}, {"C\\+(o)", "%", "%", "%", "%", "%"}, {"Anneal Temp", 
    "25C", "40C", "50C", "60C", "25C_HP"}, {25.`, 100.`, 100.`, 100.`,
     100.`, 100.`}, {400.`, 94.10705`, 96.7285`, 96.58404`, 96.79382`,
     97.32171`}, {600.`, 92.67395`, 95.23963`, 94.87605`, 95.48717`, 
    92.52326`}, {800.`, 82.6344`, 86.78122`, 87.94923`, 89.8549`, 
    85.86822`}, {1000.`, 55.62473`, 61.00761`, 61.45969`, 63.37078`, 
    65.06202`}};

ListLinePlot[
 data[[4 ;;, {1, #}]] & /@ Range[2, 6],
 Frame -> True,
 Axes -> False,
 PlotLegends -> Rest@data[[3]],
 FrameLabel ->
  (Style[#, 14] & /@
    {data[[1, 1]], 
     data[[1, 2]] <> " " <> data[[2, 2]]})]

enter image description here

$\endgroup$
1
  • $\begingroup$ Hi Bob, Thank you for much for your help. Your response is really useful for me. I appreciate it. $\endgroup$
    – SungwooY
    Feb 25, 2016 at 18:55

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.