<< Statistics`MultiDescriptiveStatistics`<< Graphics`Graphics`<< Statistics`DataManipulation`<< Statistics`LinearRegression`

data = 
      ReadList["out.DC_best185xplor", 
         {Number, Word, Word, Number, Word, Word,  Number, Number,  
          Number,  Number,  Number,  Number}];

\(col1 = Column[data, 8]; 
col2 = Column[data, 9]; 

    Correlation[col1, col2]\)

one = Plot[x,  {x, -40, 40}]

\(two = Map[#[\([{8, 9}]\)]&, data]; 
lab = ListPlot[two]\)\(three = Map[#[\([{8, 9, 1}]\)]&, data]; 
txt = TextListPlot[three]\)

Show[one, lab, AspectRatio  -> 1/1.5, 
      Prolog -> AbsolutePointSize [6],   Frame -> True,  
      FrameStyle -> {Thickness [0.004]},  
      PlotRange -> {{-30, 30}, {-30, 30}},  Axes -> None,  
      TextStyle -> {FontSize -> 18,  FontFamily -> "Helvetica"}]Show[one, txt, AspectRatio  -> 1/1.5, 
      Prolog -> AbsolutePointSize [6],   Frame -> True,  
      FrameStyle -> {Thickness [0.004]},  
      PlotRange -> {{-30, 30}, {-30, 30}},  Axes -> None,  
      TextStyle -> {FontSize -> 8,  FontFamily -> "Helvetica"}]