1
$\begingroup$

If I have this list:

list={{100, 0.0000159219}, {90.01, 0.0000170327}, {90, 
  0.000018676}, {90.0099, 0.0000208262}, {90.0099, 
  0.0000234547}, {90.0099, 0.0000265331}, {90.0098, 
  0.000030035}, {90.0097, 0.0000339369}, {90.0096, 
  0.0000382181}, {90.0095, 0.0000428607}, {90.0095, 
  0.0000478491}, {90.0093, 0.0000531696}, {90.0092, 
  0.0000588104}, {90.0091, 0.0000647609}, {90.009, 
  0.0000710119}, {90.0088, 0.0000775548}, {90.0086, 
  0.0000843823}, {90.0085, 0.0000914875}, {90.0083, 
  0.0000988641}, {90.0081, 0.000106507}, {90.0079, 
  0.00011441}, {90.0077, 0.000122568}, {90.0075, 
  0.000130978}, {90.0072, 0.000139635}, {90.007, 
  0.000148535}, {90.0068, 0.000157674}}

which in TableForm looks as the picture below:

image

How can I plot the elements "shifting" the entire "column two" one row as to plot {90.01,0.0000159219},{90,0.0000170327},{90.0099,0.000018676}...etc. In other words, plotting the second element of column one with first element of column 2, third element of column 1 with second element of column two and so on.

Thank you in advanced,

$\endgroup$

3 Answers 3

2
$\begingroup$
shifted = Transpose[{Rest@list[[All, 1]], Most@list[[All, 2]]}];

Row[Grid[#, Dividers -> All] & /@ {list, shifted}, Spacer[10]]

enter image description here

$\endgroup$
1
  • $\begingroup$ Thank you very much kglr !!! $\endgroup$
    – John
    May 4, 2020 at 15:24
2
$\begingroup$

to plot {90.01,0.0000159219},{90,0.0000170327},{90.0099,0.000018676}...etc.

One possibility

 lis0 = Transpose@{list[[2 ;; -1, 1]], list[[1 ;; -2, 2]]};
 TableForm[lis0]

Mathematica graphics

$\endgroup$
1
  • $\begingroup$ Thank you very much Nasser ! $\endgroup$
    – John
    May 4, 2020 at 15:24
1
$\begingroup$

Using SubsetMap (new in 12.0)

Most @ SubsetMap[RotateLeft, list, {All, 1}] // TableForm

enter image description here

$\endgroup$

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.