Create a demo dataset to be used for a BAR plot.
library(tibble)
demo <- tribble(
~cut, ~freq,
"Fair", 1610,
"Good", 4906,
"Very Good", 12082,
"Premium", 13791,
"Ideal", 21551
)
demo
## # A tibble: 5 x 2
## cut freq
## <chr> <dbl>
## 1 Fair 1610
## 2 Good 4906
## 3 Very Good 12082
## 4 Premium 13791
## 5 Ideal 21551
A simple BAR plot.
library(ggplot2)
ggplot(data = demo) +
geom_bar(mapping = aes(x = cut, y = freq), stat = "identity")