我有一个包含i，j，t和value的数据框。 i和j是1到100，t是30，value列是一些随机整数。我想使用包含随机整数的100x100矩阵将其转换为30个时间间隔，然后将该数据集放入CSV文件中。但是csv文件具有100行和30,000列，我想要30套100x100矩阵。这是我所做的。
> head(Demand_frame)
i j t value
1 1 1 1
2 1 1 2
3 1 1 3
1 2 1 4
1 3 1 5
1 1 2 6
> Demand <- acast(Demand_frame, i~ j~ t) # Convert Data.frame back to array
> dim(Demand)
[1] 100 100 30
> write.csv(Demand, "Demand.csv")
当我打开Demand.csv文件时，有30,000列和100行。如何使文件输出看起来像这样？
Time 1
1 4 5
2..
3..
Time 2
6..
...
...
.
.
.
Time 30
...
...
...