Hi, and welcome!
library(ggplot2)
library(dplyr)
example_df <- mtcars %>% dplyr::select(mpg) %>% mutate(mpg = mpg/100)
ggplot(example_df, aes(x = mpg)) + geom_density()
illustrates what ggplot + geom_density() is supposed to do with a vector of decimals. Without a reproducible example, called a reprex, it's hard to tell why your lista_total[[24]] object doesn't (it derives from archivos).
Can you post an extract from lista_total[[24]]?
Created on 2019-11-04 by the reprex package (v0.3.0)