सीधे ggplot2

Question

के साथ टीएस ऑब्जेक्ट प्लॉटिंग मुझे आश्चर्य है कि ts ऑब्जेक्ट सीधे ggplot2 के साथ साजिश करने के लिए कोई फ़ंक्शन है या नहीं। अतीत में, मैं निम्नलिखित रणनीति का उपयोग कर रहा था लेकिन अब यह एक त्रुटि फेंक रहा है।

set.seed(12345) 
dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2)) 
df <- data.frame(date=as.Date(time(dat)), Y=as.matrix(dat)) 
library(ggplot2) 
ggplot(data=df, mapping=aes(x=date, y=Y))+geom_point() 

त्रुटि

Error in as.Date.default(time(dat)) : 
    do not know how to convert 'time(dat)' to class “Date” 

मैं अत्यधिक सराहना करते हैं अगर किसी ने मुझे मार्गदर्शन कैसे सीधे ts वस्तु ggplot2 साथ प्लॉट करने के लिए होगा। आपकी सहायता के लिये पहले से ही धन्यवाद।

Answer 1

इस प्रयास करें:

library(zoo) 
library(ggplot2) 
library(scales) 

autoplot(as.zoo(dat), geom = "point") 

या हो सकता है:

autoplot(as.zoo(dat), geom = "point") + scale_x_yearqtr() 

अधिक जानकारी के लिए ?autoplot.zoo देखें।

नोट: वैसे, यदि प्रश्न library(zoo) आदेश जारी करते हैं तो प्रश्न में कोड काम करता है।

अपडेट दूसरा समाधान जोड़ा गया, library(scales) और yearmon से yearqtr करने लगे।

Answer 2

पता नहीं क्यों यह पहले (क्योंकि यह तिथि functins की मेरी समझ के तहत मान्य प्रतीत नहीं होता है) में काम किया, लेकिन आप चिड़ियाघर :: के उपयोग के साथ यह ठीक कर सकते हैं as.yearqtr

library(zoo) 
?as.yearqtr 
set.seed(12345) 
dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2)) 
df <- data.frame(date=as.Date(as.yearqtr(time(dat))), Y=as.matrix(dat)) 
library(ggplot2) 
ggplot(data=df, mapping=aes(x=date, y=Y))+geom_point() 
# No errors. The plot has YYYY-MM labeling as expected for a ggplot2-Date axis. 

Answer 3

इस कोड को मुझे

set.seed(12345) 
dat <- ts(data=runif(n=10, min=50, max=100), frequency = 4, start = c(1959, 2)) 
library(ggfortify) 
autoplot(dat, geom = "point", ts.colour = ('dodgerblue3')) #Option 1 

library(zoo) 
autoplot.zoo(as.zoo(dat), geom = "point") #Option 2