library(dplyr)
## Warning: package 'dplyr' was built under R version 4.4.2
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(datasets)
data("women")
women
## height weight
## 1 58 115
## 2 59 117
## 3 60 120
## 4 61 123
## 5 62 126
## 6 63 129
## 7 64 132
## 8 65 135
## 9 66 139
## 10 67 142
## 11 68 146
## 12 69 150
## 13 70 154
## 14 71 159
## 15 72 164
average <- women %>% summary(mean())
average
## height weight
## Min. :58.0 Min. :115.0
## 1st Qu.:61.5 1st Qu.:124.5
## Median :65.0 Median :135.0
## Mean :65.0 Mean :136.7
## 3rd Qu.:68.5 3rd Qu.:148.0
## Max. :72.0 Max. :164.0
arranged <- women %>% arrange(desc(height))
arranged
## height weight
## 1 72 164
## 2 71 159
## 3 70 154
## 4 69 150
## 5 68 146
## 6 67 142
## 7 66 139
## 8 65 135
## 9 64 132
## 10 63 129
## 11 62 126
## 12 61 123
## 13 60 120
## 14 59 117
## 15 58 115
filtered <- women %>% filter(height > 60)
filtered
## height weight
## 1 61 123
## 2 62 126
## 3 63 129
## 4 64 132
## 5 65 135
## 6 66 139
## 7 67 142
## 8 68 146
## 9 69 150
## 10 70 154
## 11 71 159
## 12 72 164
bmi <- women %>% mutate(bmi = weight/(height*height))
bmi
## height weight bmi
## 1 58 115 0.03418549
## 2 59 117 0.03361103
## 3 60 120 0.03333333
## 4 61 123 0.03305563
## 5 62 126 0.03277836
## 6 63 129 0.03250189
## 7 64 132 0.03222656
## 8 65 135 0.03195266
## 9 66 139 0.03191001
## 10 67 142 0.03163288
## 11 68 146 0.03157439
## 12 69 150 0.03150599
## 13 70 154 0.03142857
## 14 71 159 0.03154136
## 15 72 164 0.03163580
selected <- women %>% select(height)
selected
## height
## 1 58
## 2 59
## 3 60
## 4 61
## 5 62
## 6 63
## 7 64
## 8 65
## 9 66
## 10 67
## 11 68
## 12 69
## 13 70
## 14 71
## 15 72
filtered_selected <- women %>% select(height) %>% filter(height > 65)
filtered_selected
## height
## 1 66
## 2 67
## 3 68
## 4 69
## 5 70
## 6 71
## 7 72