Мне нужны истинные данные даты, чтобы следить за данными в базе данных.
Данные из моей базы данных в столбце 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