print() 函数输出问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

print() 函数输出的结果能保存到某个向量里面吗？怎么做？谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：print int 怎么做

print(x) 输出的结果不就是 x 吗

s609078902 发表于 2021-12-20 08:33
print(x) 输出的结果不就是 x 吗

谢谢，但我可能没有表达清楚我的问题：
> # calculate mean
> library(openxlsx)
> library(forecast)
> wf<-data.frame(read.xlsx("waterfall.xlsx",sheet=2))
> i<-1
> m<-NULL
> while(i<=27) {print(mean(wf[1:14,i+1],na.rm=TRUE));i<-i+1}
[1] 70
[1] 146
[1] 302.6667
[1] 324.75
[1] 233.6
[1] 322.3333
[1] 319.5714
[1] 299.125
[1] 340.6667
[1] 285.4
[1] 240.7273
[1] 336.1667
[1] 416.3333
[1] 347.5
[1] 351.3636
[1] 213.7
[1] 397.4444
[1] 308.125
[1] 289.5714
[1] 420.5
[1] 393.6
[1] 457.25
[1] 157
[1] 248.5
[1] 271
[1] 522.5
[1] 169
>
我写了上述函数并有打印输出，我的意思是这些打印输出的结果怎么保存到一个向量或数据框？
另外，本例中，如果没有 print, 为什么这个计算就无法显示循环计算的输出结果？？

> # calculate mean
> library(openxlsx)
> library(forecast)

> wf<-data.frame(read.xlsx("waterfall.xlsx",sheet=2))
> i<-1
> m<-NULL
> while(i<=27) {print(mean(wf[1:14,i+1],na.rm=TRUE));i<-i+1}
[1] 70
[1] 146
[1] 302.6667
[1] 324.75
[1] 233.6
[1] 322.3333
[1] 319.5714
[1] 299.125
[1] 340.6667
[1] 285.4
[1] 240.7273
[1] 336.1667
[1] 416.3333
[1] 347.5
[1] 351.3636
[1] 213.7
[1] 397.4444
[1] 308.125
[1] 289.5714
[1] 420.5
[1] 393.6
[1] 457.25
[1] 157
[1] 248.5
[1] 271
[1] 522.5
[1] 169
>

CMO-首席物料官 发表于 2021-12-20 09:29
谢谢，但我可能没有表达清楚我的问题：
> # calculate mean
> library(openxlsx)

直接赋值给 y 就好了

1. y <- vector("double", 27)
   
2. i <- 1
   
3. 
   
4. while(i <= 27) {
   
5.   y[i] <- mean()
   
6.   i <- i + 1
   
7. }

复制代码

s609078902 发表于 2021-12-20 16:24
直接赋值给 y 就好了

非常感谢！