Fatal编程技术网
  • r/
  • R将列的第11条到第N条记录相加到第11条记录中

R将列的第11条到第N条记录相加到第11条记录中

r

R将列的第11条到第N条记录相加到第11条记录中,r,sum,row,R,Sum,Row,问题：我有以下问题。在R中，我为变量创建摘要统计信息，并将它们从最高值到最低值排序。根据变量的不同，记录（行）的数量可以从20到100不等。为了创建所需的输出，我必须从R输出中获取前10行，然后对于第11行到第N行，我必须在Excel中求和，并将结果记录作为第11个变量添加到我的列表中。这是非常低效的，因为我必须继续在Excel和R之间进行，并且更愿意在R中进行 R代码 one = aggregate(rail11$Tons,rail11['STCC4'],sum) answer = data

问题：我有以下问题。在R中，我为变量创建摘要统计信息，并将它们从最高值到最低值排序。根据变量的不同，记录（行）的数量可以从20到100不等。为了创建所需的输出，我必须从R输出中获取前10行，然后对于第11行到第N行，我必须在Excel中求和，并将结果记录作为第11个变量添加到我的列表中。这是非常低效的，因为我必须继续在Excel和R之间进行，并且更愿意在R中进行

R代码

one = aggregate(rail11$Tons,rail11['STCC4'],sum) 
answer = data.frame(Commodity=one$STCC4, PATons=one$x) 
answer1 <- answer[order(-answer$PATons), ] # Sort it from Highest to lowest
# answer2 <- answer1[1:10,] # This line takes only the top 10 records
write.table(answer1, "testdata.csv",sep=",", row.names=FALSE)

one=合计（rail11美元吨，rail11['STCC4'，总和）
答案=data.frame（商品=一美元STCC4，帕顿=一美元x）

回答1您一次只处理一个专栏吗？似乎不是。试一试


answer2[11,] <- apply(answer1[11:dim(answer1)[1], ], 2, sum)



answer2[11]，感谢您的代码和帮助。稍微修改代码以给出正确答案。没问题。如果你告诉我我做错了什么，我可以为未来的观众更新我的答案。按照你的建议更新。谢谢

answer2[11,] <- colSums(answer1[11:dim(answer1)[1], ])