add regression line to pairs in r