Generate a list of points based on the y coordinate

Question

I have a list of numbers corresponding to the known ordinates of some points:

x = {60, 101, 61, 203, 248, 346, 464,
     635, 635, 958, 1019, 1020, 1182, 
     1276, 1397, 1607, 1710, 1869, 1975}

How can I generate a new list of points based on that one by adding an index, such as

P = {{1, 60}, {2, 101}, {3, 61}, ....}

{Range[Length@x], x}\[Transpose] – Rasoul-Ghadimi Jun 20 '20 at 10:15 — Rasoul-Ghadimi, Jun 20 '20 at 10:15

Artes · Accepted Answer · 2020-06-20T14:37:57.760

7

This is most likely the most efficient approach:

Transpose[{Range[Length[x]], x}]

 {{1, 60}, {2, 101}, {3, 61}, {4, 203}, {5, 248}, {6, 346}, {7, 464}, {8, 635}, 
  {9, 635}, {10, 958}, {11, 1019}, {12, 1020}, {13, 1182}, {14, 1276}, {15, 1397}, 
  {16, 1607}, {17, 1710}, {18, 1869}, {19, 1975}}

Another approach (less efficient), that one could mention:

MapIndexed[ Flatten @ {#2, #1} &, x]

In a more general case instead of a strictly homogeneous distribution of the domain points we might deal with a random distribution which is still globally homogeneous, e.g.

y = RandomReal[{-1/2, 1/2}, #] + Range[#] & @ Length[x]

{ 1.01273, 1.6359, 3.38264, 4.08369, 5.05749, 6.12815, 7.35125, 7.93196, 
  8.97418, 10.2015, 10.824, 12.0907, 13.2303, 14.3775, 15.2711, 16.3996,
 17.3865, 17.7342, 19.4849}

and then we generate the list simply with:

Transpose[{y, x}]

edited Jun 20 '20 at 14:37

answered Jun 20 '20 at 10:14

Artes

57,212
12
157
245

How to load the abscissa from another list? – Mertin Jun 20 '20 at 10:30
There is no abscissa, you have to generate it with Range, yielding {1,2, ..., 19} – Artes Jun 20 '20 at 10:32
@Mertin You can get it with MapIndexed as well as I demonstrated in the post. – Artes Jun 20 '20 at 10:38
1

Also, Thread[{Range[Length[x]], x}] – Bob Hanlon Jun 20 '20 at 15:02
@BobHanlon, Good point, thanks! Although Transpose should be much faster than Thread, see e.g. Interlacing a single number into a long list where it is compared with Map and Tuples. – Artes Jun 20 '20 at 19:41

score 5 · Answer 2 · answered Jun 20 '20 at 15:01

5

If you really want to have an easy solution:

ResourceFunction["AddIndices"][x]

answered Jun 20 '20 at 15:01

SHuisman

3,258
8
12

score 1 · Answer 3 · answered Jun 21 '20 at 13:34

1

P=Table[{k,x[[k]]},{k,1,Length[x]}]

answered Jun 21 '20 at 13:34

ZeroTheHero

401
3
11

score 1 · Answer 4 · answered Jun 21 '20 at 14:31

For variety:

TimeSeries[x, {1}]["Path"]

{{1, 60}, {2, 101}, {3, 61}, {4, 203}, {5, 248}, {6, 346}, {7, 464}, 
 {8, 635}, {9, 635}, {10, 958}, {11, 1019}, {12, 1020}, {13, 1182}, 
 {14, 1276}, {15, 1397}, {16, 1607}, {17, 1710}, {18, 1869}, {19, 1975}}

TemporalData[x, {1}]["Path"]

{{1, 60}, {2, 101}, {3, 61}, {4, 203}, {5, 248}, {6, 346}, {7, 464}, 
 {8, 635}, {9, 635}, {10, 958}, {11, 1019}, {12, 1020}, {13, 1182}, 
 {14, 1276}, {15, 1397}, {16, 1607}, {17, 1710}, {18, 1869}, {19, 1975}}

Generate a list of points based on the y coordinate

4 Answers4