Practica3

meses<-c("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiembre","Octubre","Noviembre","Diciembre")
cat(meses)

## Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre

ventas<-c(120000,80000,130000,12000,15000,23000,34400,23000,
          98000,34000,50000,45500)
class(ventas)

## [1] "numeric"

class(meses)

## [1] "character"

meses

##  [1] "Enero"      "Febrero"    "Marzo"      "Abril"      "Mayo"      
##  [6] "Junio"      "Julio"      "Agosto"     "Septiembre" "Octubre"   
## [11] "Noviembre"  "Diciembre"

meses <- factor(meses,levels = meses)#interpreta los datos en meses
datos <- data.frame(meses,ventas) #genera un conjunto de datos
datos

##         meses ventas
## 1       Enero 120000
## 2     Febrero  80000
## 3       Marzo 130000
## 4       Abril  12000
## 5        Mayo  15000
## 6       Junio  23000
## 7       Julio  34400
## 8      Agosto  23000
## 9  Septiembre  98000
## 10    Octubre  34000
## 11  Noviembre  50000
## 12  Diciembre  45500

plot(datos)#grafica los factores

###grafica de barras: ventas en funcion de los meses
barplot(ventas ~ meses, datos)