Question

我创建了这个随机时间序列：

MM=1584
Z0<-rnorm(MM,8,1.0)#;ts.plot(Z0) 

s_1=1.50; p_1=121; p_2=240
s_2=1.25; p_3=361; p_4=480
s_3=1.10; p_5=601; p_6=720
s_4=1.50; p_7=960; p_8=1020
s_5=1.25; p_9=1140; p_10=1320
s_6=1.50; p_11=1369; p_12=1440

a=(Z0[1:p_1-1])
b=(s_1+Z0[p_1:p_2])
c=(Z0[(p_2+1):(p_3-1)])
d=(s_2+Z0[p_3:p_4])
e=(Z0[(p_4+1):(p_5-1)])
f=(s_2+Z0[p_5:p_6])
g=(Z0[(p_6+1):(p_7-1)])
h=(s_3+Z0[p_7:p_8])
i=(Z0[(p_8+1):(p_9-1)])
l=(s_4+Z0[p_9:p_10])
m=(Z0[(p_10+1):(p_11-1)])
n=(s_5+Z0[p_11:p_12])
o=Z0[(p_12+1):MM]


Z=c(a,b,c,d,e,f,g,h,i,l,m,n,o);ts.plot(Z)
abline(v=p_1,col="red");abline(v=p_2,col="red");abline(v=p_3,col="red")
abline(v=p_4,col="red");abline(v=p_5,col="red");abline(v=p_6,col="red")
abline(v=p_7,col="red");abline(v=p_8,col="red");abline(v=p_9,col="red")
abline(v=p_10,col="red");abline(v=p_11,col="red");abline(v=p_12,col="red")

Zm=as.data.frame(Z)
write.csv2(Zm, file="C:/Users/Luca/Dekstop/Zm/Zm1.csv")

我想重复这些命令来创建100个系列，并用write.cs2（...... Zm“......”。csv）保存这些命令。

我不想更改文件名并手动重复命令我在其他问题中搜索了一些有用的东西，但我找不到它。

循环必须仅为每个循环更改数据框的名称（Zm）和文件名。

我想重复100次创建Z0（Z01，Z02，Z03 ... Z0100），然后Z（Z1，Z2，... Z100），因此Zm（Zm1，Zm2，Zm3 ... Zm100）并将它们保存在具有新文件名的文件夹中（文件夹/ Zm1，Zm2，Zm3等...）所有1个命令都带有循环。

Answer 1

我不确定您为什么要更改数据框的名称，但动态更改文件名称非常简单。

for (i in 1:100) { ... write.csv2(Zm, file=paste("C:/Users/Luca/Dekstop/Zm/Zm", i, ".csv", sep = "")) }

如果您想保留创建的数据框，为什么不只是简单地使用列表？

For R in R，all in 1命令

1 个答案: