Untitled

library (readxl)

data <- readxl::read_excel ("data_kesehatan1.xlsx")

head(data)

## # A tibble: 6 × 10
##      id  umur jenis_kelamin tinggi_badan berat_badan gula_darah tekanan_sistolik
##   <dbl> <dbl> <chr>                <dbl>       <dbl>      <dbl>            <dbl>
## 1     1    33 Perempuan             160.        62.9       80.1             129.
## 2     2    59 Perempuan             153.        54.7       79.2             109.
## 3     3    39 Perempuan             156.        66.8       99.6             133.
## 4     4    64 Laki-laki             174.        54.8       97.4             109.
## 5     5    67 Perempuan             164.        62.2       49.0             129.
## 6     6    20 Perempuan             150.        61.2      121.              136.
## # ℹ 3 more variables: tekanan_diastolik <dbl>, kolesterol <dbl>,
## #   skor_kesehatan <dbl>

jumlah_kelamin <- table(data$jenis_kelamin)
print(jumlah_kelamin)

## 
## Laki-laki Perempuan 
##       108        92

rata_umur <- mean(data$umur)
print(rata_umur)

## [1] 44.315

rata_tinggi <- aggregate(tinggi_badan ~ jenis_kelamin, data, mean)
print(rata_tinggi)

##   jenis_kelamin tinggi_badan
## 1     Laki-laki     171.0215
## 2     Perempuan     159.6470

rata_tinggi <- aggregate(tinggi_badan ~ jenis_kelamin, data, mean)
print(rata_tinggi)

##   jenis_kelamin tinggi_badan
## 1     Laki-laki     171.0215
## 2     Perempuan     159.6470

selisih <- diff(rata_tinggi$tinggi_badan)
print(paste("Selisih tinggi rata-rata:", round(selisih, 2), "cm"))

## [1] "Selisih tinggi rata-rata: -11.37 cm"

sehat <- subset(data, 
                gula_darah < 110 & 
                kolesterol < 200 & 
                tekanan_sistolik < 130 & 
                tekanan_diastolik < 85)
jumlah_sehat <- nrow(sehat)
print(jumlah_sehat)

## [1] 48

terendah <- data[which.min(data$gula_darah), ]
print(terendah)

## # A tibble: 1 × 10
##      id  umur jenis_kelamin tinggi_badan berat_badan gula_darah tekanan_sistolik
##   <dbl> <dbl> <chr>                <dbl>       <dbl>      <dbl>            <dbl>
## 1     5    67 Perempuan             164.        62.2       49.0             129.
## # ℹ 3 more variables: tekanan_diastolik <dbl>, kolesterol <dbl>,
## #   skor_kesehatan <dbl>