#summarizing iris dataset
data <- iris |> dplyr::group_by(Species) |>
dplyr::summarize(Sepal.Length=mean(Sepal.Length))
head(data)
#ploting data
grf <- plot_pieplot(data, colors=c("red", "green", "blue"))
plot(grf)
Run the code above in your browser using DataLab