Access to webpages

library(tidyverse)
library(readr)
library(ggthemes)
dt <- read_csv("Workbook1.csv", col_names = F)

dt %>% mutate(X2 = cut(X2, breaks = c(0, 25, 50, 75, 100), 
                           labels = c('0-25%', '26-50%', '51-75%', '76-100%'),
                          include.lowest = T)) %>% 
  group_by(X1, X2) %>% summarise(tot = sum(X3)) %>% 
  rename(page = X1, percent = X2) -> dt 
  ggplot(data = dt , aes(x = percent, y = tot, fill = page)) +
  geom_bar(stat = 'identity') +
    scale_fill_ptol("cyl") +
    #xlab and ylab to rename axes
  facet_wrap(~ page) +
    ggtitle('Count of unique users by usage level') +
  theme_minimal() +
  theme(legend.position = 'none')+
    theme(strip.text.x = element_text(size = 15))