data_anime <- read.csv("anime_clean.csv")
head(data_anime)
##   anime_id                                                      name
## 1    32281                                            Kimi no Na wa.
## 2     5114                          Fullmetal Alchemist: Brotherhood
## 3    28977                                                  Gintama°
## 4     9253                                               Steins;Gate
## 5     9969                                             Gintama&#039;
## 6    32935 Haikyuu!!: Karasuno Koukou VS Shiratorizawa Gakuen Koukou
##                                                          genre  type episodes
## 1                         Drama, Romance, School, Supernatural Movie        1
## 2  Action, Adventure, Drama, Fantasy, Magic, Military, Shounen    TV       64
## 3 Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen    TV       51
## 4                                             Sci-Fi, Thriller    TV       24
## 5 Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen    TV       51
## 6                       Comedy, Drama, School, Shounen, Sports    TV       10
##   rating members log_members
## 1   9.37  200630    12.20922
## 2   9.26  793665    13.58442
## 3   9.25  114262    11.64625
## 4   9.17  673572    13.42035
## 5   9.16  151266    11.92680
## 6   9.15   93351    11.44412

#filtering data

anime_filtered <- subset(data_anime, type == "TV" & grepl("Action", genre))
head(anime_filtered)
##    anime_id                             name
## 2      5114 Fullmetal Alchemist: Brotherhood
## 3     28977                         Gintama°
## 5      9969                    Gintama&#039;
## 7     11061           Hunter x Hunter (2011)
## 9     15417         Gintama&#039;: Enchousen
## 12      918                          Gintama
##                                                           genre type episodes
## 2   Action, Adventure, Drama, Fantasy, Magic, Military, Shounen   TV       64
## 3  Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen   TV       51
## 5  Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen   TV       51
## 7                       Action, Adventure, Shounen, Super Power   TV      148
## 9  Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen   TV       13
## 12 Action, Comedy, Historical, Parody, Samurai, Sci-Fi, Shounen   TV      201
##    rating members log_members
## 2    9.26  793665    13.58442
## 3    9.25  114262    11.64625
## 5    9.16  151266    11.92680
## 7    9.13  425855    12.96185
## 9    9.11   81109    11.30355
## 12   9.04  336376    12.72598

menampilkan hubungan antara jumlah member (dalam skala logaritmik) dengan rating yang diperoleh anime tersebut melalui Scatter Plot.

plot(anime_filtered$log_members, anime_filtered$rating,
     main = "Hubungan Log Members vs Rating (Anime Action TV)",
     xlab = "Logarithm of Members",
     ylab = "Rating Anime",
     pch = 19, 
     col = "darkblue")
abline(lm(rating ~ log_members, data = anime_filtered), col = "red", lwd = 2)

Garis merah pada Scatter Plot menunjukkan tren positif, artinya ada kecenderungan bahwa anime yang lebih populer biasanya memiliki rating yang lebih tinggi.

melihat persebaran nilai rating-nya. Apakah kebanyakan anime action itu “bagus” atau “biasa saja”

hist(anime_filtered$rating, 
     breaks = 20, 
     main = "Distribusi Nilai Rating Anime Action (TV)",
     xlab = "Rating",
     col = "darkseagreen",
     border = "white")

menghitung rata-rata rating dari seluruh anime yang telah di-filter (Action - TV)

rata_rata <- mean(anime_filtered$rating, na.rm = TRUE)
print(rata_rata)
## [1] 7.111293

Kesimpulan: 1. Nilai rata-rata untuk kategori ini adalah r round(mean(anime_filtered$rating, na.rm=T), 2). Hal ini menunjukkan kualitas yang cukup solid di genre Action. 2. mayoritas anime Action TV memiliki rating di kisaran 6.5 hingga 7.5