用R中的循環創建時間系列

Question

我有一個關於基於循環的時間序列設置的問題。我首先加載一個數據幀：

DataR <- read.csv("XXX/R_Input_CSVs/DataR.csv", sep=";") 

我想用循環來生成DataR中每列的一個時間序列。我的時間序列應該有相應的列名：

Baugewerbe<-ts(DataR$Baugewerbe,freq=4,start=c(1991,3),end=c(2014,3)) 
Gastgewerbe<-ts(DataR$Gastgewerbe,freq=4,start=c(1991,3),end=c(2014,3)) 
Handel<-ts(DataR$Handel,freq=4,start=c(1991,3),end=c(2014,3)) 

...等等

for(i in 1:ncol(DataR)){ 
names(DataR[i])<-ts(DataR[,i],freq=4,start=c(1991,3),end=c(2014,3)) 
} 

不幸的是，沒有按代碼^ T的工作。我必須改變什麼？ 在此先感謝

Answer 1

你可以嘗試

list2env(setNames(lapply(DataR, function(x) 
    ts(x, freq=4, start=c(1991,3), end=c(2014,3)), names(DataR)), 
      envir=.GlobalEnv)