r - R - 用牛图调整图形轴
问题描述
我想用 ggplot 绘制时间序列分析的一些结果,在同一个图表上绘制变量及其预测,同时在下面的图表上绘制错误(类似于plot.ts 的工作方式,但我不能使用这个库)。
这是我的代码:
library(ggplot2)
library(cowplot)
set.seed(1111)
my_df = data.frame(
date = 1:150,
initial = c(runif(100, max=100), rep(NA, 50)),
predicted_intra = c(rep(50, 100), rep(NA, 50)),
predicted_extra = c(rep(NA, 100), 51:100),
err_intra = c(runif(100, max=100), rep(NA, 50))
)
my_colors = c("Init" = "grey30", "Predict" = "red")
p1 <- ggplot(my_df) + aes(x = date, y = predicted_intra, color="Predict") +
geom_line() +
geom_line(aes(y = predicted_extra, color="Predict")) +
geom_line(aes(y = initial, color="Init")) +
scale_color_manual(name = "", values = my_colors) +
ylab("Numberz")
p2 <- ggplot(my_df) +
aes(x = date, y = err_intra) + geom_line(color="red") +
ylab("Error")
plot_grid(p1, p2, nrow=2, rel_heights = c(2,1))
这给出了: 上面代码的结果
一切都很好,直到传说出现。有没有办法对齐两个图表的“日期”轴?
解决方案
推荐阅读
- reactjs - 反应路由器:在除首页外的所有页面上使用菜单
- reactjs - 无法在本机反应中使用 webrtc
- typescript - 如何像这样修复 TypeScript 错误(ts:2740)
- c# - asp.net core 3.1 将 autofac 与 finbuckle 集成
- getstream-io - 当用户取消关注 GetStream 上的提要时,如何处理“关注”活动?
- reactjs - 反应如何在渲染功能后更新 DOM 组件
- javascript - 将 html5canvas 转换为图像后,它不会作为图像插入 html
- audio - Openvidu - 将视频通话音频设置为扬声器 Android
- css - 更改所选元素的样式
- unity3d - Skybox 不显示在 RenderTexture 上