【发布时间】:2013-10-25 13:22:26
【问题描述】:
这是我的代码:
#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 变量 1045.00
我希望它看起来像这样: 2013 年 9 月 23 日,星期一 变量 1045 *没有时间&没有小数点。
【问题讨论】: