datos<-read.csv("C:/Users/Usuario/Downloads/alumnos inscritos ene-jun 2018.csv")

#datos#

head(datos)

##   no semetre promedio      carrera
## 1  1       7    82.27 ARQUITECTURA
## 2  2      11    82.59 ARQUITECTURA
## 3  3       8    87.47 ARQUITECTURA
## 4  4      12    83.18 ARQUITECTURA
## 5  5      11    83.72 ARQUITECTURA
## 6  6       4    90.11 ARQUITECTURA

Histogramas Industrial

industrial <- datos$promedio[which(datos$promedio > 0 & datos$semetre == 2 & datos$carrera == 'INDUSTRIAL')]

industrial

##  [1] 87.80 92.67 89.17 88.20 92.00 94.83 93.83 90.00 89.40 84.67 89.67
## [12] 94.33 91.50 83.50 90.00 90.33 91.33 89.17 91.17 92.33 89.00 95.17
## [23] 92.00 93.83 94.17 88.17 88.17 88.83 93.00 87.00 85.33 91.67 91.00
## [34] 86.00 86.33 89.60 89.67 92.17 90.17 88.83 89.33 94.00 90.60 92.17
## [45] 88.00 92.33 89.17 95.67 92.83 90.67 89.33 91.80 90.33 88.83 88.20
## [56] 91.67 91.50 90.60 93.67 93.67 88.17 94.33 92.25 82.50 90.80 85.33
## [67] 91.00 88.00 86.67 88.67 94.67 91.67 94.67 95.83 92.00 88.33

n <- length(industrial)
n

## [1] 76

hist(industrial, breaks = "Sturges", freq = TRUE, main = "Promedios de los alumnos INDUSTRIAL del ITD. Sturges", xlab = "Promedios", ylab = "Frecuencia")

hist(industrial, breaks = "Scott", freq = TRUE, main = "Promedios de los alumnos INDUSTRIAL del ITD. Scott", xlab = "Promedios", ylab = "Frecuencia")

hist(industrial, breaks = "FD", freq = TRUE, main = "Promedios de los alumnos INDUSTRIAL del ITD. FD", xlab = "Promedios", ylab = "Frecuencia")

Tabla de Frecuencias industrial mediante sturges

clases <- nclass.Sturges(industrial) 
clases

## [1] 8

tablaindustrial <- transform(table(cut(industrial, breaks = clases)))
tablaindustrial

##          Var1 Freq
## 1 (82.5,84.2]    2
## 2 (84.2,85.8]    3
## 3 (85.8,87.5]    4
## 4 (87.5,89.2]   14
## 5 (89.2,90.8]   18
## 6 (90.8,92.5]   18
## 7 (92.5,94.2]    8
## 8 (94.2,95.8]    9

#Agregar Frecuencia Relativa y porcentual
tablaindustrial<- data.frame(tablaindustrial, 'Freq.Rel' = tablaindustrial$Freq / n)

tablaindustrial<- data.frame(tablaindustrial, 'Freq.Porc' = tablaindustrial$Freq.Rel * 100)

tablaindustrial

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (82.5,84.2]    2 0.02631579  2.631579
## 2 (84.2,85.8]    3 0.03947368  3.947368
## 3 (85.8,87.5]    4 0.05263158  5.263158
## 4 (87.5,89.2]   14 0.18421053 18.421053
## 5 (89.2,90.8]   18 0.23684211 23.684211
## 6 (90.8,92.5]   18 0.23684211 23.684211
## 7 (92.5,94.2]    8 0.10526316 10.526316
## 8 (94.2,95.8]    9 0.11842105 11.842105

Grafica de pastel Sturges

#install.packages("plotrix")
library(plotrix)
etiquetas <- paste(round(tablaindustrial$Freq.Porc,2), " % de ", tablaindustrial$Var1)  

pie3D(round(tablaindustrial$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

#Tabla frecuencia Sturges

clases <- nclass.scott(industrial) 
clases

## [1] 6

tablaindustrial <- transform(table(cut(industrial, breaks = clases)))

tablaindustrial

##          Var1 Freq
## 1 (82.5,84.7]    3
## 2 (84.7,86.9]    5
## 3 (86.9,89.2]   15
## 4 (89.2,91.4]   22
## 5 (91.4,93.6]   17
## 6 (93.6,95.8]   14

Agregar frecuencia relativa y porcentual

tablaindustrial <- data.frame(tablaindustrial, 'Freq.Rel' = tablaindustrial$Freq / n) 

tablaindustrial <- data.frame(tablaindustrial, 'Freq.Porc' = tablaindustrial$Freq.Rel * 100) 


tablaindustrial

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (82.5,84.7]    3 0.03947368  3.947368
## 2 (84.7,86.9]    5 0.06578947  6.578947
## 3 (86.9,89.2]   15 0.19736842 19.736842
## 4 (89.2,91.4]   22 0.28947368 28.947368
## 5 (91.4,93.6]   17 0.22368421 22.368421
## 6 (93.6,95.8]   14 0.18421053 18.421053

Grafica pastel Scott

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablaindustrial$Freq.Porc,2), " % de ", tablaindustrial$Var1)  

pie3D(round(tablaindustrial$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

Tabla de frecuencias industrial FD

clases <- nclass.FD(industrial) 
clases

## [1] 9

tabla.intervalos <- transform(table(cut(industrial, breaks = clases)))

tabla.intervalos

##          Var1 Freq
## 1   (82.5,84]    2
## 2   (84,85.5]    3
## 3 (85.5,86.9]    3
## 4 (86.9,88.4]   10
## 5 (88.4,89.9]   14
## 6 (89.9,91.4]   13
## 7 (91.4,92.9]   16
## 8 (92.9,94.3]    9
## 9 (94.3,95.8]    6

tablaindustrial <- data.frame(tablaindustrial, 'Freq.Rel' = tablaindustrial$Freq / n) 

tablaindustrial <- data.frame(tablaindustrial, 'Freq.Porc' = tablaindustrial$Freq.Rel * 100) 


tablaindustrial

##          Var1 Freq   Freq.Rel Freq.Porc Freq.Rel.1 Freq.Porc.1
## 1 (82.5,84.7]    3 0.03947368  3.947368 0.03947368    3.947368
## 2 (84.7,86.9]    5 0.06578947  6.578947 0.06578947    6.578947
## 3 (86.9,89.2]   15 0.19736842 19.736842 0.19736842   19.736842
## 4 (89.2,91.4]   22 0.28947368 28.947368 0.28947368   28.947368
## 5 (91.4,93.6]   17 0.22368421 22.368421 0.22368421   22.368421
## 6 (93.6,95.8]   14 0.18421053 18.421053 0.18421053   18.421053

Grafica de pastel FD Industrial

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablaindustrial$Freq.Porc,2), " % de ", tablaindustrial$Var1)  

