如何在R数据框中添加每列的平方列?