données lisses pour un graphique geom_area

Question

j'ai données qui ressemble à ceci:

df <- tibble(
    x = 1:20, 
    y = c(4, 4, 2, 1, 8, 3, 4, 2, 8, 2, 2, 2, 2, 6, 1, 7, 8, 9, 9, 2) 
) 

Graphed, il ressemble à ceci:

df %>% 
    ggplot(aes(x, y)) + 
    geom_area() 

Mais le graphique est vraiment discordante. Comment pourrais-je lisser les bords dentelés à quelque chose comme ceci:

Merci!

Answer 1

Expansion du commentaire d'Axeman: smooth peut être contrôlé par le paramètre span.

Exemple 1:

df %>% 
    ggplot(aes(x, y)) + 
    # original, delete if desired 
    geom_area(alpha = 1/2) + 
    stat_smooth(
     geom = 'area', method = 'loess', span = 1/3, 
     alpha = 1/2, fill = "red") + 
    labs(title = "Smooth with `span = 1/3`") 

Exemple 2:

df %>% 
    ggplot(aes(x, y)) + 
    geom_area(alpha = 1/2) + 
    # original, delete if desired 
    stat_smooth(
     geom = 'area', method = 'loess', span = 7/10, 
     alpha = 1/2, fill = "blue") + 
    labs(title = "Smooth with `span = 7/10`")