Hi Magdy,
X and Rn are pairs of numbers, the first one seems to be an index. To plot the values of X vs. Rn
XvsRn = Transpose[{Last /@ X, Last /@ Rn}]
ListLinePlot[Callout[#, Round[#, .01], Above, LeaderSize -> 18] & /@ XvsRn
, Mesh -> All
, MeshStyle -> Directive[PointSize[Medium], Red]
, FrameLabel -> (Style[#, Black, 14] & /@ {"X", "Rn"})
, ImageSize -> 600
, PlotTheme -> "Detailed"]
To export
XvsRn // Prepend[{"X", "Rn"}] // Export["mfile.xlsx", #] &
