Libreria Janitor
library(tidyverse)
library(janitor)
library(readxl)
## mymsa x
## 1 RFID rfid
## 2 Plant plant
## 3 KillDate kill_date
## 4 BodyNo body_no
## 5 LeftSideScanTime left_side_scan_time
## 6 RightSideScanTime right_side_scan_time
## 7 HangMethod hang_method
## 8 Hgp hgp
## 9 Sex sex
## 10 LeftHscw left_hscw
## 11 RightHscw right_hscw
## 12 TotalHscw total_hscw
## 13 P8Fat p8fat
## 14 Lot lot
## 15 Est % BI est_percent_bi
## 16 HumpCold hump_cold
## 17 Ema ema
## 18 OssificationCold ossification_cold
## 19 AusMarbling aus_marbling
## 20 MsaMarbling msa_marbling
## 21 MeatColour meat_colour
## 22 FatColour fat_colour
## 23 RibfatCold ribfat_cold
## 24 Ph ph
## 25 LoinTemp loin_temp
## 26 FeedType feed_type
## 27 NoDaysOnFeed no_days_on_feed
## 28 MSAIndex msa_index
## 29 spare spare
## meat_colour n percent
## 1B 87 0.02175
## 1C 657 0.16425
## 2 1730 0.43250
## 3 1478 0.36950
## 4 30 0.00750
## 5 14 0.00350
## 6 4 0.00100
## meat_colour n percent
## 1B 87 2%
## 1C 657 16%
## 2 1730 43%
## 3 1478 37%
## 4 30 1%
## 5 14 0%
## 6 4 0%
## spare n percent valid_percent
## NA 4000 1 NA
## meat_colour 1 2
## 1B 0 87
## 1C 87 570
## 2 1443 287
## 3 1477 1
## 4 27 3
## 5 9 5
## 6 1 3
## meat_colour 1 2
## 1B 0 87
## 1C 87 570
## 2 1443 287
## 3 1477 1
## 4 27 3
## 5 9 5
## 6 1 3
## Total 3044 956
## meat_colour 1 2 Total
## 1B 0 87 87
## 1C 87 570 657
## 2 1443 287 1730
## 3 1477 1 1478
## 4 27 3 30
## 5 9 5 14
## 6 1 3 4
## meat_colour 1 2 Total
## 1B 0 87 87
## 1C 87 570 657
## 2 1443 287 1730
## 3 1477 1 1478
## 4 27 3 30
## 5 9 5 14
## 6 1 3 4
## Total 3044 956 4000
## meat_colour 1 2 Total
## 1B 0% 9% 2%
## 1C 3% 60% 16%
## 2 47% 30% 43%
## 3 49% 0% 37%
## 4 1% 0% 1%
## 5 0% 1% 0%
## 6 0% 0% 0%
## Total 100% 100% 100%
## meat_colour 1 2 Total
## 1B 0 (0%) 87 (9%) 87 (2%)
## 1C 87 (3%) 570 (60%) 657 (16%)
## 2 1443 (47%) 287 (30%) 1730 (43%)
## 3 1477 (49%) 1 (0%) 1478 (37%)
## 4 27 (1%) 3 (0%) 30 (1%)
## 5 9 (0%) 5 (1%) 14 (0%)
## 6 1 (0%) 3 (0%) 4 (0%)
## Total 3044 (100%) 956 (100%) 4000 (100%)
## # A tibble: 0 x 29
## # … with 29 variables: rfid <chr>, dupe_count <int>, plant <dbl>,
## # kill_date <dttm>, body_no <dbl>, left_side_scan_time <dbl>,
## # right_side_scan_time <dbl>, hang_method <chr>, hgp <chr>, sex <chr>,
## # left_hscw <dbl>, right_hscw <dbl>, total_hscw <dbl>, p8fat <dbl>,
## # lot <dbl>, est_percent_bi <chr>, hump_cold <dbl>, ema <dbl>,
## # ossification_cold <dbl>, aus_marbling <dbl>, msa_marbling <dbl>,
## # meat_colour <chr>, fat_colour <dbl>, ribfat_cold <dbl>, ph <dbl>,
## # loin_temp <dbl>, feed_type <chr>, no_days_on_feed <dbl>, msa_index <dbl>
## # A tibble: 6 x 29
## rfid dupe_count plant kill_date body_no left_side_scan_ti…
## <chr> <int> <dbl> <dttm> <dbl> <dbl>
## 1 201 553126081… 2 1 2016-08-15 00:00:00 193 423
## 2 201 553126081… 2 1 2016-08-15 00:00:00 193 423
## 3 253 120151214… 2 1 2016-08-15 00:00:00 257 542
## 4 253 120151214… 2 1 2016-08-15 00:00:00 257 542
## 5 818 415178538… 2 1 2016-08-02 00:00:00 99 445
## 6 818 415178538… 2 1 2016-08-02 00:00:00 99 445
## # … with 23 more variables: right_side_scan_time <dbl>, hang_method <chr>,
## # hgp <chr>, sex <chr>, left_hscw <dbl>, right_hscw <dbl>, total_hscw <dbl>,
## # p8fat <dbl>, lot <dbl>, est_percent_bi <chr>, hump_cold <dbl>, ema <dbl>,
## # ossification_cold <dbl>, aus_marbling <dbl>, msa_marbling <dbl>,
## # meat_colour <chr>, fat_colour <dbl>, ribfat_cold <dbl>, ph <dbl>,
## # loin_temp <dbl>, feed_type <chr>, no_days_on_feed <dbl>, msa_index <dbl>
## edad Rango_Edad Rango_Edad_Correjida
## 1 0 Dato erroneo <NA>
## 2 1 Niño/a Niño/a
## 3 2 Niño/a Niño/a
## 4 3 Niño/a Niño/a
## 5 4 Niño/a Niño/a
## 6 5 Niño/a Niño/a
## 7 6 Niño/a Niño/a
## 8 7 Niño/a Niño/a
## 9 8 Niño/a Niño/a
## 10 9 Niño/a Niño/a
## 11 10 Niño/a Niño/a
## 12 11 Niño/a Niño/a
## 13 12 Niño/a Niño/a
## 14 13 Joven Joven
## 15 14 Joven Joven
## 16 15 Joven Joven
## 17 16 Joven Joven
## 18 17 Joven Joven
## 19 18 Joven Joven
## 20 19 Adulto Adulto
## 21 20 Adulto Adulto
## 22 21 Adulto Adulto
## 23 22 Adulto Adulto
## 24 23 Adulto Adulto
## 25 24 Adulto Adulto
## 26 25 Adulto Adulto
## 27 26 Adulto Adulto
## 28 27 Adulto Adulto
## 29 28 Adulto Adulto
## 30 29 Adulto Adulto
## 31 30 Adulto Adulto
## 32 31 Adulto Adulto
## 33 32 Adulto Adulto
## 34 33 Adulto Adulto
## 35 34 Adulto Adulto
## 36 35 Adulto Adulto
## 37 36 Adulto Adulto
## 38 37 Adulto Adulto
## 39 38 Adulto Adulto
## 40 39 Adulto Adulto
## 41 40 Adulto Adulto
## 42 41 Adulto Adulto
## 43 42 Adulto Adulto
## 44 43 Adulto Adulto
## 45 44 Adulto Adulto
## 46 45 Adulto Adulto
## 47 46 Adulto Adulto
## 48 47 Adulto Adulto
## 49 48 Adulto Adulto
## 50 49 Adulto Adulto
## 51 50 Adulto Adulto
## 52 51 Adulto Adulto
## 53 52 Adulto Adulto
## 54 53 Adulto Adulto
## 55 54 Adulto Adulto
## 56 55 Adulto Adulto
## 57 56 Adulto Adulto
## 58 57 Adulto Adulto
## 59 58 Adulto Adulto
## 60 59 Adulto Adulto
## 61 60 Adulto Adulto
## 62 61 Adulto Adulto
## 63 62 Adulto Adulto
## 64 63 Adulto Adulto
## 65 64 Adulto Adulto
## 66 65 Adulto Adulto
## 67 66 anciano anciano
## 68 67 anciano anciano
## 69 68 anciano anciano
## 70 69 anciano anciano
## 71 70 anciano anciano
## 72 71 anciano anciano
## 73 72 anciano anciano
## 74 73 anciano anciano
## 75 74 anciano anciano
## 76 75 anciano anciano
## 77 76 anciano anciano
## 78 77 anciano anciano
## 79 78 anciano anciano
## 80 79 anciano anciano
## 81 80 anciano anciano
## 82 81 anciano anciano
## 83 82 anciano anciano
## 84 83 anciano anciano
## 85 84 anciano anciano
## 86 85 anciano anciano
## 87 86 anciano anciano
## 88 87 anciano anciano
## 89 88 anciano anciano
## 90 89 anciano anciano
## 91 90 anciano anciano
## 92 91 anciano anciano
## 93 92 anciano anciano
## 94 93 anciano anciano
## 95 94 anciano anciano
## 96 95 anciano anciano
## 97 96 anciano anciano
## 98 97 anciano anciano
## 99 98 anciano anciano
## 100 99 anciano anciano
## 101 100 anciano anciano
## meat_colour 1 2
## 1B 0 87
## 1C 87 570
## 2 1443 287
## 3 1477 1
## 4 27 3
## 5 9 5
## 6 1 3
## Rows: 4,000
## Columns: 28
## $ rfid <chr> "818 415178538393", "201 553126081288", "253 1201…
## $ plant <dbl> 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1…
## $ kill_date <dttm> 2016-08-02, 2016-08-15, 2016-08-15, 2016-09-19, …
## $ body_no <dbl> 99, 193, 257, 228, 212, 263, 238, 198, 252, 374, …
## $ left_side_scan_time <dbl> 445, 423, 542, 426, 425, 305, 402, 608, 728, 749,…
## $ right_side_scan_time <dbl> NA, NA, NA, NA, NA, 305, NA, NA, NA, NA, NA, NA, …
## $ hang_method <chr> "AT", "AT", "AT", "AT", "AT", "AT", "AT", "TX", "…
## $ hgp <chr> "N", "N", "N", "N", "N", "N", "N", "N", "Y", "Y",…
## $ sex <chr> "F", "F", "F", "F", "F", "F", "F", "F", "M", "M",…
## $ left_hscw <dbl> 125.7, 128.7, 115.9, 117.9, 143.5, 121.0, 150.9, …
## $ right_hscw <dbl> NA, NA, NA, NA, NA, 121.5, NA, NA, NA, NA, NA, NA…
## $ total_hscw <dbl> 251.4, 257.4, 231.8, 235.8, 287.0, 242.5, 301.8, …
## $ p8fat <dbl> NA, NA, NA, NA, NA, 19, NA, NA, NA, NA, NA, NA, N…
## $ lot <dbl> 16, 16, 16, 16, 16, 6, 16, 16, 17, 17, 16, 16, 16…
## $ est_percent_bi <chr> "X", "X", "X", "X", "X", "25", "X", "X", "X", "X"…
## $ hump_cold <dbl> 95, 75, 65, 85, 100, 85, 100, 70, 90, 90, 80, 75,…
## $ ema <dbl> 76, 68, 67, 52, 74, 78, 78, 69, 78, 67, 68, 78, 6…
## $ ossification_cold <dbl> 160, 150, 160, 160, 160, 170, 160, 170, 170, 140,…
## $ aus_marbling <dbl> 1, 0, 1, 2, 1, 1, 2, 1, 1, 0, 1, 2, 1, 1, 1, 1, 1…
## $ msa_marbling <dbl> 380, 280, 380, 480, 370, 360, 430, 360, 390, 270,…
## $ meat_colour <chr> "3", "2", "3", "3", "2", "1C", "2", "2", "3", "2"…
## $ fat_colour <dbl> 2, 1, 2, 1, 2, 0, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 2…
## $ ribfat_cold <dbl> 7, 17, 16, 13, 14, 9, 12, 7, 6, 5, 8, 11, 6, 12, …
## $ ph <dbl> 5.57, 5.57, 5.49, 5.40, 5.51, 5.45, 5.52, 5.49, 5…
## $ loin_temp <dbl> 8.9, 6.4, 5.9, 7.4, 10.7, 5.8, 8.9, 7.3, 8.4, 4.6…
## $ feed_type <chr> "Grain", "Grain", "Grain", "Grain", "Grain", "Gra…
## $ no_days_on_feed <dbl> 248, 250, 250, 215, 208, 210, 168, 188, 122, 111,…
## $ msa_index <dbl> 56.83, 59.52, 61.09, 60.04, 57.46, 58.20, 58.58, …