Muestreo del Trabajo

Diplomado en Gestión de Obras y Proyectos
Proyecto de Investigación 2016 de 2018

Consideraciones Generales

Ejemplo de Muestreo del Trabajos:

Atención

  • Los archivos de datos deben guardarse en carpeta compartida g-drive o drop_box
  • Tienen que tener formato csv
  • O estar guardados en la misma carpeta que tiene esta página de web
  • Carpeta de referencia

    Si agrega avances de obra, asegúrese de cargarlos en la carpeta:

    getwd()
    
    [1] "/media/rpalma/OS/AAA_Datos/2018/Posgrado/R-CRAN/Muestreo Trabajo"
    

    Seguimiento de Maquinarias

    Si necesita totalizar consumos de combustibles o km de desplazamiento fuera o dentro de la obra:

    Habilite el seguimiento de flota en este link

    https://goo.gl/4qQ4wW

    En caso de accidente presione el botón de pánico

    Carga de Datos

    library(readr)
    Trabajo_Productivo <- read_csv("Trabajo_Productivo2.csv")
    # View(Trabajo_Productivo)
    head(Trabajo_Productivo)
    
    # A tibble: 6 x 27
      Obra    Mue Hora  `N° de obs`     P `A° Hierro` `H° Tabique`  Grua
      <chr> <int> <tim>       <int> <int>       <int>        <int> <int>
    1 Edif…     1 14:00           8     6           3            2     1
    2 Edif…     2 14:15          13     6           0            0     1
    3 Edif…     3 14:30           8     4           3            0     1
    4 Edif…     4 14:45          11     8           0            2     1
    5 Edif…     5 15:00          11     6           3            0     1
    6 Edif…     6 15:15          16    11           3            3     1
    # ... with 19 more variables: Excavación <int>, `Encofrado T°` <int>,
    #   `Tn-2` <int>, `Tn-1` <int>, Tn <int>, C <int>, Transporte <int>,
    #   Instrucciones <int>, Medición <int>, Limpieza <int>, Otros <int>,
    #   NC <int>, Espera <int>, Ocio <int>, Transportes <int>, Descanso <int>,
    #   `Nec. Fisiolog.` <int>, Reprocesos <int>, OBSERVACIONES <chr>
    

    Principales Estadisticos

       Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
      1.000   2.000   3.000   4.143   6.000  13.000 
    

    plot of chunk unnamed-chunk-3

    Muestras de trabajo no contributivo

    Histograma de Trabajo Productivo

    plot of chunk unnamed-chunk-4

    Histograma de Trabajo Productivo (alternativa 2)

    plot of chunk unnamed-chunk-5

    Correlacion entre variables

    plot of chunk unnamed-chunk-6

    Muestreo Detallado por Horas

    plot of chunk unnamed-chunk-7

    Se muestran intervalos en más y menos una vez el error estandard en líneas rojas

    Comparación de Tiempos

    plot of chunk unnamed-chunk-8

    Comparación de Tiempos

    Casos a revisar

    which(Trabajo_Productivo$NC>10)
    
    [1] 13
    
    which(Trabajo_Productivo$C>4)
    
    [1] 16 18
    
    Trabajo_Productivo[c(13,16,18),]
    
    # A tibble: 3 x 27
      Obra    Mue Hora  `N° de obs`     P `A° Hierro` `H° Tabique`  Grua
      <chr> <int> <tim>       <int> <int>       <int>        <int> <int>
    1 Edif…    13 17:00          27    12           6            0     1
    2 Edif…    16 17:45          19    11           0            2     1
    3 Edif…    18 18:15          24    14           3            3     1
    # ... with 19 more variables: Excavación <int>, `Encofrado T°` <int>,
    #   `Tn-2` <int>, `Tn-1` <int>, Tn <int>, C <int>, Transporte <int>,
    #   Instrucciones <int>, Medición <int>, Limpieza <int>, Otros <int>,
    #   NC <int>, Espera <int>, Ocio <int>, Transportes <int>, Descanso <int>,
    #   `Nec. Fisiolog.` <int>, Reprocesos <int>, OBSERVACIONES <chr>
    

    Matriz de Covarianza

    plot(Trabajo_Productivo[(1:27),(2:20)])
    

    plot of chunk unnamed-chunk-10

    Comparacion Final

    plot of chunk unnamed-chunk-11