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等。对于您的情况，请告诉我以下是否有效。您可以在?strptime REPL中执行?strftime和R，详细了解日期格式。

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标签

1 个答案: