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