Problema con códigos 408 y 501 para archivo «espalda.xlsx»

Buenas tardes,
estoy intentando realizar el gráfico triple de histograma-boxplot-qqplot para el una columna del archivo «espalda.xlsx» y no consigo que me funcione correctamente. He probado ejecutando el código 501 y también el 408, pero en el gráfico resultante sólo me aparecen valores para el qqplot (el de la tercera posición), mientras que en los dos primeros me salen los ejes con sus valores, pero ningún punto ni ninguna barra dentro de los gráficos correspondientes (ni el histograma, ni el boxplot).
No se cual puede ser el problema porque os gráficos de todas las variables de la base de datos «iris» me salen correctamente. He actualizado y cargado todos los paquetes necesarios, probado a modificar algún parámetro, he probado con los datos del archivo «esoph» y también he probado a ejecutar los gráficos individualmente pero sólo me sale bien el qqplot (p3). Agradezco alguna solución porque me gustaría resolverlo, ya que me parece un gráfico muy útil y visualmente completo.

Por otro lado he detectado que al ejecutar el código 501 con los datos «espalda.xlsx» y «esoph.xlsx», en la línea para crear el vector (dvector <- df[,1]) a mi lo que me genera es un data.frame, y no me salían el primer histograma, boxplot y qqplot que hay en el código. Esto lo he resuelto para los datos del ejercicio convirtiendo el data.frame en un vector: dvector <- as.vector(df$ODI Mes0)

Saludos,
Marcos