Si el formato no va ser png con fondo transparente se podría obtener el siguiente resultado:
La idea central es visualizar como R plotea los gráficos. Para tal fin, R toma como marco de referencia, la configuración de nuestro entorno de desarrollo, esto es muy similar a otros programas de diseño gráfico como Adobe Illustrator, Sketch, entre otros.
Esto se logra como bien han señalado en otras respuesta mediante los parámetros gráficos - par, es decir R efectuará los lienzos conforme estén definidos estos parámetros.
Lo señalado en el párrafo anterior es similar a Photoshop por ejemplo, porque permite flexibilidad y trabajar los lienzos como capas, es decir una capa sobre otra capa, hasta obtener el resultado que se requiere.
Por tanto, el código que genera el gráfico arriba señalado, sería el siguiente:
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)
# En este caso se establecen 3 marcadores (length.out) para mostrar
# las partes altas y bajas de la gráfica
# esto no formará parte del primer lienzo
xaxpi <- round(seq(min(dades$pk)+0.1,
max(dades$pk),
length.out = 3),1)
# o tambien: xaxpi <- c(450.1,450.6,451.0)
# se hace necesario establecer las separaciones de la densidad
# porque en el primera capa no seran dibujados
# también max(dens$y) podría ser cambiado por 1.5 o el
# valor que se ajuste a vuestras necesidades
yaxpi <- round(seq(0, max(dens$y), length.out = 4),1)
# antes de hacer el lienzo se le dice a R a través de "par"
# que la longitud de los marcadores es cero
# y que su color como el de sus valores es blanco
par(tck=0, col.axis="white", col.ticks="white")
# Se realiza el lienzo
hdr <- hdr.den(round(dades$pk, 1), den = dens,
main = paste("Concentraciones relativas"))
# se reestablece el alto de los marcadores
par(tck=-0.05)
# efectua una nueva capa sobre el lienzo previamente ploteado
axis(1, at=xaxpi ,col.axis="black", col.ticks="black", cex.axis=0.7, las=2)
axis(2, at=yaxpi ,col.axis="black", col.ticks="black", cex.axis=0.7)
Adicionalmente como se está usando el par
si se quiere que vuelva a sus valores por defecto, se puede emplear:
dev.off()
En este post Reset par to the default values at startup se detalla más al respecto.
Finalmente yaxpi
también puede ser personalizado hasta que sea como máximo 1.5
y no 1.6
.