# Combine points in 3D space by ListPointPlot3D

I have a array and I want to plot it in 3d space by ListPointPlot3D function.

list = {{1, 2, 3, 4, 5}, {2, 2, 2, 2, 2}};
ListPointPlot3D[list]


The result is as following

But I want to the two points lines combined.

If I plot in 2d space, it works well by ListPlot, but I don't know how to solve it in 3D space.

Add the x and y coordinates:

list = {{1, 2, 3, 4, 5}, {2, 2,    2, 2, 2}};
list2 = Thread[{1, Range @ Length @ #, #}] & /@ list;
ListPointPlot3D[list2, BaseStyle -> PointSize[Large]]


Same color:

ListPointPlot3D /@ List /@ list // Show


Using Iterator in the "GeneralUtilities" package to advance through the colors:

Needs@"GeneralUtilities";
cyclicListIterator[input_List] :=
GeneralUtilitiesNewIterator[cyclicListIterator,
{i = 0, n = Length[input], list = input}, list[[Mod[++i, n, 1]]]]

colors = "DefaultPlotStyle" /. (Method /.
ChartingResolvePlotTheme[Automatic, ListPointPlot3D]) //
cyclicListIterator;
ListPointPlot3D[{#}, PlotStyle -> Read[colors]] & /@ list // Show


Note: The Iterator[] for the colors needs to be reset after each use. One could use With[{colors = ...}, ListPointPlot3D...].

The same thing but with old-style MapThread:

colors = "DefaultPlotStyle" /. (Method /.
ChartingResolvePlotTheme[Automatic, ListPointPlot3D]);
`