r - 绘制 tsibble 时如何获得更详细的 x 轴?
问题描述
我目前正在关注《预测:原则与实践》,第 3 版,可在线获取。要复制我的问题,您需要安装然后加载包fpp3
。然后,您需要在 R(或 RStudio)中执行以下操作:
PBS %>%
filter(ATC2 == "A10") %>%
select(Month, Concession, Type, Cost) %>%
summarise(TotalC = sum(Cost)) %>%
mutate(Cost = TotalC / 1e6) -> a10
在定义 之后a10
,就需要绘制tsibble
,如下所示:
autoplot(a10, Cost) +
labs(y = "$ (millions)",
title = "Australian antidiabetic drug sales")
然后你应该得到这样的情节:
在大多数情况下这很好,但我希望在 x 轴上至少有两倍的刻度,如果它们可以旋转 45° 左右,可能更多。我尝试了一些看起来很有希望的东西,它被添加scale_x_date(date_labels = "%m-%Y")
到 plot 对象中,但只适用于类对象,Date
这里我们正在处理yearmonth
s. 在这些情况下如何获得更详细的 x 轴?
解决方案
推荐阅读
- sql - 在 SQL 语句的 FROM 子句中,指定的字段可以引用多个表
- python - 有没有更简单的方法在 Jinja2 模板中调用 JSON?
- recursion - 方案递归查找树的最左侧节点
- postgresql - postgis 如何在给定的边界框中找到靠近中心的结果?
- react-native - 如何在本机反应中复制此底部面板的行为?
- google-data-studio - 如何在 Google Data Studio 中自定义带有标签 + 百分比的饼图
- r - 如何根据参考向量补全长格式数据框的缺失值
- reporting-services - 禁用 SSRS 日期类型参数的“周末”
- android - Android Room:用于选项的 TypeConverter
: 迁移与 notNull 属性有问题 - java - “Spring-Boot”标题中的“boot”是什么意思