連続的なスケールに対する離散値

Question

おはよう、同僚！今ではグラフの日本語のろうそくをRのggplotパッケージで構築しようとしていますが、コードは動作したくありません。エラーは次のとおりです。

離散値は連続スケールに供給されます。

は、私は、データがggplotの数値として示されていないことを示唆しているが、私は、コードに変更する場合：as.vector - >as.numeric、問題は消えません。私が間違っていることを私に言うことができますか？ありがとう。

library("dplyr") 
library("ggplot2") 
library("quantmod") 
getSymbols('AAPL') 
x<-AAPL 
head(x) 

start=as.Date("2017-01-01") 
end=as.Date("2017-09-01") 
candle <- function(x, start, end){ 
date <- as.Date(time(x)) 
    open <- as.vector(Op(x)) 
    high <- as.vector(Hi(x)) 
    low <- as.vector(Lo(x)) 
    close <- as.vector(Cl(x)) 
xSubset <-data.frame('date'=date,'open'=open,'high'= high,'low'=low,'close'=close) 
xSubset$candleLower <- pmin(xSubset$open, xSubset$close) 
    xSubset$candleMiddle <- NA 
    xSubset$candleUpper <- pmax(xSubset$open, xSubset$close) 
    xSubset$fill <- '' 
    xSubset$fill[xSubset$open < xSubset$close] = 'white' 
    xSubset$fill[xSubset$fill ==''] = 'red' 
xSubset$ma200 <- SMA(xSubset$close, 200) 
    xSubset$ma50 <- SMA(xSubset$close, 50) 
xSubset <-subset(xSubset, xSubset$date > start & xSubset$date < end) 
g <- ggplot(xSubset, aes(x=date, lower=candleLower, middle=candleMiddle, upper=candleUpper, ymin=low, ymax=high)) 
    g <- g + geom_boxplot(stat='identity', aes(group=date, fill=fill)) 
    g <- g + geom_line(aes(x=date, y=ma50))+ geom_line(aes(x=date, y=ma200)) 
    g 
} 

candle(AAPL, start, end) 

Answer 1

あなたの問題はmiddleのために供給NAです。それは連続的な値である必要があります。私はcandleUpperとcandleLowerと同じ長さの0に変更し、エラーは消え去った。

これは役に立ちますか？

Answer 2

y軸の制限を変更するにはg + scale_y_continuous（limits = c（50、max（data）））を試しましたか？それはうまくいくはずです。