如何将每次循环的结果输出？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我自定义了一个函数，代码如下：test.sum<-function(x,z){y<-x+z}
for(z in 1:5){
for(x in 1:z){
y<-test.sum(x,z)
a<-list(x=x,z=z,y=y}}
我想将结果输出为三列，分别是x，z，y。可是结果至显示最后一次循环的结果。求问各位大神，代码应该怎样修改？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：结果输出 test Sum Est 自定义 如何

你这种写法是C语言风格的。R语言风格是写成向量函数形式：
sapply(X=1:5,FUN=function(x) sapply(X=1:x,FUN=function(z) list(x=x,z=z,y=x+z)))
利用向量函数的返回值是整体返回的特点。

nuomin 发表于 2016-12-7 10:01
你这种写法是C语言风格的。R语言风格是写成向量函数形式：
sapply(X=1:5,FUN=function(x) sapply(X=1:x,FU ...

这样会输出好几个矩阵。不能输出为列表形式或数据框形式吗？因为我想对y的部分结果进行累加求和。

我也想知道

1. #
   
2. ta <- data.frame(x = 1:5)
   
3. tb <- data.frame(z = 1:5)
   
4. sqldf("SELECT x, z, x + z AS y
   
5.       FROM ta CROSS JOIN tb
   
6.       WHERE x <= z")
   
7. #
   
8. dta <- data.frame(x = rep(1:5, each = 5), z = rep(1:5, times = 5))
   
9. dta$y <- dta$x + dta$z
   
10. dta[dta$x <= dta$z, ]

复制代码

还有一种看起来“高大上”点的方法

1. #
   
2. map(1:5, function(x) {
   
3.   z <- 1:x
   
4.   y <- x + z
   
5.   data.frame(x, y, z)
   
6. }) %>% reduce(rbind)

复制代码