# Suponiendo que `data` ya está definido y tiene una columna `Carrera`
library(formattable)

# Crear la tabla de frecuencias
tabla <- table(data$Carrera) %>%
  as.data.frame()

names(tabla) <- c("Carrera", "Frecuencia")

# Aplicar formato con barras de color a la columna de frecuencias
formattable(tabla, list(
  Frecuencia = color_bar("lightblue")
))
Carrera Frecuencia
Biología 1
Ingeniería Biomédica 1
Ingeniería Civil 5
Ingeniería de Sistemas 9
Ingeniería Mecánica 7