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