library(ggplot2)
# creating a data frame
data_frame <- data.frame(col1 = c(1,3,5,6,23,6,2,5,7,16,8,9,36,7,12,
1,6,4,14,23,19,18,14,2,20,30,32,11,18,6),
grp = c(rep(c("a","b","c"),10)))
print("Original Data")
print(data_frame)
# creating frequency distribution with
# different labeling for different grp values
ggplot(data_frame, aes(x = col1, colour = grp, fill = grp)) +
geom_freqpoly(bins=10)