pie3D(round(tablaindustrial$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

Histogramas Electrica

ELECTRICA <- datos$promedio[which(datos$promedio > 0 & datos$semetre == 2 & datos$carrera == 'ELECTRICA')]

ELECTRICA

##  [1] 86.50 91.00 88.75 88.33 90.83 88.83 87.00 83.50 89.00 86.00 85.67
## [12] 83.17 87.25 89.75 83.00 85.60 88.00 84.67 87.25 92.83 87.50 84.67
## [23] 88.33 86.67 87.80 82.33 89.00 94.17 87.00 85.83 83.00 86.67 78.67
## [34] 85.83 90.17 87.50 85.50

n <- length(ELECTRICA)
n

## [1] 37

hist(ELECTRICA, breaks = "Sturges", freq = TRUE, main = "Promedios de los alumnos ELECTRICA del ITD. Sturges", xlab = "Promedios", ylab = "Frecuencia")

hist(ELECTRICA, breaks = "Scott", freq = TRUE, main = "Promedios de los alumnos ELECTRICA del ITD. Scott", xlab = "Promedios", ylab = "Frecuencia")

hist(ELECTRICA, breaks = "FD", freq = TRUE, main = "Promedios de los alumnos ELECTRICA del ITD. FD", xlab = "Promedios", ylab = "Frecuencia")

Tabla de Frecuencias electrica mediante sturges

clases <- nclass.Sturges(ELECTRICA) 
clases

## [1] 7

tablaELECTRICA<- transform(table(cut(ELECTRICA, breaks = clases)))
tablaELECTRICA

##          Var1 Freq
## 1 (78.7,80.9]    1
## 2 (80.9,83.1]    3
## 3 (83.1,85.3]    4
## 4 (85.3,87.5]   15
## 5 (87.5,89.7]    8
## 6   (89.7,92]    4
## 7   (92,94.2]    2

#Agregar Frecuencia Relativa y porcentual
tablaELECTRICA<- data.frame(tablaELECTRICA, 'Freq.Rel' = tablaELECTRICA$Freq / n)

tablaELECTRICA<- data.frame(tablaELECTRICA, 'Freq.Porc' = tablaELECTRICA$Freq.Rel * 100)

tablaELECTRICA

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (78.7,80.9]    1 0.02702703  2.702703
## 2 (80.9,83.1]    3 0.08108108  8.108108
## 3 (83.1,85.3]    4 0.10810811 10.810811
## 4 (85.3,87.5]   15 0.40540541 40.540541
## 5 (87.5,89.7]    8 0.21621622 21.621622
## 6   (89.7,92]    4 0.10810811 10.810811
## 7   (92,94.2]    2 0.05405405  5.405405

Grafica de pastel Sturges

#install.packages("plotrix")
library(plotrix)
etiquetas <- paste(round(tablaELECTRICA$Freq.Porc,2), " % de ", tablaELECTRICA$Var1)  

pie3D(round(tablaELECTRICA$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

#Tabla frecuencia Sturges

clases <- nclass.scott(ELECTRICA) 
clases

## [1] 5

tablaELECTRICA <- transform(table(cut(ELECTRICA, breaks = clases)))

tablaELECTRICA

##          Var1 Freq
## 1 (78.7,81.8]    1
## 2 (81.8,84.9]    7
## 3   (84.9,88]   16
## 4   (88,91.1]   11
## 5 (91.1,94.2]    2

Agregar frecuencia relativa y porcentual

tablaELECTRICA <- data.frame(tablaELECTRICA, 'Freq.Rel' = tablaELECTRICA$Freq / n) 

tablaELECTRICA <- data.frame(tablaELECTRICA, 'Freq.Porc' = tablaELECTRICA$Freq.Rel * 100) 


tablaELECTRICA

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (78.7,81.8]    1 0.02702703  2.702703
## 2 (81.8,84.9]    7 0.18918919 18.918919
## 3   (84.9,88]   16 0.43243243 43.243243
## 4   (88,91.1]   11 0.29729730 29.729730
## 5 (91.1,94.2]    2 0.05405405  5.405405

Grafica pastel Scott

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablaELECTRICA$Freq.Porc,2), " % de ", tablaELECTRICA$Var1)  

pie3D(round(tablaELECTRICA$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

Tabla de frecuencias electrica FD

clases <- nclass.FD(ELECTRICA) 
clases

## [1] 9

tabla.intervalos <- transform(table(cut(ELECTRICA, breaks = clases)))

tabla.intervalos

##          Var1 Freq
## 1 (78.7,80.4]    1
## 2 (80.4,82.1]    0
## 3 (82.1,83.8]    5
## 4 (83.8,85.6]    3
## 5 (85.6,87.3]   12
## 6   (87.3,89]   10
## 7   (89,90.7]    2
## 8 (90.7,92.4]    2
## 9 (92.4,94.2]    2

tablaELECTRICA <- data.frame(tablaELECTRICA, 'Freq.Rel' = tablaELECTRICA$Freq / n) 

tablaELECTRICA <- data.frame(tablaELECTRICA, 'Freq.Porc' = tablaELECTRICA$Freq.Rel * 100) 


tablaELECTRICA

##          Var1 Freq   Freq.Rel Freq.Porc Freq.Rel.1 Freq.Porc.1
## 1 (78.7,81.8]    1 0.02702703  2.702703 0.02702703    2.702703
## 2 (81.8,84.9]    7 0.18918919 18.918919 0.18918919   18.918919
## 3   (84.9,88]   16 0.43243243 43.243243 0.43243243   43.243243
## 4   (88,91.1]   11 0.29729730 29.729730 0.29729730   29.729730
## 5 (91.1,94.2]    2 0.05405405  5.405405 0.05405405    5.405405

Grafica de pastel FD Electrica

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablaELECTRICA$Freq.Porc,2), " % de ", tablaELECTRICA$Var1)  

pie3D(round(tablaELECTRICA$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

### Histogramas Informatica

informatica <- datos$promedio[which(datos$promedio > 0 & datos$semetre == 2 & datos$carrera == 'INFORMATICA')]

informatica

##  [1] 78.00 81.50 82.00 85.20 86.67 86.60 86.00 84.20 80.33 84.33 87.00
## [12] 84.60 82.00 86.00 87.67 85.67 86.00 85.83 82.50 85.00 86.50 81.25
## [23] 92.67 86.17 85.00 81.83 85.33

n <- length(informatica)
 n

## [1] 27

hist(informatica, breaks = "Sturges", freq = TRUE, main = "Promedios de los alumnos Informatica del ITD. Sturges", xlab = "Promedios", ylab = "Frecuencia")

hist(informatica, breaks = "Scott", freq = TRUE, main = "Promedios de los alumnos InformaticA del ITD. Scott", xlab = "Promedios", ylab = "Frecuencia")

hist(informatica, breaks = "FD", freq = TRUE, main = "Promedios de los alumnos informatica del ITD. FD", xlab = "Promedios", ylab = "Frecuencia")

### Tabla de frecuencias de Informatica mediante Sturges

clases <- nclass.Sturges(informatica)
 clases

## [1] 6

tablainformatica<- transform(table(cut(informatica, breaks = clases)))
tablainformatica

##          Var1 Freq
## 1   (78,80.4]    2
## 2 (80.4,82.9]    6
## 3 (82.9,85.3]    7
## 4 (85.3,87.8]   11
## 5 (87.8,90.2]    0
## 6 (90.2,92.7]    1

#Agregar Frecuencia Relativa y porcentual
tablainformatica<- data.frame(tablainformatica, 'Freq.Rel' = tablainformatica$Freq / n)

tablainformatica<- data.frame(tablainformatica, 'Freq.Porc' = tablainformatica$Freq.Rel * 100)

tablainformatica

##          Var1 Freq   Freq.Rel Freq.Porc
## 1   (78,80.4]    2 0.07407407  7.407407
## 2 (80.4,82.9]    6 0.22222222 22.222222
## 3 (82.9,85.3]    7 0.25925926 25.925926
## 4 (85.3,87.8]   11 0.40740741 40.740741
## 5 (87.8,90.2]    0 0.00000000  0.000000
## 6 (90.2,92.7]    1 0.03703704  3.703704

Tabla de frecuencia de Informatica mediante Scott

clases <- nclass.scott(informatica)
 clases

## [1] 5

tablainformatica <- transform(table(cut(informatica, breaks = clases)))
 tablainformatica

##          Var1 Freq
## 1   (78,80.9]    2
## 2 (80.9,83.9]    6
## 3 (83.9,86.8]   16
## 4 (86.8,89.7]    2
## 5 (89.7,92.7]    1

#Agregar Frecuencia Relativa y porcentual
tablainformatica <- data.frame(tablainformatica, 'Freq.Rel' = tablainformatica$Freq / n)
 
 tablainformatica <- data.frame(tablainformatica, 'Freq.Porc' = tablainformatica$Freq.Rel * 100)

 tablainformatica

##          Var1 Freq   Freq.Rel Freq.Porc
## 1   (78,80.9]    2 0.07407407  7.407407
## 2 (80.9,83.9]    6 0.22222222 22.222222
## 3 (83.9,86.8]   16 0.59259259 59.259259
## 4 (86.8,89.7]    2 0.07407407  7.407407
## 5 (89.7,92.7]    1 0.03703704  3.703704

Gradica de pastel de Informatica mediante Scott

# install.packages("plotrix") 
 library(plotrix) 
 
 
 etiquetas <- paste(round(tablainformatica$Freq.Porc,2), " % de ", tablainformatica$Var1)  
 
 pie3D(round(tablainformatica$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

### Tabla de frecuencias de Informatica mediante FD

clases <- nclass.FD(informatica)
 clases

## [1] 6

tablainformatica <- transform(table(cut(informatica, breaks = clases)))
 tablainformatica

##          Var1 Freq
## 1   (78,80.4]    2
## 2 (80.4,82.9]    6
## 3 (82.9,85.3]    7
## 4 (85.3,87.8]   11
## 5 (87.8,90.2]    0
## 6 (90.2,92.7]    1

#Agregar Frecuencia Relativa y porcentual
tablainformatica <- data.frame(tablainformatica, 'Freq.Rel' = tablainformatica$Freq / n)
 
 tablainformatica <- data.frame(tablainformatica, 'Freq.Porc' = tablainformatica$Freq.Rel * 100)

 tablainformatica

##          Var1 Freq   Freq.Rel Freq.Porc
## 1   (78,80.4]    2 0.07407407  7.407407
## 2 (80.4,82.9]    6 0.22222222 22.222222
## 3 (82.9,85.3]    7 0.25925926 25.925926
## 4 (85.3,87.8]   11 0.40740741 40.740741
## 5 (87.8,90.2]    0 0.00000000  0.000000
## 6 (90.2,92.7]    1 0.03703704  3.703704

Histogramas Sistemas

sistemas <- datos$promedio[which(datos$promedio > 0 & datos$semetre == 2 & datos$carrera == 'SISTEMAS')]

sistemas

##  [1] 77.67 84.50 88.33 79.20 83.67 88.33 90.83 88.25 85.20 86.67 94.83
## [12] 76.67 83.20 92.00 92.50 89.67 89.00 82.20 86.33 82.50 84.80 93.33
## [23] 90.67 81.50 93.00 85.80 85.33 81.00 87.00 91.67 79.75 82.17 83.33
## [34] 89.00 87.00 87.83 85.67 86.00 84.67 89.67 82.33 86.33 88.50 81.20
## [45] 77.00 80.50 92.50 79.83 92.00 82.00 82.80 81.80 86.20 82.25 84.60
## [56] 85.25 88.33 85.33 88.20 81.33 85.75 80.50 80.67 87.20 82.33 83.00
## [67] 88.50

n <- length(sistemas)
n

## [1] 67

hist(sistemas, breaks = "Sturges", freq = TRUE, main = "Promedios de los alumnos SISTEMAS del ITD. Sturges", xlab = "Promedios", ylab = "Frecuencia")

hist(sistemas, breaks = "Scott", freq = TRUE, main = "Promedios de los alumnos SISTEMAS del ITD. Scott", xlab = "Promedios", ylab = "Frecuencia")

hist(sistemas, breaks = "FD", freq = TRUE, main = "Promedios de los alumnos SISTEMAS del ITD. FD", xlab = "Promedios", ylab = "Frecuencia")

Tabla de Frecuencias Sistemas mediante sturges

clases <- nclass.Sturges(sistemas) 
clases

## [1] 8

tablasistemas <- transform(table(cut(sistemas, breaks = clases)))
tablasistemas

##          Var1 Freq
## 1 (76.7,78.9]    3
## 2 (78.9,81.2]    8
## 3 (81.2,83.5]   14
## 4 (83.5,85.8]   11
## 5   (85.8,88]   10
## 6   (88,90.3]   11
## 7 (90.3,92.6]    7
## 8 (92.6,94.8]    3

#Agregar Frecuencia Relativa y porcentual
tablasistemas <- data.frame(tablasistemas, 'Freq.Rel' = tablasistemas$Freq / n)

tablasistemas<- data.frame(tablasistemas, 'Freq.Porc' = tablasistemas$Freq.Rel * 100)

tablasistemas

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (76.7,78.9]    3 0.04477612  4.477612
## 2 (78.9,81.2]    8 0.11940299 11.940299
## 3 (81.2,83.5]   14 0.20895522 20.895522
## 4 (83.5,85.8]   11 0.16417910 16.417910
## 5   (85.8,88]   10 0.14925373 14.925373
## 6   (88,90.3]   11 0.16417910 16.417910
## 7 (90.3,92.6]    7 0.10447761 10.447761
## 8 (92.6,94.8]    3 0.04477612  4.477612

Grafica de pastel Sturges

#install.packages("plotrix")
library(plotrix)
etiquetas <- paste(round(tablasistemas$Freq.Porc,2), " % de ", tablasistemas$Var1)  

pie3D(round(tablasistemas$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

#Tabla frecuencia Sturges

clases <- nclass.scott(sistemas) 
clases

## [1] 5

tablasistemas <- transform(table(cut(sistemas, breaks = clases)))

tablasistemas

##          Var1 Freq
## 1 (76.7,80.3]    6
## 2 (80.3,83.9]   20
## 3 (83.9,87.6]   19
## 4 (87.6,91.2]   14
## 5 (91.2,94.8]    8

Agregar frecuencia relativa y porcentual

tablasistemas <- data.frame(tablasistemas, 'Freq.Rel' = tablasistemas$Freq / n) 

tablasistemas <- data.frame(tablasistemas, 'Freq.Porc' = tablasistemas$Freq.Rel * 100) 


tablasistemas

##          Var1 Freq   Freq.Rel Freq.Porc
## 1 (76.7,80.3]    6 0.08955224  8.955224
## 2 (80.3,83.9]   20 0.29850746 29.850746
## 3 (83.9,87.6]   19 0.28358209 28.358209
## 4 (87.6,91.2]   14 0.20895522 20.895522
## 5 (91.2,94.8]    8 0.11940299 11.940299

Grafica pastel Scott

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablasistemas$Freq.Porc,2), " % de ", tablasistemas$Var1)  

pie3D(round(tablasistemas$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

Tabla de frecuencias Sistemas FD

clases <- nclass.FD(sistemas) 
clases

## [1] 7

tabla.intervalos <- transform(table(cut(sistemas, breaks = clases)))

tabla.intervalos

##          Var1 Freq
## 1 (76.7,79.3]    4
## 2 (79.3,81.9]   10
## 3 (81.9,84.5]   12
## 4   (84.5,87]   18
## 5   (87,89.6]   11
## 6 (89.6,92.2]    7
## 7 (92.2,94.8]    5

tablasistemas <- data.frame(tablasistemas, 'Freq.Rel' = tablasistemas$Freq / n) 

tablasistemas <- data.frame(tablasistemas, 'Freq.Porc' = tablasistemas$Freq.Rel * 100) 


tablasistemas

##          Var1 Freq   Freq.Rel Freq.Porc Freq.Rel.1 Freq.Porc.1
## 1 (76.7,80.3]    6 0.08955224  8.955224 0.08955224    8.955224
## 2 (80.3,83.9]   20 0.29850746 29.850746 0.29850746   29.850746
## 3 (83.9,87.6]   19 0.28358209 28.358209 0.28358209   28.358209
## 4 (87.6,91.2]   14 0.20895522 20.895522 0.20895522   20.895522
## 5 (91.2,94.8]    8 0.11940299 11.940299 0.11940299   11.940299

Grafica de pastel FD Sistemas

# install.packages("plotrix") 
library(plotrix) 


etiquetas <- paste(round(tablasistemas$Freq.Porc,2), " % de ", tablasistemas$Var1)  

pie3D(round(tablasistemas$Freq.Porc,2), labels = etiquetas, main = paste("Frecuencia de clases. % ", n, " Observaciones"), labelcex = 0.5)

Practica4EQ6

Iván Ortega Delgado ,Nevarez Molina Sergio Andres, Oscar Carillo Castillo , Cesar Cervantes Barraza , Israel Duarte Vasquez ,Cesar Alejandro Cumplido Garcia

4 de marzo de 2018

Histogramas Industrial

Tabla de Frecuencias industrial mediante sturges

Grafica de pastel Sturges

Agregar frecuencia relativa y porcentual

Grafica pastel Scott

Tabla de frecuencias industrial FD

Grafica de pastel FD Industrial

Histogramas Electrica

Tabla de Frecuencias electrica mediante sturges

Grafica de pastel Sturges

Agregar frecuencia relativa y porcentual

Grafica pastel Scott

Tabla de frecuencias electrica FD

Grafica de pastel FD Electrica

Tabla de frecuencia de Informatica mediante Scott

Gradica de pastel de Informatica mediante Scott

Histogramas Sistemas

Tabla de Frecuencias Sistemas mediante sturges

Grafica de pastel Sturges

Agregar frecuencia relativa y porcentual

Grafica pastel Scott

Tabla de frecuencias Sistemas FD

Grafica de pastel FD Sistemas