这是我的代码:
#Start up rickshaw charts
library(rCharts)
df.plot <- Rickshaw$new()
#Set chart parameters
df.plot$layer(
y ~ x,
data = df.aggregate2,
type = "area",
groups = "var2",
colors= c("#E1CA4C","#74D2E3","#B70002","#987989","#9A9A9A","#ACD759","#5FCC5C","#4C6676"),
height = 500,
width = 800
)
df.plot$set(
hoverDetail = TRUE,
yAxis = TRUE,
xAxis = TRUE,
shelving = FALSE,
legend = TRUE,
slider = TRUE,
highlight = TRUE,
unstack = TRUE,
)
df.plot$xAxis( tickFormat=
"#!function(d) {
return d3.time.format('%Y-%m-%d')(new Date( d * 86400000 ));
}
!#" )
#Plot
df.plot$print('Performance', include_assets = TRUE, cdn = TRUE)
我的悬停看起来像这样:
2013 年 9 月 23 日星期一 00:00:00 GMT var 1045.00
我希望它看起来像这样:Mon, 23 September 2013 var 1045 *没有时间和小数点。