Geom_density draws more than one line

[Jakub_Komarek]

Hi,

I really don't know why but geom_desnity gives me more than line. Could you help me to explain it, please?

library(ggplot2)
dulezitost <- structure(list(value = structure(c(1L, 2L, 4L, 2L, 2L, 4L, 3L, 
                                   2L, 4L, 1L, 3L, 1L, 1L, 3L, 2L, 5L, 3L, 3L, 1L, 2L, 4L, 4L, 3L, 
                                   2L, 3L, 3L, 1L, 3L, 5L, 4L, 4L, 4L, 3L, 4L, 2L, 2L, 5L, 1L, 2L, 
                                   4L, 4L, 4L, 3L, 1L, 5L, 4L, 5L, 4L, 3L, 2L, 4L, 2L, 5L, 3L, 4L, 
                                   4L, 2L, 5L, 2L, 3L, 4L, 4L, 3L, 1L, 5L, 2L, 3L, 4L, 2L, 4L, 3L, 
                                   5L, 5L, 4L, 2L, 1L, 4L, 5L, 3L, 2L, 4L, 4L, 5L, 4L, 4L, 4L, 2L, 
                                   5L, 4L, 4L, 4L, 1L, 4L, 2L, 4L, 4L, 5L, 2L, 5L, 2L, 3L, 5L, 1L, 
                                   2L, 2L, 4L, 5L, 4L, 2L, 5L, 2L, 5L, 3L, 3L, 4L, 3L, 2L, 3L, 4L, 
                                   4L, 4L, 3L, 3L, 4L, 5L, 4L, 2L, 2L, 3L, 2L, 3L, 4L, 3L, 2L, 2L, 
                                   4L, 3L, 3L, 2L, 5L, 5L, 2L, 5L, 3L, 4L, 4L, 3L, 5L, 4L, 3L, 4L, 
                                   2L, 4L, 4L, 2L), .Label = c("zásadně nesouhlasím", "nesouhlasím", 
                                                               "střed", "souhlasím", "zásadně souhlasím"), class = "factor")), row.names = c(NA, 
                                                                                                                                             -155L), class = c("tbl_df", "tbl", "data.frame"))


ggplot(data = dulezitost, aes(x=value))+
  geom_density()

Manty thanks,

Jakub

[jrkrideau]

Your variable is a factor that one can convert into a character variable. I am pretty sure that you can only plot numeric data in a density plot.