Tarea 1

Escalas de Medición en Estadística

library(datos)
library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(descriptr)

library(ggplot2)
library(readxl)
View(clima)

base_tarea <- clima

set.seed(4748)
datos.m <- sample_n(base_tarea,size = 120,replace = FALSE)
tabla_frec <- table(datos.m$precipitacion)
tabla_frec

## 
##    0 0.01 0.02 0.03 
##  115    2    2    1

barplot(tabla_frec, col = c("mistyrose","antiquewhite1","#F0FFFF","#FFBBFF"),
        horiz=FALSE, density= NULL ,ylab= "Frecuencia absoluta" , border = TRUE,
        ylim=c(0,115),xlab="Categorías de raza",main=" Gráfico de barras para raza")