У меня проблема с функцией hdr.den, я не могу изменить интервалы оси x, и графика печатается только со значениями по умолчанию. Мой код:
library(hdrcde)
dades <- data.frame(via = c("A-2", "A-2", "A-2"), pk = c(450, 450.2, 451), valor = c(3, 1, 2))
dens <- density(dades$pk, bw = 0.1)
nBreaks = 10
xaxpi <- c(trunc(min(dades$pk)), trunc(max(dades$pk)), nBreaks)
hdr <- hdr.den(round(dades$pk, 1), den = dens,
xaxp = xaxpi, cex.axis = 0.6, las = 2,
main = paste("Concentraciones relativas"))
Хотя я изменяю переменную nBreaks, ось не меняется:
Я также попытался полностью удалить деления оси x следующим образом:
xaxp = "n"
Но это тоже не работает.
Последнее, что я попытался, это поставить ось вручную, с помощью этой функции:
axis(side= 1, xaxp= xaxpi)
Но тогда они появляются над головой:
Буду признателен, если кто-нибудь знает, как ее решить, спасибо заранее.