Tugas MDR Sesi UAS

Menampilkan beberapa baris pertama dari dataset PlantGrowth

head(PlantGrowth)

##   weight group
## 1   4.17  ctrl
## 2   5.58  ctrl
## 3   5.18  ctrl
## 4   6.11  ctrl
## 5   4.50  ctrl
## 6   4.61  ctrl

Menghitung rata rata berat berdasarkan kelompok

summarise(group_by(PlantGrowth, group), avg_weight = mean(weight))

## # A tibble: 3 × 2
##   group avg_weight
##   <fct>      <dbl>
## 1 ctrl        5.03
## 2 trt1        4.66
## 3 trt2        5.53

Mengurutkan data berdasarkan berat secara menurun

arrange(PlantGrowth, desc(weight))

##    weight group
## 1    6.31  trt2
## 2    6.15  trt2
## 3    6.11  ctrl
## 4    6.03  trt1
## 5    5.87  trt1
## 6    5.80  trt2
## 7    5.58  ctrl
## 8    5.54  trt2
## 9    5.50  trt2
## 10   5.37  trt2
## 11   5.33  ctrl
## 12   5.29  trt2
## 13   5.26  trt2
## 14   5.18  ctrl
## 15   5.17  ctrl
## 16   5.14  ctrl
## 17   5.12  trt2
## 18   4.92  trt2
## 19   4.89  trt1
## 20   4.81  trt1
## 21   4.69  trt1
## 22   4.61  ctrl
## 23   4.53  ctrl
## 24   4.50  ctrl
## 25   4.41  trt1
## 26   4.32  trt1
## 27   4.17  ctrl
## 28   4.17  trt1
## 29   3.83  trt1
## 30   3.59  trt1

Memfilter data dengan berat lebih dari 5

filter(PlantGrowth, weight > 5)

##    weight group
## 1    5.58  ctrl
## 2    5.18  ctrl
## 3    6.11  ctrl
## 4    5.17  ctrl
## 5    5.33  ctrl
## 6    5.14  ctrl
## 7    5.87  trt1
## 8    6.03  trt1
## 9    6.31  trt2
## 10   5.12  trt2
## 11   5.54  trt2
## 12   5.50  trt2
## 13   5.37  trt2
## 14   5.29  trt2
## 15   6.15  trt2
## 16   5.80  trt2
## 17   5.26  trt2

menambahkan kolom baru (berat dalam kolom)

mutate(PlantGrowth, weight_grams = weight * 10)

##    weight group weight_grams
## 1    4.17  ctrl         41.7
## 2    5.58  ctrl         55.8
## 3    5.18  ctrl         51.8
## 4    6.11  ctrl         61.1
## 5    4.50  ctrl         45.0
## 6    4.61  ctrl         46.1
## 7    5.17  ctrl         51.7
## 8    4.53  ctrl         45.3
## 9    5.33  ctrl         53.3
## 10   5.14  ctrl         51.4
## 11   4.81  trt1         48.1
## 12   4.17  trt1         41.7
## 13   4.41  trt1         44.1
## 14   3.59  trt1         35.9
## 15   5.87  trt1         58.7
## 16   3.83  trt1         38.3
## 17   6.03  trt1         60.3
## 18   4.89  trt1         48.9
## 19   4.32  trt1         43.2
## 20   4.69  trt1         46.9
## 21   6.31  trt2         63.1
## 22   5.12  trt2         51.2
## 23   5.54  trt2         55.4
## 24   5.50  trt2         55.0
## 25   5.37  trt2         53.7
## 26   5.29  trt2         52.9
## 27   4.92  trt2         49.2
## 28   6.15  trt2         61.5
## 29   5.80  trt2         58.0
## 30   5.26  trt2         52.6

Memilih kolom grup dan berat

select(PlantGrowth, group, weight)

##    group weight
## 1   ctrl   4.17
## 2   ctrl   5.58
## 3   ctrl   5.18
## 4   ctrl   6.11
## 5   ctrl   4.50
## 6   ctrl   4.61
## 7   ctrl   5.17
## 8   ctrl   4.53
## 9   ctrl   5.33
## 10  ctrl   5.14
## 11  trt1   4.81
## 12  trt1   4.17
## 13  trt1   4.41
## 14  trt1   3.59
## 15  trt1   5.87
## 16  trt1   3.83
## 17  trt1   6.03
## 18  trt1   4.89
## 19  trt1   4.32
## 20  trt1   4.69
## 21  trt2   6.31
## 22  trt2   5.12
## 23  trt2   5.54
## 24  trt2   5.50
## 25  trt2   5.37
## 26  trt2   5.29
## 27  trt2   4.92
## 28  trt2   6.15
## 29  trt2   5.80
## 30  trt2   5.26

Memfilter data dengan berat lebih dari 5 dan menghitung rata rata

PlantGrowth %>%
  filter(weight > 5) %>%
  summarise(avg_weight = mean(weight))

##   avg_weight
## 1   5.573529