data(ChickWeight)
head(ChickWeight)
##   weight Time Chick Diet
## 1     42    0     1    1
## 2     51    2     1    1
## 3     59    4     1    1
## 4     64    6     1    1
## 5     76    8     1    1
## 6     93   10     1    1

Mengecek Struktur Data

str(ChickWeight)
## Classes 'nfnGroupedData', 'nfGroupedData', 'groupedData' and 'data.frame':   578 obs. of  4 variables:
##  $ weight: num  42 51 59 64 76 93 106 125 149 171 ...
##  $ Time  : num  0 2 4 6 8 10 12 14 16 18 ...
##  $ Chick : Ord.factor w/ 50 levels "18"<"16"<"15"<..: 15 15 15 15 15 15 15 15 15 15 ...
##  $ Diet  : Factor w/ 4 levels "1","2","3","4": 1 1 1 1 1 1 1 1 1 1 ...
##  - attr(*, "formula")=Class 'formula'  language weight ~ Time | Chick
##   .. ..- attr(*, ".Environment")=<environment: R_EmptyEnv> 
##  - attr(*, "outer")=Class 'formula'  language ~Diet
##   .. ..- attr(*, ".Environment")=<environment: R_EmptyEnv> 
##  - attr(*, "labels")=List of 2
##   ..$ x: chr "Time"
##   ..$ y: chr "Body weight"
##  - attr(*, "units")=List of 2
##   ..$ x: chr "(days)"
##   ..$ y: chr "(gm)"

Menampilkan Tren Berat Semua Anak Ayam terhadap Waktu

plot(ChickWeight$Time, ChickWeight$Weight,
     type = "l",
     xlab = "Waktu (Time)",
     ylab = "Berat (Weight)",
     main = "Tren Berat Anak Ayam terhadap Waktu")

library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.5.3

Menampilkan Tren Berat Setiap Anak Ayam terhadap Waktu

ggplot(ChickWeight, aes(x = Time, y = weight, group = Chick, color = factor(Chick))) + 
  geom_line() +
  labs(title = "Tren Berat Anak Ayam terhadap Waktu",
       x = "Waktu",
       y = "Berat")

Kesimpulan Visualisasi yang tepat untuk melihat tren berat anak ayam dari waktu adalah dengan line chart