Generar Frecuencias

Cargar Librerias

library(readr)

Cargar datos

datos <- read.csv("https://raw.githubusercontent.com/rpizarrog/Industrias-4.0/main/datos/participantes.csv",
                  encoding = "ISO-1851")

datos
##                                  NOMBRE     CARRERA
## 1             Lidia Ivon Lerma Elizalde INFORMATICA
## 2        María Guadalupe Ibarra Orozco INFORMATICA
## 3                    Marco Antonio Soto INFORMATICA
## 4            Gabriela Hernández Gómez    SISTEMAS
## 5           Galarza Campos Luis Alberto    SISTEMAS
## 6                 Moreno Orozco Arcelia    SISTEMAS
## 7           Nubia Eileen Flores Duarte  INFORMATICA
## 8             Nadia Karina Romo Galindo    SISTEMAS
## 9                   Eduardo Díaz Bueno INFORMATICA
## 10  Paula Angelica  Arámbula Enriquez     SISTEMAS
## 11 Claudia Lizbeth Calderón Betancourt INFORMATICA
## 12        Jose Antonio Gandara Martinez    SISTEMAS
## 13           Ricardo Cortés Fernández    SISTEMAS
## 14                Lidia Vizcarra Favela INFORMATICA
## 15           Andrés Chaidez Rodríguez    SISTEMAS
## 16        Norma Edith Arjon Fernández     SISTEMAS
## 17         Karla Adriana Morales Jurado    SISTEMAS
## 18         Blanca Beatriz López Retana INFORMATICA
## 19       Carlos Adán Méndez Bobadilla    SISTEMAS
## 20             Eduardo Barajas Martinez    SISTEMAS
## 21            Victor Hugo Peña Flores     SISTEMAS
## 22        José Alfredo Zumarán Ríos     SISTEMAS

Mostrar Datos

frecuencia = table(datos$CARRERA)

barplot(frecuencia)