Documento 8 Visualizacion

Para poder usar el comando include_graphics se necesita::

• Latex: En Windows instalar MikTeX, en Mac MacTex.
• Pandoc: universal document converter - (https://pandoc.org). Instalar para el S.O. de tu ordenador.

8.1 Ejercicio 1

Introducir en R el siguiente data frame:

mis.Plantas <- data.frame(Plantas = c("Planta1", "Planta1", "Planta1", "Planta2", 
         "Planta2", "Planta2"),  Tipo = c(1, 2, 3, 1, 2, 3), 
         Eje1 = c(0.2, -0.4, 0.8, -0.2, -0.7, 0.1),  
         Eje2 = c(0.5, 0.3, -0.1, -0.3, -0.1, -0.8))

8.1.1 Gráfica 1

• Utilizando los comandos básicos de R realizar un gráfico lo más similar posible al que aparece en ModeloDeVisualizacion_ejercicio1_2.html.

# Símbolos
simbols <- c(1,2)
simbols <- simbols[as.numeric(mis.Plantas$Plantas)]

# Colores
colors1 <- c("#2271B3", "#ff0080", "#252850")
colors <- colors1[mis.Plantas$Tipo]

plot(mis.Plantas$Eje1, mis.Plantas$Eje2,
     xlab="Eje 1", ylab="Eje 2",
     pch = simbols,
     col = colors)
legend("topright", c("Planta 1", "Planta 2"), 
       pch = c(1:length(unique(mis.Plantas$Plantas))))
legend("bottomright",  c("Tipo 1", "Tipo 2", "Tipo 3"), 
       pch = 19, 
       col = colors1)

8.1.2 Gráfica 2

Hacer lo mismo pero usando la librería ggplot2.

library(ggplot2)

ggplot(mis.Plantas, aes(Eje1, Eje2)) +
  ggtitle("Con ggplot") +
  geom_point(aes(color = Tipo, shape = Plantas), size= 3.5)

8.2 Ejercicio 2

Usaremos el dataset msleep de R (ver las primeras filas del dataset para comprobar la estructura).

• Aplicar ggplot2 para realizar gráficos lo más similares posibles al que aparece en ModeloDeVisualizacion_ejercicio1_2.html.

8.2.1 Gráfica 3

data(msleep)
sleep <- as.data.frame(msleep)
class(sleep)

## [1] "data.frame"

ggplot(sleep, aes(bodywt,sleep_total)) + 
  ggtitle("Datos de sueño - Gráfico 3") +
  xlab("Peso del cuerpo") + ylab("Total horas de sueño") +
  geom_point()

8.2.2 Gráfica 4

data(msleep)
sleep <- as.data.frame(msleep)
class(sleep)

## [1] "data.frame"

ggplot(sleep, aes(bodywt,sleep_total)) + 
  ggtitle("Datos de sueño - Gráfico 4") +
  xlab("Peso del cuerpo") + ylab("Total horas de sueño") +
  geom_point(aes(color=vore))