r - 如何使用ggplot调整x轴上的时间?
问题描述
我正在尝试使用 ggplot 绘制(时间 VS 速度和降水),但我得到了一个凌乱的情节。数据低于(df),然后是我尝试过的代码。
df <- structure(list(Agency.Station.ID = c("MI270N003.6D", "MI270N004.7D",
"MI270N005.7D", "MI270N007.3D", "MI270N008.5D", "MI270N003.6D",
"MI270N004.7D", "MI270N005.7D", "MI270N007.3D", "MI270N008.5D",
"MI270N003.6D", "MI270N004.7D", "MI270N005.7D", "MI270N007.3D",
"MI270N008.5D", "MI270N003.6D", "MI270N004.7D", "MI270N005.7D",
"MI270N007.3D", "MI270N008.5D"), date_time = structure(c(1427846400,
1427846400, 1427846400, 1427846400, 1427846400, 1427846700, 1427846700,
1427846700, 1427846700, 1427846700, 1427847000, 1427847000, 1427847000,
1427847000, 1427847000, 1427847300, 1427847300, 1427847300, 1427847300,
1427847300), class = c("POSIXct", "POSIXt"), tzone = "UTC"),
Date = structure(c(16526, 16526, 16526, 16526, 16526, 16526,
16526, 16526, 16526, 16526, 16526, 16526, 16526, 16526, 16526,
16526, 16526, 16526, 16526, 16526), class = "Date"), Time = c("00:00:00",
"00:00:00", "00:00:00", "00:00:00", "00:00:00", "00:05:00",
"00:05:00", "00:05:00", "00:05:00", "00:05:00", "00:10:00",
"00:10:00", "00:10:00", "00:10:00", "00:10:00", "00:15:00",
"00:15:00", "00:15:00", "00:15:00", "00:15:00"), Speed = c(59,
34, 46, 61, 46, 58, 39, 51, 36, 52, 62, 47, 49, 57, 50, 59,
50, 35, 54, 44), Precipitation = c(0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)), row.names = c(NA, 20L
), class = "data.frame")
这是我尝试过的代码:
df <- df %>% gather(Aspect, Value, -Agency.Station.ID, -Date, -Time)
df$Agency.Station.ID <- factor(df$Agency.Station.ID)
df$Date <- factor(df$Date)
for(i in levels(df$Agency.Station.ID)) {
pdf(paste0(i,'.pdf'))
for(j in levels(df$Date)) {
subset.data <- df[which(df$Agency.Station.ID==i & df$Date==j),]
if (nrow(subset.data)!=0) {
p <- ggplot(data=subset.data, aes(Time, Value, group = 1)) +
geom_line(aes(color=Aspect)) +
labs(title=paste('Station:',i, " Date:",j)) +
theme_bw()
invisible(print(p))
}
}
dev.off()
}
解决方案
您可以组合以下内容,而不是存储Date
Time
在单独的列中:
df$Datetime <- as.POSIXct(paste0(df$Date, df$Time))
现在ggplot
打印 x 轴上的所有标签,Time
如character
. ggplot
调用prettify
轴标签的函数,即打印信息丰富的、不重叠的标签。但是,这需要变量的变化numeric
,例如R
日期时间表示POSIXct
。
PS:您的示例对我不起作用,Aspect
丢失了。
推荐阅读
- c# - 实体框架标题,详细信息保存错误
- ruby - Rspec如何确定是否已经定义了一个let块?
- javascript - 从 addEventListener 访问数组
- javascript - 从javascript中的字符串中提取10位手机号码的正则表达式
- java - 来自节点 js 服务器的 Json 数据
- cakephp-3.0 - 相同特价商品 ID cakephp 3 的条件
- java - Micronaut 在过滤器中获取处理对象/方法
- azure - Azure Devops 查询以查找每天花费在工作项上的小时数
- java - 如何编写集成测试来检查 MDC 上下文中的内容?
- python - 如何在某些类别常见的熊猫中合并交叉表的类别?