tb <- tibble::tibble( x = letters[1:10], y = sample(10, 10) )

ggplot(tb, aes(x, y)) + geom_col()