Graficas en R

Vamos a realizar la grafica de la funcion seno(x) donde x varie de -pi a pi

Seno <- function(x)
 {
 y = sin(x)
 plot(x, y, main="Ejemplo de gráficos en R",
 xlab="x", ylab="y = Seno(x)", col="blue", pch=1)
} 

x<-seq(-pi, pi, len=100)
Seno(x) 

Tipo <- c("CC", "PC", "SC"); Tipo

[1] "CC" "PC" "SC"

# crea un vector en las que contiene los tres tipos de refrescos
Consumo <- sample(Tipo, 20, replace=TRUE); Consumo 

 [1] "PC" "PC" "PC" "CC" "SC" "SC" "CC" "CC" "SC" "CC" "SC" "PC" "CC" "SC" "PC"
[16] "PC" "PC" "SC" "PC" "CC"

write(Consumo, "Consumo.txt") 
setwd("C:\\Users\\MINEDUCYT\\OneDrive\\AÑO 2024\\UNIVERSIDAD DE EL SALVADOR\\programacion en R\\archivos de quartodoc")
write(Consumo, "Consumo.xlsx")
frec <- table(Consumo); frec

Consumo
CC PC SC 
 6  8  6 

prop <- table(Consumo)/length(Consumo); prop 

Consumo
 CC  PC  SC 
0.3 0.4 0.3 

barplot(frec, main="Gráfico de barras", xlab=" Consumo", col=c("yellow", "white", "red"),
sub="Agosto-2024")

# Para las frecuencias relativas
barplot(prop, main="Gráfico de barras", xlab=" Consumo\n", col=c("yellow", "white",
"red"), sub="Agosto-2024")