1

私は現在、Forecasting: Principles and Practice , 3rd Edition に従っています。これは、オンラインでご利用いただけます。私の問題を再現するには、パッケージをインストールしてからロードする必要があります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 軸を持つ tsibble プロット

ほとんどの場合は問題ありませんが、x 軸に少なくとも 2 倍の目盛りを付けたいと考えています。45°程度回転させることができれば、それ以上にすることもできます。プロットオブジェクトに追加する有望な何かを試しましたscale_x_date(date_labels = "%m-%Y")が、それはクラスのオブジェクトでのみ機能しDate、ここでは s を扱っていyearmonthます。このような状況でより詳細な x 軸を取得するにはどうすればよいですか?

4

2 に答える 2

1

1 つの方法は、クラスMonthをクラス日付に変更して適用することscale_x_date()です。

a10 %>% 
  mutate(Month = as.Date(Month)) %>% 
  ggplot(aes(x=Month, y=Cost)) + 
  geom_line() +
  scale_x_date(date_breaks = "1 year")

ここに画像の説明を入力

于 2021-10-06T20:11:55.280 に答える