12

我在 R 中有一个如下所示的对象： 

                 returns   
2010-1-4    -0.015933327              
2010-1-11   -0.015042868    
2010-1-18    0.005350297  
2010-1-25   -0.049324703    
2010-2-1    -0.052674121

我想把它变成：

        date       returns             
1 2010-01-04 -0.0159333272          
2 2010-01-11 -0.0150428685        
3 2010-01-18  0.0053502965        
4 2010-01-25 -0.0493247026       
5 2010-02-01 -0.0526741206

我怎样才能做到这一点？

4

3 回答 3

22

根据您的数据集创建一个新列rownames：

# Read in your example data
DF = read.table(header=TRUE, text=" returns
2010-1-4 -0.015933327
2010-1-11 -0.015042868
2010-1-18 0.005350297
2010-1-25 -0.049324703
2010-2-1 -0.052674121")
DF
#                returns
# 2010-1-4  -0.015933327
# 2010-1-11 -0.015042868
# 2010-1-18  0.005350297
# 2010-1-25 -0.049324703
# 2010-2-1  -0.052674121

# Create a `date` variable
DF$date = rownames(DF)
# Reset the `rownames` of your original data
rownames(DF) = NULL
# Format the `date` variable properly
DF$date = strptime(DF$date, "%Y-%m-%d")
DF
#        returns       date
# 1 -0.015933327 2010-01-04
# 2 -0.015042868 2010-01-11
# 3  0.005350297 2010-01-18
# 4 -0.049324703 2010-01-25
# 5 -0.052674121 2010-02-01
于 2012-07-11T07:22:13.610 回答
2

很模糊的问题。但是例如，您可以使用重命名列

colnames(data) <- c('date','returns')

如果您需要带有顺序编号的第一列，请尝试以下操作：

data <- cbind(1:nrow(data), data)

如果您只需要行号：

row.names(data) <- 1:nrow(data)
于 2012-07-11T07:25:43.830 回答
0

你可以简单地这样做：

date <- t(as.data.frame(strsplit(as.character(weekly.returns),split=" ")))[,1]
returns <- t(as.data.frame(strsplit(as.character(weekly.returns),split=" ")))[,2]

data.frame(date,returns,row.names=NULL) 它会给你这个：

        date     returns
1 2010-01-08 -0.07830343
2 2010-01-15 -0.05176991
3 2010-01-22  0.07699487
4 2010-01-29 -0.05979203
5 2010-02-01 -0.02119816
于 2012-07-11T10:06:03.953 回答