有一个数据框，x
           weekly.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
我输入
colnames(data)[1] <- 'date'
它变成了
                     date
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        weekly.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
请问，如何操作？

colnames(data)[1] <- 'date'
colnames(data)[1] <- 'weekly.returns'
或者colnames(data)[1] <- 'date     weekly.returns'

试试

colnames(data)[1] <- 'date'
colnames(data)[2] <- 'weekly.returns'
或者colnames(data)[1] <- 'date     weekly.returns'

试试

不行，
colnames(sci)[1] <- 'date'
变成了，
> sci
                    date
2010-01-04 -0.0159333272
2010-01-11 -0.0150428685
2010-01-18  0.0053502965
2010-01-25 -0.0493247026
2010-02-01 -0.0526741206
输入
colnames(sci)[2] <- 'date'
错误于`colnames<-`(`*tmp*`, value = c("date", "date")) :
  'names'属性的长度[2]必需和矢量的长度[1]一样
系统将第一列（时间列）作为序号列了。

> sci
                     weekly.returns
2010-01-04 -0.0159333272
2010-01-11 -0.0150428685
2010-01-18  0.0053502965
2010-01-25 -0.0493247026
2010-02-01 -0.0526741206
系统将第一列作为序号了，我想将第一列作为date列，变成下面的样子
      date     weekly.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