ggplot2: हाइलाइट चार्ट क्षेत्र

Question

मैं कुछ समय श्रृंखला डेटा के साथ काम कर रहा हूं और कुछ शर्तों को सच होने पर चार्ट क्षेत्र को हाइलाइट करना चाहता हूं। उदाहरण के लिए:

require(ggplot2) 
require(quantmod) 
initDate <- "1993-01-31" 
endDate <- "2012-08-10" 
symbols <- c("SPY") 
getSymbols(symbols, from=initDate, to=endDate, index.class=c("POSIXt","POSIXct")) 
spy<-SPY$SPY.Adjusted 
spy$sma<-SMA(spy$SPY.Adjusted,200) 
spy<-spy[-(1:199),] 
spy<-as.data.frame(spy) 
ggplot(spy,aes(x=index(spy),y=spy$SPY.Adjusted))+geom_line()+geom_line(aes(x=index(spy),y=spy$sma)) 

ऊपर कोड डेटा भूखंडों, लेकिन मैं अनुभाग कैसे हाइलाइट कर सकते हैं SMA ऊपर जब कभी करीब है? यह प्रश्न How to highlight time ranges on a plot? के समान है, लेकिन फिर यह मैनुअल है। सशर्त साजिश के लिए ggplot2 में कोई फ़ंक्शन है?

Answer 1

quantmod पैकेज की TA.R फ़ाइल में कोड के आधार पर, यह कोड है जो आयताकारों के प्रारंभ और सिरों को खोजने के लिए rle का उपयोग करता है।

runs <- rle(as.logical(spy[, 1] > spy[, 2])) 
l <- list(start=cumsum(runs$length)[which(runs$values)] - runs$length[which(runs$values)] + 1, 
      end=cumsum(runs$lengths)[which(runs$values)]) 
rect <- data.frame(xmin=l$start, xmax=l$end, ymin=-Inf, ymax=Inf) 

कम्बाइन उस प्रश्न का accepted answer से कुछ ggplot2 कोड के साथ आप से जुड़ा हुआ:

ggplot(spy,aes(x=index(spy),y=spy$SPY.Adjusted))+geom_line()+geom_line(aes(x=index(spy),y=spy$sma))+geom_rect(data=rect, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), color="grey20", alpha=0.5, inherit.aes = FALSE) 

और आपको मिलता है:

यदि आप की साजिश रचने का क्रम उलटने और alpha=1geom_rect में इसका उपयोग करें (या नहीं) आप जितना चाहें उतना अधिक देख सकते हैं:

ggplot(spy,aes(x=index(spy),y=spy$SPY.Adjusted))+geom_rect(data=rect, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), border=NA, color="grey20", alpha=1, inherit.aes = FALSE)+geom_line()+geom_line(aes(x=index(spy),y=spy$sma)) 

---

चूंकि आप एक xts वस्तु है। आप data.frame में भी कनवर्ट नहीं करना चाहते हैं। यहाँ कैसे आप इसे कोड project.

spy <- as.xts(spy) 
require(xtsExtra) 
plot(spy, screens=1, 
    blocks=list(start.time=paste(index(spy)[l$start]), 
       end.time=paste(index(spy)[l$end]), col='lightblue'),      
    legend.loc='bottomright', auto.legend=TRUE)