I think this is what you mean but the scale differences among variables makes the plot hard to read
library(tidyverse)
information <- data.frame(company = c('Instagram', 'Netflix', 'Youtube', 'Amazon', 'Facebook',
'Linkedin', 'Twitter', 'Uber', 'Tinder', 'Zoom', 'Apple', 'Tiktok', 'Spotify', 'Microsoft'),
word_count = c(2451, 2628, 3308, 3416, 4132, 4346, 5633, 5658,
6215, 7243, 7314, 7459, 8600, 15260),
Readtime= c(10.21,10.95,13.78,14.23,17.22,18.11,23.47,23.58,25.9,
30.18,30.48,31.08,35.83,63.58),
readingscore= c(54,45,50,45,56,54,39,40,46,42,47,44,44,54))
information %>%
gather(metric, value, -company) %>%
ggplot(aes(x = company, y = value, fill = metric)) +
geom_col() +
theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1))

Created on 2021-05-04 by the reprex package (v2.0.0)
Maybe consider faceting the plot
information %>%
gather(metric, value, -company) %>%
ggplot(aes(x = company, y = value, fill = metric)) +
geom_col() +
facet_wrap("metric", scales = "free_y", ncol = 1) +
theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1))
