如何用R创建时间散点图？

发布于 2024-12-01 05:42:56 字数 627 浏览 1 评论 0原文

数据是一系列日期和时间。

date time
2010-01-01 09:04:43
2010-01-01 10:53:59
2010-01-01 10:57:18
2010-01-01 10:59:30
2010-01-01 11:00:44
…

我的目标是表示一个散点图，其中水平轴 (x) 为日期，垂直轴 (y) 为时间。我想如果同一日期有多次，我还可以添加颜色强度。

创建日期直方图非常容易。

mydata <- read.table("mydata.txt", header=TRUE, sep=" ")
mydatahist <- hist(as.Date(mydata$day), breaks = "weeks", freq=TRUE, plot=FALSE)
barplot(mydatahist$counts, border=NA, col="#ccaaaa")

我还没有弄清楚如何创建轴为日期和/或时间的散点图。
我还希望能够拥有不需要线性日期 YYYY-MM-DD 的轴，但也可以基于 MM-DD 等月份（因此不同的年份累积），甚至可以按周轮换。

欢迎任何帮助、RTFM URI 标记或提示。

原文

The data are a series of dates and times.

date time
2010-01-01 09:04:43
2010-01-01 10:53:59
2010-01-01 10:57:18
2010-01-01 10:59:30
2010-01-01 11:00:44
…

My goal was to represent a scatterplot with the date on the horizontal axis (x) and the time on the vertical axis (y). I guess I could also add a color intensity if there are more than one time for the same date.

It was quite easy to create an histogram of dates.

mydata <- read.table("mydata.txt", header=TRUE, sep=" ")
mydatahist <- hist(as.Date(mydata$day), breaks = "weeks", freq=TRUE, plot=FALSE)
barplot(mydatahist$counts, border=NA, col="#ccaaaa")

I haven't figured out yet how to create a scatterplot where the axis are date and/or time.
I would like also to be able to have axis not necessary with linear dates YYYY-MM-DD, but also based on months such as MM-DD (so different years accumulate), or even with a rotation on weeks.

Any help, RTFM URI slapping or hints is welcome.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

熊抱啵儿 2024-12-08 05:42:56

ggplot2 包可以轻松处理日期和时间。

创建一些日期和时间数据：

dates <- as.POSIXct(as.Date("2011/01/01") + sample(0:365, 100, replace=TRUE))
times <- as.POSIXct(runif(100, 0, 24*60*60), origin="2011/01/01")

df <- data.frame(
  dates = dates,
  times = times
)

然后获得一些 ggplot2 魔法。 ggplot 将自动处理日期，但要正确设置时间轴格式，请使用 scale_y_datetime()：

library(ggplot2)
library(scales)
ggplot(df, aes(x=dates, y=times)) + 
  geom_point() + 
  scale_y_datetime(breaks=date_breaks("4 hour"), labels=date_format("%H:%M")) + 
  theme(axis.text.x=element_text(angle=90))

在此处输入图像描述

关于问题的最后部分，按周分组等：要实现此目的，您可能必须将数据预先汇总到您想要的存储桶中。您可以使用plyr来实现此目的，然后将结果数据传递给ggplot。

The ggplot2 package handles dates and times quite easily.

Create some date and time data:

dates <- as.POSIXct(as.Date("2011/01/01") + sample(0:365, 100, replace=TRUE))
times <- as.POSIXct(runif(100, 0, 24*60*60), origin="2011/01/01")

df <- data.frame(
  dates = dates,
  times = times
)

Then get some ggplot2 magic. ggplot will automatically deal with dates, but to get the time axis formatted properly use scale_y_datetime():

library(ggplot2)
library(scales)
ggplot(df, aes(x=dates, y=times)) + 
  geom_point() + 
  scale_y_datetime(breaks=date_breaks("4 hour"), labels=date_format("%H:%M")) + 
  theme(axis.text.x=element_text(angle=90))

enter image description here

Regarding the last part of your question, on grouping by week, etc: To achieve this you may have to pre-summarize the data into the buckets that you want. You can use possibly use plyr for this and then pass the resulting data to ggplot.

回复收藏 0 原文

手长情犹 2024-12-08 05:42:56

我首先阅读有关 as.POSIXct、strptime、strftime 和 difftime 的内容。这些函数和相关函数应该允许您提取所需的数据子集。格式有点棘手，所以请使用帮助文件中的示例。
而且，一旦您的日期转换为 POSIX 类，as.numeric() 会将它们全部转换为数值，因此易于排序、绘图等。

编辑：Andre 建议使用 ggplot 来简化您的轴规格是好一个。

回复收藏 0 原文

~没有更多了~