2019_Investigacion local_Garay_Moreno

packages

install.packages("ggplo2")

Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente
Error in readRDS(file) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente

Warning in install.packages :
  package 'ggplo2' is not available (for R version 3.4.2)

Error in readRDS(pfile) : 
  no puede leerse espacio de trabajo versi'on 3 escrita por R 3.6.0; necesita R 3.5.0 m'as reciente

abrir df de pag.web

summary del df /distribucion de todos los datos

summary(df)

       Genero        Edad        Residencia Fumador Visitas_dentista        VisitasDentista
 Femenino :34   Min.   :60.00   Rural :26   No:40   1 o m\303\241s:26   Menos de una:29    
 Masculino:21   1st Qu.:60.00   Urbana:29   Si:15   Menos de 1    :29   Una o mas   :26    
                Median :60.00                                                              
                Mean   :60.76                                                              
                3rd Qu.:61.00                                                              
                Max.   :63.00                                                              
          Pregunta1           Pregunta2           Pregunta3           Pregunta4           Pregunta5 
 Algunas veces :21   Algunas veces : 7   Algunas veces :13   Algunas veces :14   Algunas veces :11  
 Casi Nunca    :14   Casi nunca    :21   Casi nunca    :12   Casi Nunca    :14   Casi nunca    :13  
 Frecuentemente:14   Frecuentemente: 9   Frecuentemente:22   Frecuentemente:20   Frecuentemente:16  
 Nunca         : 4   Nunca         :13   Nunca         : 3   Nunca         : 4   Nunca         : 4  
 Siempre       : 2   Siempre       : 5   Siempre       : 5   Siempre       : 3   Siempre       :11  
                                                                                                    
          Pregunta6           Pregunta7           Pregunta8           Pregunta9           Pregunta10
 Algunas veces : 8   Algunas veces : 7   Algunas veces : 6   Algunas veces : 9   Algunas veces : 8  
 Casi Nunca    :17   Casi nunca    :24   Casi nunca    :20   Casi nunca    :30   Casi nunca    :21  
 Frecuentemente:16   Frecuentemente:15   Frecuentemente:12   Frecuentemente: 6   Frecuentemente:12  
 Nunca         : 3   Nunca         : 2   Nunca         :11   Nunca         : 9   Nunca         :10  
 Siempre       :11   Siempre       : 7   Siempre       : 6   Siempre       : 1   Siempre       : 4  
                                                                                                    
          Pregunta11          Pregunta12          Pregunta13          Pregunta14 Puntaje.total  
 Algunas veces : 6   Algunas veces : 7   Algunas veces : 4   Algunas veces : 3   Min.   : 7.00  
 Casi Nunca    :30   Casi nunca    :29   Casi nunca    :33   Frecuentemente: 5   1st Qu.:17.00  
 Frecuentemente: 6   Frecuentemente: 7   Frecuentemente: 3   Nunca         :17   Median :24.00  
 Nunca         :12   Nunca         :12   Nunca         :15   Siempre       : 1   Mean   :23.27  
 Siempre       : 1                                           casi nunca    :29   3rd Qu.:29.00  
                                                                                 Max.   :44.00  
 Impacto  
 Alto:15  
 Bajo:40  
          
          
          
          

glimpse

glimpse(df1)

Observations: 770
Variables: 10
$ Genero           <fct> Masculino, Masculino, Masculino, Masculino, Masculino, Femenino, Femenin...
$ Edad             <int> 61, 63, 62, 60, 60, 61, 60, 60, 60, 60, 60, 60, 61, 61, 60, 60, 61, 61, ...
$ Residencia       <fct> Urbana, Rural, Rural, Rural, Rural, Rural, Rural, Urbana, Urbana, Urbana...
$ Fumador          <fct> Si, No, No, No, Si, No, No, No, No, No, No, Si, Si, Si, Si, Si, No, Si, ...
$ Visitas_dentista <fct> 1 o m<c3><a1>s, Menos de 1, 1 o m<c3><a1>s, 1 o m<c3><a1>s, Menos de 1, 1 o m<c3><a1>s, Menos de...
$ VisitasDentista  <fct> Una o mas, Menos de una, Una o mas, Una o mas, Menos de una, Una o mas, ...
$ Puntaje.total    <int> 20, 29, 9, 24, 38, 18, 7, 27, 18, 14, 17, 36, 25, 25, 37, 26, 34, 25, 27...
$ Impacto          <fct> Bajo, Alto, Bajo, Bajo, Alto, Bajo, Bajo, Bajo, Bajo, Bajo, Bajo, Alto, ...
$ Item             <chr> "Pregunta1", "Pregunta1", "Pregunta1", "Pregunta1", "Pregunta1", "Pregun...
$ Respuesta        <chr> "Nunca", "Frecuentemente", "Casi Nunca", "Algunas veces", "Algunas veces...

install.packages("janitor")
library("janitor")
install.packages("skimr")
library("skimr")

skimr del df1

skimr::skim(df1)

Skim summary statistics
 n obs: 770 
 n variables: 10 

-- Variable type:character ---------------------------------------------------------------------------
  variable missing complete   n min max empty n_unique
      Item       0      770 770   9  10     0       14
 Respuesta       0      770 770   5  14     0        7

-- Variable type:factor ------------------------------------------------------------------------------
         variable missing complete   n n_unique                top_counts ordered
          Fumador       0      770 770        2   No: 560, Si: 210, NA: 0   FALSE
           Genero       0      770 770        2 Fem: 476, Mas: 294, NA: 0   FALSE
          Impacto       0      770 770        2 Baj: 560, Alt: 210, NA: 0   FALSE
       Residencia       0      770 770        2 Urb: 406, Rur: 364, NA: 0   FALSE
  VisitasDentista       0      770 770        2 Men: 406, Una: 364, NA: 0   FALSE
 Visitas_dentista       0      770 770        2 Men: 406, 1 o: 364, NA: 0   FALSE

-- Variable type:integer -----------------------------------------------------------------------------
      variable missing complete   n  mean   sd p0 p25 p50 p75 p100
          Edad       0      770 770 60.76 0.89 60  60  60  61   63
 Puntaje.total       0      770 770 23.27 8.54  7  17  24  29   44
                                             hist
 <U+2587><U+2581><U+2583><U+2581><U+2581><U+2583><U+2581><U+2581>
 <U+2582><U+2586><U+2585><U+2587><U+2586><U+2583><U+2582><U+2581>

Agrupo por genero

agrupo por Residencia

agrupo por Fumador

agrupo por Visitas al dentista

la edad

Grafica impacto por puntaje total

Existe diferencia en el impacto ???

t.test(df1$Puntaje.total~df1$Impacto)

    Welch Two Sample t-test

data:  df1$Puntaje.total by df1$Impacto
t = 38.244, df = 506.57, p-value < 2.2e-16
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 13.99227 15.50773
sample estimates:
mean in group Alto mean in group Bajo 
             34.00              19.25