我正在使用geom_boxplot股票市场数据绘制烛台.问题在于,单个箱线图的上边缘和下边缘以及上部晶须端点在y轴上显示出比其对应值更高的方式.虽然每个箱线图的相对高度(上边缘和下边缘之间的差异)和下部晶须的终点都很好.这是我的代码:
candlestickPlot <- function(x){
library("ggplot2")
# x is a data.frame with columns 'date','open','high','low','close'
x$candleLower <- pmin(x$open, x$close)
x$candleUpper <- pmax(x$open, x$close)
x$candleMiddle <- NA
x$fill <- "red"
x$fill[x$open < x$close] = "green"
# Draw the candlesticks
g <- ggplot(x, 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
}
Run Code Online (Sandbox Code Playgroud)
这是x:
date close volume open high low
5 2013-12-30 25.82 3525026 27.30 27.76 25.7
4 2013-12-31 27.41 5487204 25.25 27.70 25.25
3 2014-01-02 30.70 …Run Code Online (Sandbox Code Playgroud) 我已经尝试了Rscript和R CMD BATCH.
例如,如果我运行这个简单的R脚本:
test <- function(){
print("test")
}
Run Code Online (Sandbox Code Playgroud)
通过使用
> R CMD BATCH test.R
Run Code Online (Sandbox Code Playgroud)
我得到以下test.Rout文件:
R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
Natural language support but running in an English locale
R is a collaborative project with many contributors.
Type 'contributors()' …Run Code Online (Sandbox Code Playgroud)