我想消除x轴上的间隙并消除重叠。
可重复的例子:
require(quantmod)
require(rCharts)
aapl <- getSymbols("AAPL", from="2013-12-13", auto.assign = FALSE)
aapl.df <- data.frame(
index(aapl),
coredata(aapl)
)
colnames(aapl.df) <- c("date","open","high","low","close","volume","adjusted")
n1 <- nvd3Plot(
x = "date",
y = "close",
y2 = "volume",
data = aapl.df,
type = "linePlusBarChart",
height = 400,
width = 800
)
n1$templates$script = file.path(n1$LIB$url,'layouts',"linePlusBar.html")
n1$xAxis(tickFormat =
"#!function (d) {
return d3.time.format('%b %d, %Y')(new Date(d));
}!#"
)
n1
产地: 此外,为什么图表从2013年12月12日数据开始于2013年12月13日开始?
> head(aapl.df)
date open high low close volume adjusted
1 2013-12-13 562.85 562.88 553.67 554.43 11856400 554.43
2 2013-12-16 555.02 562.64 555.01 557.50 10078600 557.50
3 2013-12-17 555.81 559.44 553.38 554.99 8163900 554.99
4 2013-12-18 549.70 551.45 538.80 550.77 20180200 550.77
5 2013-12-19 549.50 550.00 543.73 544.46 11439600 544.46
6 2013-12-20 545.43 551.61 544.82 549.02 15548100 549.02
最后,一个额外的问题 - 我想隐藏图表左侧的Y轴标签,但仍然保留工具提示。
谢谢!