如何对R数据帧中的所有列执行shapiro测试?