Probably can be simplified:
k k1 = ListLinePlot@Transpose@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
ListLinePlot[k1,
k /.Ticks -> ({Transpose[({#[[1]], Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@#[[1, 2, 1]]])], #[[1, 2, 2]]} &@
#[[1, 2, 2]]} & @ AbsoluteOptions[k AbsoluteOptions[ListLinePlot@k1, Ticks])]
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k /.Ticks->({Transpose[({#[[1]],Reverse@#[[2]],#[[3]],#[[4]]}&@ Transpose[Sort@#[[1,2,1]]])],
#[[1, 2, 2]]} & @ AbsoluteOptions[k, Ticks])
Probably can be simplified:
k1 = Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
ListLinePlot[k1,
Ticks -> ({Transpose[({#[[1]], Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@#[[1, 2, 1]]])], #[[1, 2, 2]]} &@
AbsoluteOptions[ListLinePlot@k1, Ticks])]
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k /. Ticks -> ({Transpose[({#[[1]], Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@AbsoluteOptions[k, Ticks][[1Transpose[Sort@#[[1, 2, 1]]])],
AbsoluteOptions[k, Ticks][[1 #[[1, 2, 2]]} & @ AbsoluteOptions[k, Ticks])
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k /. Ticks -> {Transpose[({#[[1]], Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@AbsoluteOptions[k, Ticks][[1, 2, 1]]])],
AbsoluteOptions[k, Ticks][[1, 2, 2]]}
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k /.Ticks->({Transpose[({#[[1]],Reverse@#[[2]],#[[3]],#[[4]]}&@ Transpose[Sort@#[[1,2,1]]])],
#[[1, 2, 2]]} & @ AbsoluteOptions[k, Ticks])
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k1 =ListLinePlot[Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data),
AbsoluteOptions[k, Ticks]
k /.
HoldPattern[Ticks -> {x__, y__}] :>
(Ticks -> {Transpose[({#[[1]], Sequence @@ Reverse /@ {#[[2]]}Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@AbsoluteOptions[k, Ticks][[1, 2, Transpose[Sort@x]1]]])], y
AbsoluteOptions[k, Ticks][[1, 2, 2]]})]
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k1 =ListLinePlot[Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data),
AbsoluteOptions[k, Ticks] /.
HoldPattern[Ticks -> {x__, y__}] :>
(Ticks -> {Transpose[({#[[1]], Sequence @@ Reverse /@ {#[[2]]}, #[[3]], #[[4]]} &@
Transpose[Sort@x])], y})]
Probably can be simplified:
k = ListLinePlot@Transpose@({Reverse[#[[1]]], #[[2]]} &@Transpose@data);
k /. Ticks -> {Transpose[({#[[1]], Reverse@#[[2]], #[[3]], #[[4]]} &@
Transpose[Sort@AbsoluteOptions[k, Ticks][[1, 2, 1]]])],
AbsoluteOptions[k, Ticks][[1, 2, 2]]}