Código em R
library(palmerpenguins)
library(dplyr)
library(ggplot2)
penguins %>%
ggplot(aes(x = flipper_length_mm)) +
geom_density(
position = "identity",
fill = "purple",
color = "black",
) +
labs(fill = "Ilhas",
y = "Densidade",
x = "Comprimento das nadadeiras dos pinguins (milímetros)",
title = "Distribuição dos comprimentos das nadadeiras dos pinguins (milímetros)") +
theme_minimal()