绘制R中的时间序列

Question

我是R的新手。我在这个链接dropbox中有一组每日数据。 我的代码是：

#plotting CLOSE
plot.ts(datatest$CLOSE,ylab="Close")

这是结果：

问题是xlab ，我想显示DATE变量，但它似乎显示了CLOSE变量的顺序。 我还尝试了其他命令，如ggplot ， xyplot等，但它们需要转换为data.frame ，这对我来说太难了。

关于如何在Graph中获取DATE变量的一些指导，我将不胜感激。

非常感谢。

Answer 1

试着用

dataset$DATE<-.as.POSIXct(dataset$DATE)

Answer 2

像这样的东西会这样做：

# load data:
theData = read.csv2(file = "sample.csv",header = TRUE,
                    stringsAsFactors = FALSE,sep = ",",
                    colClasses = c("character",rep("numeric",5)),dec=".")

# We want to plot a custom x-axis, so stop the default
# x-axis being drawn usign xaxt="n":
plot(theData$CLOSE,type="l",xaxt="n")

# Lets say you want to put a date label in 8 different locations:
locations = floor(seq(from=1,to=nrow(theData),by=nrow(theData)/8))

# Now draw the x-axis on your plot like this:
axis(side = 1, at = locations, labels=theData$DATE[locations],las=2)

在上面， side=1表示在底部绘制轴。 at=locations表示我们希望在我们之前创建的位置向量中给出的位置显示刻度标签。 labels=theData$DATE[locations]提供我们想要放置标签的位置的标签。 las=2表示您要旋转刻度标签。 尝试使用las=1进行不同的旋转。

但是，这些日期有点长，所以你可能想要创建这样的较小日期：

# Convert your long dates to smaller dates like YYYY-MM-DD, and stick
# the results to the end of your data frame.
theData = cbind(theData,
                "FormattedDate"=as.Date(theData$DATE,"%A, %B %e, %Y"))

# Replot and use your smaller dates. (ces.axis=0.8 makes
# the font smaller)
plot(theData$CLOSE,type="l",xaxt="n")
axis(side = 1, at = locations,
     labels=theData$FormattedDate[locations],las=1,cex.axis=0.8)

最后，您还可以使用一些不错的时间序列包来轻松创建更好的图：

install.packages("xts")
library(xts)
xtsData = xts(theData[,"OPEN"],order.by = theData[,"FormattedDate"])
plot.zoo(xtsData)
# or
plot.xts(xtsData)

Answer 3

   dataset$DATE <- as.Date(dataset$DATE, format = "%A, %B %d, %Y")

• ％A - 工作日很长
• ％B - 完整月份名称
• ％d - 两位数的日期
• ％Y - 四位数年份