如何将数据框中的第3,6,9······列数据（每隔三列）都除以该列的第一个数

别止爱樱桃

请问，能不能通过一个脚本将数据框中的第3,6,9······列数据（每隔三列）都除以该列的第一个数，最终结果其他列数据不变，第3,6,9······列输出计算后的结果，谢谢各位大神，附上数据的截图

淡如尘

c<-matrix(1:27,3,9)
c<-as.data.frame(c)
j<-3
while(j<ncol(c)+1){
for(i in 2:nrow(c)){
  c[i,j]<-c[i,j]/c[1,j]
}
  j<-j+3}

淡如尘

假设c是你的原始数据

别止爱樱桃

淡如尘 发表于 2017-6-5 15:30
c

不对哦，出错了，而且第一步生成矩阵的那一步好像不对

淡如尘

具体什么错误？代码贴上来看看。
生成矩阵那个只是例子，你可以直接将c赋值为你的数据框

别止爱樱桃

淡如尘 发表于 2017-6-5 16:33
具体什么错误？代码贴上来看看。
生成矩阵那个只是例子，你可以直接将c赋值为你的数据框

淡如尘

没看懂，这个错误好像不是运行我给的代码的错误，是导入数据的问题吧？

别止爱樱桃

淡如尘 发表于 2017-6-5 17:58
没看懂，这个错误好像不是运行我给的代码的错误，是导入数据的问题吧？

这个a是我的原始数据，经过另一个处理得到的a，它是数据框格式的，然后我得到a的基础上进一步处理，这样的话第一步设定数据框的过程是不是不需要呢？

别止爱樱桃

淡如尘 发表于 2017-6-5 17:58
没看懂，这个错误好像不是运行我给的代码的错误，是导入数据的问题吧？

您看一下，这是我最新运行的结果，请问是什么原因呢？

别止爱樱桃

别止爱樱桃 发表于 2017-6-6 08:50
您看一下，这是我最新运行的结果，请问是什么原因呢？

刚刚自己试着改了了一下，定义一下它是数值就可以了，谢谢你啦