Plotting 2D Data

First, we ca nimport the data (data file not currently available).

SetDirectory[
        ToFileName[("FileName" /. 
                NotebookInformation[
                  EvaluationNotebook[]])[[1]]]];

data = Import["ADJECL.TXT", "Table"];

Now, we extract the time and value of the magnitude measurements.

newdata = 
        Transpose[{Take[
                Transpose[Take[data, {2, -1}]], {1}][[1]], Take[
                Transpose[
                  Take[data, {2, -1}]], {5}][[1]]}];

Here, we plot only the data points.

ptgr = 
      ListPlot[newdata, Frame -> {True, True, False, False}, 
        ImageSize -> 600, AxesOrigin -> {0, 0}, 
        TextStyle -> {FontFamily -> "Arial", 
            FontWeight -> "Bold"}, 
        FrameLabel -> {"Julian Date", "Differential Magnitude"}, 
        PlotStyle -> {Orange, PointSize[ .01]}]

Next, we do a line plot.

lngr = 
      ListPlot[newdata, Frame -> {True, True, False, False}, 
        ImageSize -> 600, AxesOrigin -> {0, 0}, 
        TextStyle -> {FontFamily -> "Arial", 
            FontWeight -> "Bold"}, 
        FrameLabel -> {"Julian Date", "Differential Magnitude"}, 
        PlotJoined -> True, 
        PlotStyle -> {RGBColor[ .7,  .7,  .7], 
            Thickness[ .0035]}]

Now, we combine the two graphs.

gr = 
      Show[ptgr, lngr, 
        PlotLabel -> 
          DisplayForm[
            GridBox[{{StyleForm["Adjacent Eclipses", 
                    FontSize -> 
                      18]}, {StyleForm["3.8 Hour Orbital Period", 
                    FontColor -> Gray]}}]]]