rcharts nvd3 сюжетная дата по оси x не совпадает с данными - PullRequest
0 голосов
/ 20 сентября 2019

Мне нужны истинные данные даты, чтобы следить за данными в базе данных.

Данные из моей базы данных в столбце measure_date имеют 2018-12-01 по 2019-05-09, но результат начинается с 1969-12-31 до 1970-01-02 и разбросать график только на оси Y.

Я пытаюсь использовать tickFormat="#!function(d) {return d3.time.format('%Y-%m-%d')(new Date( d * 86400000 ));}!#", но это не работает.

dataTableByWeight <- reactive({
    dbGetQuery(con, paste0("SELECT vital_sign_opd_id, weight, height, bmi, pressure_max, pressure_min,
    pulse, temperature, measure_date 
    FROM vital_sign_opd WHERE measure_date >= '", input$daterange1[1], "'
    AND measure_date <= '", input$daterange1[2], "'", sep = ""))
  })

plotWeightByDate <- function(dt, dom = "weightByDate", 
                               xAxisLabel = "date", 
                               yAxisLabel = "weight") {
    weightByDate <- nPlot(
      weight ~ measure_date,
      data = dt,
      type = "scatterChart",
      dom = dom, width = 1000
    )
weightByDate$xAxis(
  #tickValues = "#! [ 16308, 16312 ] !#",
  #tickValues="#![11323,11700,12060,12420,12790,13150,13520,13880,14250,14615,14980,15345,15710,16071,16430]!#",
  #tickFormat =   "#!function(d) {return d3.time.format('%Y-%m-%d')(new Date(d*1000*3600*24));}!#",
  tickFormat="#!function(d) {return d3.time.format('%Y-%m-%d')(new Date( d * 86400000 ));}!#",
  rotateLabels = -45
)
weightByDate$chart(margin = list(left = 100, bottom = 100), 
                   showDistX = TRUE,
                   showDistY = TRUE)

    weightByDate$yAxis(axisLabel = yAxisLabel, width = 80)
    weightByDate$xAxis(axisLabel = xAxisLabel, width = 90)
    weightByDate
  }

Результат похож на эту картину.Ось X является проблемой.Как я могу это исправить?


Это изображение, например https://cloud.githubusercontent.com/assets/8532634/4030583/82c8ab34-2c5e-11e4-8f5f-59fc28adf5a4.jpg
...