knitr::opts_chunk$set(echo = TRUE)
library(readxl)
Datos_finales <- read_excel("C:/Users/tobyt/Documents/ProyectoMiriapodosArthropoda.xlsx")
View(Datos_finales)

Asunto

Se presenta el documento que en un futuro será la entrega final del proyecto de caracterización de miriápodos por parte del grupo Arthropoda

Gráfica

library(ggplot2)
datos2 <- subset(Datos_finales, !is.na(CAT))
ggplot(datos2,
       aes(x = CAT,
           y = `Largo (cm)`,
           fill = CAT)) +
  geom_boxplot() +
  theme_bw() +
  labs(
    title = "Variación del peso de los subfilos en cada sitio",
    x = "Subfilos por sitio",
    y = "Largo (cm)",
    na.rm=TRUE
  )
## Ignoring unknown labels:
## • na.rm : "TRUE"

Figura 1. Boxplot del ANDEVA de largo de miriápodos, SF_D: Diplópodos San Fernando, SR_C: Quilópodos San Rafael, SR_D: Diplópodos de San Rafael

Imagen

library(magick)
## Linking to ImageMagick 6.9.13.29
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11
Figura_1 <- image_read("C:/Users/tobyt/Pictures/Screenshots/Figuradefenotipos.png")
print(Figura_1)
## # A tibble: 1 × 7
##   format width height colorspace matte filesize density
##   <chr>  <int>  <int> <chr>      <lgl>    <int> <chr>  
## 1 PNG     1018    856 sRGB       TRUE   1272932 47x47

Figura 2. Figurita de fenotipos

Reflexión

este semestre aprendí a que tengo que seleccionar mejor a mi grupo de trabajo, también aprendí que no es tan malo programar análisis estadísticos en comparación con programar en diseño web.

Dentro de todo, disfruté desarrollando mi proyecto, conociendo especies nuevas y apreciando lados de la biología que no conocía, me alegra haber aprendido lo que aprendí y continuaré reforzándolo en el futuro.