r - How to add title to column of the xts time series -

i want download stock details using quantmod , have saved files using write.csv:

write.csv(df,file="aapl.csv") 

the problem there no header date in csv file.

           aapl.open aapl.high aapl.low aapl.close aapl.volume aapl.adjusted 2014-10-01    100.59    100.69    98.70      99.18    51491300      97.09741 2014-10-02     99.27    100.22    98.04      99.90    47757800      97.80230 2014-10-03     99.44    100.21    99.04      99.62    43469600      97.52818 2014-10-06     99.95    100.65    99.42      99.62    37051200      97.52818 2014-10-07     99.43    100.12    98.73      98.75    42094200      96.67644 2014-10-08     98.76    101.11    98.31     100.80    57404700      98.68340 2014-10-09    101.54    102.38   100.61     101.02    77376500      98.89877 

i want this

  date      aapl.open aapl.high aapl.low aapl.close aapl.volume aapl.adjusted 2014-10-01    100.59    100.69    98.70      99.18    51491300      97.09741 2014-10-02     99.27    100.22    98.04      99.90    47757800      97.80230 2014-10-03     99.44    100.21    99.04      99.62    43469600      97.52818 

i tried this

colnames(df)[1] <- "date" 

but changes title of aapl.open instead.

quoting joshua ulrich, "getsymbols not return data.frame default; returns xts object. xts objects not have row names. have index attribute can access index function."

then need:

library(quantmod) getsymbols("aapl") row.names(aapl) # null aapl <- as.data.frame(aapl) aapl$date <- row.names(aapl) # move last column first position # aapl <- aapl[,c(7, 1:6)] cln <- ncol(aapl) # 7 aapl <- aapl[, c(cln, 1:(cln-1))] row.names(aapl) <- null head(aapl) #         date aapl.open aapl.high aapl.low aapl.close aapl.volume aapl.adjusted # 1 2007-01-03     86.29     86.58    81.90      83.80   309579900      11.14677 # 2 2007-01-04     84.05     85.95    83.82      85.66   211815100      11.39418 # 3 2007-01-05     85.77     86.20    84.40      85.05   208685400      11.31304 # 4 2007-01-08     85.96     86.53    85.28      85.47   199276700      11.36891 # 5 2007-01-09     86.45     92.98    85.15      92.57   837324600      12.31332 # 6 2007-01-10     94.75     97.80    93.45      97.00   738220000      12.90259