R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

################################################################
# Diagrama circular
################################################################
# Ejemplo 1
frecuencia <- c(4,6,5,12,6,8,8);frecuencia
## [1]  4  6  5 12  6  8  8
pie(frecuencia)

pie(frecuencia, clockwise = TRUE) #cambia la direccion

pie(frecuencia, labels = frecuencia) #valor correspondiente de cada sector

porcentaje<-round(frecuencia/sum(frecuencia)*100,2);porcentaje
## [1]  8.16 12.24 10.20 24.49 12.24 16.33 16.33
pie(frecuencia, labels = porcentaje)

# agregando %
porcentaje<-paste0(round(frecuencia/sum(frecuencia)*100,1), "%");porcentaje
## [1] "8.2%"  "12.2%" "10.2%" "24.5%" "12.2%" "16.3%" "16.3%"
pie(frecuencia, labels = porcentaje)

# etiquetas
etiquetas<-c("Capilla del Mar","Caribe","Charleston","De Cameron","Hilton","Las Américas","Santa Clara");etiquetas
## [1] "Capilla del Mar" "Caribe"          "Charleston"      "De Cameron"     
## [5] "Hilton"          "Las Américas"   "Santa Clara"
porcentaje<-paste0(etiquetas, " = ",round(frecuencia/sum(frecuencia)*100,1), "%");porcentaje
## [1] "Capilla del Mar = 8.2%" "Caribe = 12.2%"         "Charleston = 10.2%"    
## [4] "De Cameron = 24.5%"     "Hilton = 12.2%"         "Las Américas = 16.3%" 
## [7] "Santa Clara = 16.3%"
pie(frecuencia, labels = porcentaje)

etiquetas<-c("Capilla del Mar","Caribe","Charleston","De Cameron","Hilton","Las Américas","Santa Clara");etiquetas
## [1] "Capilla del Mar" "Caribe"          "Charleston"      "De Cameron"     
## [5] "Hilton"          "Las Américas"   "Santa Clara"
porcentaje<-paste0(etiquetas, " (",round(frecuencia/sum(frecuencia)*100,1), "%",")");porcentaje
## [1] "Capilla del Mar (8.2%)" "Caribe (12.2%)"         "Charleston (10.2%)"    
## [4] "De Cameron (24.5%)"     "Hilton (12.2%)"         "Las Américas (16.3%)" 
## [7] "Santa Clara (16.3%)"
pie(frecuencia, labels = porcentaje)

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.