ggplot(civicpulse_important_part_of_job, aes(x=Category)) + geom_bar() + ggtitle("Frequency of Each Category") + xlab("Category") + ylab("Frequency") pie_data <- as.data.frame(table(civicpulse_important_part_of_job$Category)) colnames(pie_data) <- c("Category", "Frequency") ggplot(pie_data, aes(x="", y=Frequency, fill=Category)) + geom_bar(width = 1, stat = "identity") + coord_polar("y") + ggtitle("Proportion of Each Category")