2020_Tesis_Calidad radiográfica por estudiantes Odontología

#cargo el df

#packages

install.packages("ggsignif")

trying URL 'https://cran.rstudio.com/bin/macosx/contrib/4.0/ggsignif_0.6.0.tgz'
Content type 'application/x-gzip' length 98650 bytes (96 KB)
==================================================
downloaded 96 KB

The downloaded binary packages are in
    /var/folders/_w/9db1v0_50cq_9wjx0q13m6kr0000gn/T//RtmpQYyFNl/downloaded_packages

#grafica

#los historgramas de distribucion

#transformo el df

#agrupo item por criterio

df1 %>% 
   group_by(Item, Criterio) %>% 
  summarise(n=n(), Porcentaje= `n`/880*100) %>% 
  ungroup()

`summarise()` regrouping output by 'Item' (override with `.groups` argument)

#grafica

df1 %>% 
   group_by(Item, Criterio) %>% 
  summarise(n=n(), Porcentaje= `n`/880*100) %>% 
  ungroup() %>% 
  ggplot(aes(x=Item, #todo grafico tiene un orden 
             y=n, fill=Criterio, label=n)) + 
  geom_col() + 
  theme_classic() +
  coord_flip() +
  scale_fill_manual(values=c("deepskyblue3", "indianred1")) +
  labs(title = "Evaluacion de errores radiograficos", 
       y = "Frecuencia", 
       x = "Item") 

`summarise()` regrouping output by 'Item' (override with `.groups` argument)

#Existen diferencias entre aceptabilidad y el sector radiografico ???

chisq.test(df$Aceptabilidad, df$Sector.radiografico)

    Pearson's Chi-squared test with Yates' continuity correction

data:  df$Aceptabilidad and df$Sector.radiografico
X-squared = 2.6, df = 1, p-value = 0.1