मैं वर्तमान में पूर्वानुमान: सिद्धांत और अभ्यास, तीसरे संस्करण के साथ अनुसरण कर रहा हूं, जो कृपापूर्वक ऑनलाइन उपलब्ध है . मेरी समस्या को दोहराने के लिए, आपको 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")

फिर आपको इस तरह की साजिश मिलनी चाहिए:

tsibble plot with somewhat faulty x-axis

अधिकांश भाग के लिए यह ठीक है, लेकिन मैं एक्स-अक्ष पर कम से कम दो बार टिक करना चाहता हूं, संभवतः अधिक अगर उन्हें 45 डिग्री या उससे भी घुमाया जा सकता है। मैंने कुछ ऐसा करने की कोशिश की जो आशाजनक लग रहा था जो scale_x_date(date_labels = "%m-%Y") को प्लॉट ऑब्जेक्ट में जोड़ रहा था लेकिन वह केवल Date वर्ग की वस्तुओं के साथ काम करता है और यहां हम yearmonth के साथ काम कर रहे हैं। मैं इन परिस्थितियों में अधिक विस्तृत एक्स-अक्ष कैसे प्राप्त कर सकता हूं?

1
readyready15728 6 अक्टूबर 2021, 22:35

2 जवाब

सबसे बढ़िया उत्तर

एक तरीका 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")

enter image description here

1
TarJae 6 अक्टूबर 2021, 23:11
1
आप एक वास्तविक नायक हैं
 – 
readyready15728
6 अक्टूबर 2021, 23:14

आप scale_x_yearmonth() का उपयोग करके yearmonth() के लिए x अक्ष पैमाने को बदल सकते हैं। यह अन्य दिनांक प्रकारों जैसे yearquarter() और yearweek() पर भी लागू होता है।

library(fpp3)
PBS %>%
  filter(ATC2 == "A10") %>%
  select(Month, Concession, Type, Cost) %>%
  summarise(TotalC = sum(Cost)) %>%
  mutate(Cost = TotalC / 1e6) -> a10

autoplot(a10, Cost) +
  labs(y = "$ (millions)",
       title = "Australian antidiabetic drug sales") + 
  scale_x_yearmonth(date_breaks = "1 year", date_labels = "%Y")

2021-10-07 को reprex पैकेज द्वारा बनाया गया (v2.0.1)

1
Mitchell O'Hara-Wild 7 अक्टूबर 2021, 01:03