Paula

#packages

library("tidyverse")
library("ggsignif")

#ejemplo para boxplot convencional con colores

boxplot(df$UFC.mL ~ df$Material, data = df, col = c("tomato", "lightblue"), ylab = "UFC/mL", xlab = "Material", main="Agregar el Titulo que quieras")

#abro el aureus

aureus <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSKVOUoPU4CzAZUYqzy4FzyK0ZnX7xPfmTJ9m4xnRfdUCxsQf2hJrLxZ9rct15BrIQemdn-Agkf9Xi8/pub?gid=0&single=true&output=csv")

#grafica

aureus %>% 
  ggplot(aes(x=Material, y=UCF.cm2, fill=Material))+
  geom_boxplot()+
  theme_classic()+
  scale_fill_viridis_d(direction = -1) + #para darle fotmato de colores 
   annotate("text", x = 1.5 ,y = 2500000000, label = "****", size = 5)+ #para añadir significancia
  ggtitle("titulo")+ #para el titulo general de la grafica 
  ylab("UCF/mL") # para el titulo al eje y

NA

#abro el df para candida

candida <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSKVOUoPU4CzAZUYqzy4FzyK0ZnX7xPfmTJ9m4xnRfdUCxsQf2hJrLxZ9rct15BrIQemdn-Agkf9Xi8/pub?gid=782499918&single=true&output=csv")

#grafica para candida

candida %>% 
  ggplot(aes(x=Material, y=UCF.cm2))+
  geom_boxplot()+
  theme_classic()

#t.test para candida

t.test(candida$UCF.cm2~candida$Material)

    Welch Two Sample t-test

data:  candida$UCF.cm2 by candida$Material
t = -1.7432, df = 3.011, p-value = 0.1793
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -277867281   80931255
sample estimates:
mean in group Grafé  mean in group PEEK 
           18141492           116609505 

#para fuso

fuso <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSKVOUoPU4CzAZUYqzy4FzyK0ZnX7xPfmTJ9m4xnRfdUCxsQf2hJrLxZ9rct15BrIQemdn-Agkf9Xi8/pub?gid=1516983171&single=true&output=csv")

── Column specification ─────────────────────────────────────────────────────────────────────
cols(
  Material = col_character(),
  `UCF/cm2` = col_double()
)

#grafica para fuso

fuso %>% 
  ggplot(aes(x=Material, y=`UCF/cm2`))+
  geom_boxplot()+
  theme_classic()

#prevotela

prevo <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSKVOUoPU4CzAZUYqzy4FzyK0ZnX7xPfmTJ9m4xnRfdUCxsQf2hJrLxZ9rct15BrIQemdn-Agkf9Xi8/pub?gid=1052216705&single=true&output=csv")

── Column specification ─────────────────────────────────────────────────────────────────────
cols(
  Material = col_character(),
  `UCF/cm2` = col_double()
)

#grafica

prevo %>% 
  ggplot(aes(x=Material, y=`UCF/cm2`))+
  geom_boxplot()+
  theme_classic()