使用 GGPLOT2 在 1 个图中绘制多个时间序列并按周或月对日期进行分组

Question

我喜欢 R，但简单的绘图让我发疯。我有 5 列数据。第一列数据的日期为“数字”格式，例如 20101101、20101102 等...我尝试从数字转换为日期，但没有成功。

我想用 col1、col2、col3 和 col4 以及 x 轴上的日期按周或月制作一个折线图。我不想每周或每月查看所有日期。你能帮忙吗？

这是我的 R 代码：

dates<-c(20101101,20101102,20101103,20101104,20101105,20101106,20101107,20101108,20101109,20101110,20101111,20101112,20101113,20101114,20101115,20101116,20101117,20101118,20101119,20101120)  <br/>
col1<-c(seq(from=1,to=20, by=1))<br/>
col2<-c(seq(from=11,to=30, by=1))<br/>
col3<-c(seq(from=21,to=40, by=1))<br/>
col4<-c(seq(from=31,to=50, by=1))<br/>
data<-cbind(dates, col1, col2, col3, col4)<br/>
class(dates)<br/>
data  #This is what my data looks like. NOTE: the "dates" field is type numeric so I TRY convert it below<br/><br/>

data[,1]<-as.Date(as.character(data[,1]), format("%Y%m%d"))#convert to date class<br/>
class(data[,1])  ### the conversion did not work. Help? The date column is still is numeric<br/>

现在我想使用 ggplot 显示一个包含 4 条线的折线图，x 轴上的日期按周或月显示

有什么帮助吗？？

#####

谢谢。

Answer 1

正如@Dwin 指出的那样，使用data.frame 而不是矩阵，因为您的转换工作正常。

e.g. class(as.Date(as.character(data[,1]), format("%Y%m%d")) )
 #[1] "Date"

要使用ggplot2 绘制您想要的内容，您需要很长时间的数据，在这里使用melt() 然后scale_x_date() 来按周格式化轴。

data<-data.frame(dates=dates, col1=col1, col2=col2, col3=col3, col4=col4)
library(plyr)
data <- melt(data, id.vars="dates")
data[,1]<-as.Date(as.character(data[,1]), format("%Y%m%d"))
ggplot(data, aes(x=dates,y=value)) + geom_point(aes(colour=variable))  + 
      scale_x_date(breaks = date_breaks("weeks"), labels = date_format("%d-%b"))

Answer 2

您不能将 R 日期与矩阵中的数字列混合。只能在数据框中执行：

data <- as.data.frame(data)
data$dates <- as.Date(as.character(data$dates), format="%Y%m%d")
 head(data)
       dates col1 col2 col3 col4
1 2010-11-01    1   11   21   31
2 2010-11-02    2   12   22   32
3 2010-11-03    3   13   23   33
4 2010-11-04    4   14   24   34
5 2010-11-05    5   15   25   35
6 2010-11-06    6   16   26   36

我从来没有“得到” ggplot 的东西。似乎是graphics::matplot 的工作：

png("my.png")
matplot(x=data[[1]], y=data[-1], type="l", xaxt="n")
axis(1, at=data$dates,labels=as.character(data$dates))
dev.off()

我在 ggplot 上的失败尝试：

> p <- ggplot(data=data, aes(x=dates, y=data[,2:5]) )+geom_line()
> p
Don't know how to automatically pick scale for object of type data.frame. Defaulting to continuous
Error: Aesthetics must either be length one, or the same length as the dataProblems:data[, 2:5]