library(ggplot2)
df <- data.frame(g = c("a", "b", "c", "d"), v = c(3, 5, 2, 4))
# A hand-drawn circular bar (rose) chart:
ggplot(df, aes(g, v, fill = g)) +
geom_sketch_col(seed = 1L) +
coord_sketch_polar(seed = 1L) +
theme_sketch()
Run the code above in your browser using DataLab