如何找到R数据框列的平方和?