datos <- read.csv2("IC.csv")
ambito <- datos$ambito
##Tabla de distribucion de probabilidad
TDP <- table(ambito)
tablambito <- as.data.frame(TDP)
p <- tablambito$Freq/sum(tablambito$Freq)
P <- p*100
sum(P)
## [1] 100
tablambito <- data.frame(tablambito,P)

barplot(tablambito$P,main = "Gráfica #1: Distribución de probabilidad del numero de empresa encargada",
        xlab = "Empresa", ylab = "Porcentaje",names.arg = tablambito$ambito, col = "red")