Plot list with structure of each item {x, {y, z}}
This is a good place to apply patterns to re-arrange the elements of the data.
list = {{0.1, {0.013070604, 1.00015}}, {0.6, {0.078698955,1.0054247}},
{1.1, {0.14552025, 1.0184426}}, {1.6, {0.21458577,1.0398293}},
{2.1, {0.28706229, 1.0712175}}, {2.6, {0.3643249,1.1155575}}};
ListPlot[{list /. {{x_, {y_, z_}} -> {x, z}}, list /. {{x_, {y_, z_}} -> {z, y}}}]
How about this
data = Flatten /@ {{0.1, {0.013070604, 1.00015}}, {0.6, {0.078698955, 1.0054247}},
{1.1, {0.14552025, 1.0184426}}, {1.6, {0.21458577, 1.0398293}},
{2.1, {0.28706229, 1.0712175}}, {2.6, {0.3643249, 1.1155575}}};
ListPlot[{data[[All, {3, 1}]], data[[All, 2 ;;]]}]
Here is another way:
a = {
{0.1, {0.013070604, 1.00015}}, {0.6, {0.078698955,
1.0054247}}, {1.1, {0.14552025, 1.0184426}}, {1.6, {0.21458577,
1.0398293}}, {2.1, {0.28706229, 1.0712175}}, {2.6, {0.3643249,
1.1155575}}
};
{x, {y, z}} = MapAt[Transpose, Transpose[a], {2}];
ListPlot[{Transpose[{x, z}], Transpose[{z, y}]}]