Punto Class

Htecnologia <- c("R", "Python", "Orange", "PowerBi", "Python", "R", "Python", "Orange", "Python", "R")

data.frame(Htecnologia)

##    Htecnologia
## 1            R
## 2       Python
## 3       Orange
## 4      PowerBi
## 5       Python
## 6            R
## 7       Python
## 8       Orange
## 9       Python
## 10           R

df <- data.frame(Htecnologia)

df$Htecnologia

##  [1] "R"       "Python"  "Orange"  "PowerBi" "Python"  "R"       "Python" 
##  [8] "Orange"  "Python"  "R"

df <- data.frame(Htecnologia, 
                 Edad = c(16,17,18,16,17,17,17,18,19,18),
                 Estatura = c(1.60,1.65,1.68,1.58,1.70,1.71,1.67,1.69,1.70,1.56))

df

##    Htecnologia Edad Estatura
## 1            R   16     1.60
## 2       Python   17     1.65
## 3       Orange   18     1.68
## 4      PowerBi   16     1.58
## 5       Python   17     1.70
## 6            R   17     1.71
## 7       Python   17     1.67
## 8       Orange   18     1.69
## 9       Python   19     1.70
## 10           R   18     1.56

table(df$Htecnologia)

## 
##  Orange PowerBi  Python       R 
##       2       1       4       3

TFrecHtec <- data.frame(table(df$Htecnologia))

TFrecHtec

##      Var1 Freq
## 1  Orange    2
## 2 PowerBi    1
## 3  Python    4
## 4       R    3

colnames(TFrecHtec)

## [1] "Var1" "Freq"

colnames(TFrecHtec) <- c("Herramientas","Frecuencia")

TFrecHtec

##   Herramientas Frecuencia
## 1       Orange          2
## 2      PowerBi          1
## 3       Python          4
## 4            R          3

TFrecHtec$FRelativa <- round(TFrecHtec$Frecuencia/sum(TFrecHtec$Frecuencia),3)

TFrecHtec

##   Herramientas Frecuencia FRelativa
## 1       Orange          2       0.2
## 2      PowerBi          1       0.1
## 3       Python          4       0.4
## 4            R          3       0.3

TFrecHtec$FPorcentual <- TFrecHtec$FRelativa*100

TFrecHtec

##   Herramientas Frecuencia FRelativa FPorcentual
## 1       Orange          2       0.2          20
## 2      PowerBi          1       0.1          10
## 3       Python          4       0.4          40
## 4            R          3       0.3          30

FilaTotales <- data.frame(Herramientas="Total",
                          Frecuencia= sum(TFrecHtec$Frecuencia),
                          FRelativa= sum(TFrecHtec$FRelativa),
                          FPorcentual= sum(TFrecHtec$FPorcentual))

FilaTotales

##   Herramientas Frecuencia FRelativa FPorcentual
## 1        Total         10         1         100

rbind(TFrecHtec,FilaTotales)

##   Herramientas Frecuencia FRelativa FPorcentual
## 1       Orange          2       0.2          20
## 2      PowerBi          1       0.1          10
## 3       Python          4       0.4          40
## 4            R          3       0.3          30
## 5        Total         10       1.0         100

barplot(table(df$Htecnologia))

barplot(table(df$Htecnologia),
        main="Gusto por herramientas tecnològicas",
        xlab="Herramienta",
        ylab="Frecuencia",
        col=rainbow(4),
        border = "black")

pie(table(df$Htecnologia),
    main="Distribuciòn de las piezas arquitectònicas",
    col= rainbow(4),
    radius=1)

names(table(df$Htecnologia))

## [1] "Orange"  "PowerBi" "Python"  "R"

round(100*(table(df$Htecnologia))/sum(table(df$Htecnologia)))

## 
##  Orange PowerBi  Python       R 
##      20      10      40      30

EtiquetasPie <- paste(names(table(df$Htecnologia)),
                      round(100*(table(df$Htecnologia))/sum(table(df$Htecnologia)),1),
                      "%")

EtiquetasPie

## [1] "Orange 20 %"  "PowerBi 10 %" "Python 40 %"  "R 30 %"

pie(table(df$Htecnologia),
    main="Distribuciòn de las piezas arquitectònicas",
    labels=EtiquetasPie,
    col=rainbow(4),
    radius=1)