Ok, I was asked to make them black now haha, sorry about that. Also, if you could tell me how to make the lines a bit thicker, I would appreciate it very much (I used the second method).

One way is like this:

startingPlot = 
  Plot[{0, 1.0812, 2.1096, 2.8883, 3.2302, 4.8815, 5.3394, 5.4031, 
    5.2447}, {x, 1, 2}];
Graphics[GeometricTransformation[First@startingPlot, 
  ShearingTransform[.1Pi, {1, 0}, {0, 1}]], Frame -> True]

A different approach, with different domains for the plots:

values = {0, 1.0812, 2.1096, 2.8883, 3.2302, 4.8815, 5.3394, 5.4031, 
   5.2447};
Show[Table[Plot[values[[n]], {x, n - 1, n}], {n, Length[values]}], 
 PlotRange -> All]

Yet another, using ListPlot:

values = {0, 1.0812, 2.1096, 2.8883, 3.2302, 4.8815, 5.3394, 5.4031, 
   5.2447};
ListPlot[values, PlotMarkers -> "\[LongDash]"]

Do you need the lines to be of some particular colors?

One way is to apply a ShearingTransform to your plot

Graphics[GeometricTransformation[
  First@Plot[{0, 1.0812, 2.1096, 2.8883, 3.2302, 4.8815, 5.3394, 
     5.4031, 5.2447}, {x, 1, 1.1}], 
  ShearingTransform[Pi/3, {1, 0}, {0, 1}]]]