Comando, Graficos En R

Histogramas y la densidad de parcelas

* Histograma Simple
* hist(mtcars$mpg)

* Histograma de colores con diferentes números de paralelas
* hist(mtcars$mpg, breaks=12, col="red")* Histograma con una curva normal (Peter Dalgaard)
* x <- mtcars$mpg
* h<-hist(x, breaks=10, col="red", xlab="Miles Per Gallon", main="Histogram withNormal Curve")
*xfit<-seq(min(x),max(x),length=40)
* yfit<-dnorm(xfit,mean=mean(x),sd=sd(x))
* yfit <- yfit*diff(h$mids[1:2])*length(x)
* lines(xfit, yfit, col="blue", lwd=2)

Gráficos de densidadkernel

* Gráfico de densidad Kernel
* d <- density(mtcars$mpg)
* plot(d)

* Gráfico de densidad con color
* d <- density(mtcars$mpg)
* plot(d, main="Kernel Density ofMiles Per Gallon")
* polygon(d, col="red", border="blue")

Diagrama De Barra (Bar Plots)

* Bar Plot Simple
* counts <- table(mtcars$gear)
* barplot(counts, main="CarDistribution",xlab="Number of Gears")

* Bar Plot Horizontal (con etiquetas)
* counts <- table(mtcars$gear)
* barplot(counts, main="Car Distribution", horiz=TRUE,names.arg=c("3 Gears", "4 Gears", "5Gears"))

* Stacked Bar Plot (con colores y leyenda)
* counts <- table(mtcars$vs, mtcars$gear)
* barplot(counts, main="Car Distribution by Gears and VS",xlab="Number of Gears",col=c("darkblue","red"),legend = rownames(counts))

* Grouped Bar Plot (Barras Agrupadas)
* counts <- table(mtcars$vs, mtcars$gear)
* barplot(counts, main="Car Distribution by Gears andVS",xlab="Number of Gears", col=c("darkblue","red"),legend = rownames(counts), beside=TRUE)
Gráficos circulares

* Grafico Circular
* slices <- c(10, 12,4, 16, 8)
* lbls <- c("US","UK", "Australia", "Germany", "France")
* pie(slices, labels = lbls, main="Pie Chart of Countries")

* Gráfico Circular (Porcentaje)
* slices <- c(10, 12, 4, 16, 8)
* lbls <-...