Estudio Javier Duran

los packages

library("tidyverse")

Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
package 'ggplot2' was built under R version 3.4.4package 'dplyr' was built under R version 3.4.2Conflicts with tidy packages ------------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

library("tidyverse")
library("ggthemes")
library("forcats")

abro el df de .csv google

df <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vRO6wXeSyMjBwLr3lHUjXhjeAc8Bh-K-e1WfG4F_fKUlrVvZSXyHnQfeeUoE04kEWOtjTbx3c-zbbhk/pub?gid=149938304&single=true&output=csv")

summary

summary(df)

       Adenotonsilectomia    Rechina       Frecuencia_1         Edad           Sexo1      
 Post_Quirurgico:398      Min.   :0.000   Min.   :0.0000   Min.   : 2.00   Min.   :0.000  
 Pre_Quirurgico :398      1st Qu.:0.000   1st Qu.:0.0000   1st Qu.: 8.00   1st Qu.:1.000  
                          Median :1.000   Median :0.0000   Median : 9.50   Median :1.000  
                          Mean   :1.044   Mean   :0.5126   Mean   :10.21   Mean   :1.447  
                          3rd Qu.:2.000   3rd Qu.:1.0000   3rd Qu.:11.00   3rd Qu.:2.000  
                          Max.   :2.000   Max.   :3.0000   Max.   :51.00   Max.   :2.000  
 Rechinamiento                          Frecuencia      Sexo    
 No     :349   Cinco a siete veces por semana: 52   Hombre:436  
 No sabe:206   Dos a cuatro veces por semana : 66   Mujer :360  
 Si     :241   No aplica                     :558               
               Una vez por semana            :120               
                                                                
                                                                

Grafica

creo objetivo df1

grafico2

tabla adenotonsilectomia por rechinamiento

table(df$Adenotonsilectomia,df$Rechinamiento)

                 
                   No No sabe  Si
  Post_Quirurgico 264     101  33
  Pre_Quirurgico   85     105 208

Existe diferencia ???

chisq.test(table(df$Adenotonsilectomia,df$Rechinamiento))

    Pearson's Chi-squared test

data:  table(df$Adenotonsilectomia, df$Rechinamiento)
X-squared = 218.96, df = 2, p-value < 2.2e-16

Tabla sexo por rechinamiento

table(df$Sexo,df$Rechinamiento)

        
          No No sabe  Si
  Hombre 186     120 130
  Mujer  163      86 111

diferencias?

chisq.test(table(df$Sexo,df$Rechinamiento))

    Pearson's Chi-squared test

data:  table(df$Sexo, df$Rechinamiento)
X-squared = 1.3816, df = 2, p-value = 0.5012

Agrupo por frecuencia

Grafica