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)