函数hdr.den（），x轴间隔的问题

Question

我的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)

但是它们出现在头顶上：

如果有人知道如何解决该问题，我将不胜感激。