data={{{0, 1}, {0.0582215, 2}, {0.597255, 3}, {1.17158, 4}}, {{1.17158,
   4}, {1.36478, 5}, {1.424, 6}, {1.4586, 7}}, {{1.4586, 7}, {1.73938,
    8}, {1.88332, 9}, {2.03753, 10}}, {{2.03753, 10}, {2.17872,
   11}, {2.46005, 12}, {2.71547, 13}}, {{2.71547, 13}, {3.16095,
   14}, {3.30726, 15}, {3.5329, 16}}, {{3.5329, 16}, {3.63022,
   17}, {4.34524, 18}, {5.20954, 19}}};
ListLinePlot[data, Frame -> True, PlotTheme -> "Detailed",
 ImageSize -> 600, InterpolationOrder -> 0]

ListStepPlot[data, Frame -> True, PlotTheme -> "Detailed",
 ImageSize -> 600]

data1={{{0, 1}, {0.139219, 2}, {0.607566, 3}, {1.18343, 4}}, {{1.18343,
   4}, {1.22964, 5}, {2.01722, 6}, {2.62576, 7}}, {{2.62576,
   7}, {3.69976, 8}, {3.90317, 9}, {4.49939, 10}}, {{4.49939,
   10}, {4.83385, 11}, {4.92839, 12}, {5.3667, 13}}, {{5.3667,
   13}, {5.37191, 14}, {5.75267, 15}, {5.86257, 16}}, {{5.86257,
   16}, {6.49011, 17}, {6.56514, 18}, {6.73022, 19}}};

ListStepPlot[data, Right,
  Frame -> True, PlotTheme -> "Detailed", Mesh -> Full]

ListStepPlot[data, Center,
 Frame -> True, PlotTheme -> "Detailed", Mesh -> Full]

ListStepPlot[data, Left,
  Frame -> True, PlotTheme -> "Detailed", Mesh -> Full]

ListLinePlot[data,
  Frame -> True, PlotTheme -> "Detailed", InterpolationOrder -> 0, Mesh -> Full]

data = {{{1, 2}, {2, 3}}, {{3, 4}, {4, 5}}};
left = ListStepPlot[data, Left, Mesh -> Full, Frame -> True,
   PlotTheme -> "Detailed", ImageSize -> 600];
center = ListStepPlot[data, Center, Mesh -> Full, Frame -> True,
   PlotTheme -> "Detailed", ImageSize -> 600];
right = ListStepPlot[data, Right, Mesh -> Full, Frame -> True,
   PlotTheme -> "Detailed", ImageSize -> 600];
Row[{left, center, right}]