Contenido

Sitios web

Algunos recursos de información en los cuales el usuario podrá encontrar múltiples ayudas, ejemplos, tutoriales y ejercicios para desarrolar con R (y otros lenguajes de programación) son los siguientes:

Material bibliográfico

Además de los sitios web, también se recomienda al usuario tener en cuenta el siguiente material de apoyo:

Guías

Las siguientes son guías de R y R Studio que pueden ser consultadas aquí.

Ejemplos

Estos son algunos ejemplos de diversas aplicaciones que ofrece R y R-Studio dentro de la gran variedad de herramientas disponibles para el usuario. Cada código podrá ser ejecutado por el usuario, obteniendo justo la salida que se muestra debajo de cada script.

Animación 2D con R

library(animation)

saveGIF({
  for(i in 1:100){
    curve(sin(x), from = -5 + (i * 0.05), to = 5 + (i * 0.05), col = "red", ylab = "")
    curve(cos(x), from = -5 + (i * 0.05), to = 5 + (i * 0.05), add = TRUE, col = "blue", ylab = "")
    legend("topright", legend = c("sin(x)", "cos(x)"), fill = c("red", "blue"), bty = "n")
  }
}, interval = 0.1, ani.width = 550, ani.height = 350)

gif

Animación 3D con R

library(animation)

saveGIF({
  for(i in 1:150){
    x <- seq(-6 + (i * 0.05), 6 + (i * 0.05), length= 100)
    y <- x
    f <- function(x, y) { sin(x) + cos(y) }
    z <- outer(x, y, f)
    persp(x, y, z, theta = 45 + (i * 0.5), phi = 35, expand = 0.4, col = "lightblue")
  }
}, interval = 0.1, ani.width = 550, ani.height = 550)

gif

Mapas con R

library(rgdal)

download.file("http://thematicmapping.org/downloads/TM_WORLD_BORDERS_SIMPL-0.3.zip" , destfile = "world_shape_file.zip")
system("unzip world_shape_file.zip")
my_spdf <- readOGR(dsn = getwd(), layer = "TM_WORLD_BORDERS_SIMPL-0.3") 
africa <- my_spdf[my_spdf@data$REGION== 2, ]
plot(africa, xlim = c(-20, 60), ylim = c(-37, 38), col = rgb(0.1, 0.9, 0.3, 0.2), bg = "#A6CAE0" )
plot(africa, xlim = c(-20, 60), ylim = c(-40, 35), col = colors()[1:100], bg = "#A6CAE0")

gif

Arte con R

library(dplyr)
library(ggplot2)

seq(from=-10, to=10, by = 0.05) %>%
expand.grid(x=., y=.) %>%
ggplot(aes(x=(x+pi*sin(y)), y=(y+pi*sin(x)))) +
geom_point(alpha=.1, shape=20, size=1, color="black")+
theme_void()

gif

Gráficos estadísticos con R

x <- runif(300,  min=-10, max=10) 
y <- 0.1 * x^3 - 0.5 * x^2 - x + 10 + rnorm(length(x), 0, 8) 
plot(x, y, col = rgb(0.4, 0.4 ,0.8, 0.6), pch = 16, cex = 1.3) 
model <- lm(y ~ x + I(x^2) + I(x^3))
summary(model)
model$coefficients
summary(model)$adj.r.squared
myPredict <- predict(model) 
ix <- sort(x, index.return = TRUE)$ix
lines(x[ix], myPredict[ix], col = 2, lwd = 2 )  
coeff = round(model$coefficients, 2)
text(3, -70, paste("Model: ", coeff[1], " + ", coeff[2], "*x" , "+", coeff[3], "*x^2", "+", coeff[4], "*x^3", "\n\n", "P-value adjusted = ", round(summary(model)$adj.r.squared, 2)))

gif

Otro ejemplo de gráfico estadístico

library(car)
library(RColorBrewer)

data <- mtcars
my_colors <- brewer.pal(nlevels(as.factor(data$cyl)), "Set2")
scatterplotMatrix(~mpg+disp+drat|cyl, data=data , reg.line="" , smoother="", col=my_colors , smoother.args=list(col="grey"), cex=1.5, pch=c(15,16,17), main="Scatter plot with Three Cylinder Options")

gif

Aquí hay más ejemplos y posibilades gráficas, numéricas y demás, que se pueden lograr con R y R-Studio.