If you pass the entire datos data frame to qcc it will include the Nro..Muestra column in the data analysis. You will get your desired plot if you drop that column from the data passed to qcc().

qcc(datos[,-1], type = "R")