R. 做很酷的情节，没有 X 标签

Question

我无法在 x 上获取我的月份标签（比方说 Jan/15）。试了所有的东西，有什么诀窍？如果我使用 YYYYMM 还可以，但我需要更具可读性。也可以更改背景颜色吗？

require(shiny)
require(rCharts)

x <- data.frame(Category=factor(c("Alpha", "Alpha","Alpha","Alpha","Alpha")), 
                    YYYYMM= factor(c("2/1/2015","3/1/2015","4/1/2015","5/1/2015","6/1/2015")),
                    COUNT=c(44,22,37,76,97))

str(x)
to_jsdate2 <- function(x){
  as.numeric(as.POSIXct(as.Date(x), origin="1970-01-01")) * 1000}

x$DATEPX <-  to_jsdate2(as.Date(x$YYYYMM))

myplot <- hPlot(COUNT ~ YYYYMM, data=x, type="line")
#myplot$xAxis(title = list (text = "Time"), type= "datetime")
myplot

我这样做 x 标签消失了

myplot <- hPlot(COUNT ~ DATEPX, data=x, type="line")
myplot$xAxis(title =list (text = "Month") , type= "datetime")
myplot

Answer 1

要获得像 "Jan/15" 这样的标签，您需要通过 strptime 传递日期，以使它们进入自纪元以来的时间，然后通过 strftime 使它们相应地格式化。无需将日期乘以 1000 等。对于您的情况，请让我知道以下是否有效。您可以通过在 R REPL 中执行 ?strptime 和 ?strftime 来阅读有关日期格式的更多信息。

x$dmy = strftime(strptime(x$YYYYMM, format = "%m/%d/%Y"), format = "%b/%y")
myplot <- hPlot(COUNT ~ dmy, data=x, type="line")
myplot

不确定如何更改 rcharts

中的背景颜色

R. 做很酷的情节，没有 X 标签

R. doing cool plot, no X labels

r

rcharts