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

\(data1 = ReadList["J_iso_g", \ {Word, Number}]; 

    data2 = ReadList["J_iso_c", \ {Word, Number}]; 

    data = Transpose[Join[Transpose[data1], Transpose[data2]]]; \)

\(col1 = Column[data, 2]; 
col2 = Column[data, 4]; 

    Correlation[col1, col2]\)

one = Plot[x,  {x, -120, -80}]

\(two = Map[#[\([{2, 4}]\)]&, data]; 
lab = ListPlot[two]; 

    fi = Fit[two, {1, x}, x]\)\(f = Plot[fi, {x, \(-80\), \(-120\)}]; 

    three = Map[#[\([{2, 4, 1}]\)]&, data]; 
txt = TextListPlot[three]; \)

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