Assignment 2

  1. Filtering
library(rvest)
library(stringr)
library(dplyr)

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(ggplot2)
library(knitr)


url_vec_1 <- "https://m.imdb.com/search/title/?title_type=feature&release_date=2010-01-01,2023-12-31&num_votes=2500,&country_of_origin=TR&count=250"
url_vec_2 <- "https://m.imdb.com/search/title/?title_type=feature&release_date=,2009-12-31&num_votes=2500,&country_of_origin=TR&count=250"
  1. Data Frame Creating
#reading html 
html_1 <- read_html(url_vec_1)
html_2 <- read_html(url_vec_2)
#title
title_names_1 <- html_1 |> html_nodes(".ipc-title__text")
title_names_1 <- html_text(title_names_1)
title_names_1 <- tail(head(title_names_1,-1),-1)
title_names_1 <- str_split(title_names_1, " ", n=2)
title_names_1 <- unlist(lapply(title_names_1, function(x) {x[2]}))

title_names_2 <- html_2 |> html_nodes(".ipc-title__text")
title_names_2 <- html_text(title_names_2)
title_names_2 <- tail(head(title_names_2,-1),-1)
title_names_2 <- str_split(title_names_2, " ", n=2)
title_names_2 <- unlist(lapply(title_names_2, function(x) {x[2]}))

title <- c(title_names_1, title_names_2)

year_1 <- html_1 |> html_elements(".sc-43986a27-8.jHYIIK.dli-title-metadata-item:nth-child(1)")
year_1 <- html_text(year_1)
year_1 <- as.numeric(year_1)

year_2 <- html_2 |> html_elements(".sc-43986a27-8.jHYIIK.dli-title-metadata-item:nth-child(1)")
year_2 <- html_text(year_2)
year_2 <- as.numeric(year_2)

year <- c(year_1, year_2)

# vote
vote_1 <- html_1 |> html_elements(".sc-53c98e73-0.kRnqtn")
vote_1 <- html_text(vote_1)
vote_1  <- as.numeric(gsub("\\D", "", vote_1 ))

vote_2 <- html_2 |> html_elements(".kRnqtn")
vote_2 <- html_text(vote_2)
vote_2  <- as.numeric(gsub("\\D", "", vote_2 ))

vote <- c(vote_1, vote_2)

#ratings
rating_1 <- html_1 |> html_elements(".ipc-rating-star.ipc-rating-star--base.ipc-rating-star--imdb.sc-9ab53865-1.iXEijC.ratingGroup--imdb-rating")
rating_1 <- html_text(rating_1)
rating_1  <- as.numeric(str_sub(rating_1, 1, 3))

rating_2 <- html_2 |> html_elements(".ipc-rating-star.ipc-rating-star--base.ipc-rating-star--imdb.sc-9ab53865-1.iXEijC.ratingGroup--imdb-rating")
rating_2 <- html_text(rating_2)
rating_2  <- as.numeric(str_sub(rating_2, 1, 3))

rating <- c(rating_1, rating_2)

#duration I got help from my friend and ChatGpt
duration_1 <- html_1 |> html_elements (".sc-43986a27-8.jHYIIK.dli-title-metadata-item:nth-child(2)")
duration_1 <- html_text(duration_1)

duration_2 <- html_2 |> html_elements (".sc-43986a27-8.jHYIIK.dli-title-metadata-item:nth-child(2)")
duration_2 <- html_text(duration_2)

convert_time_to_minutes <- function(time_strings) {
  total_minutes <- numeric(length(time_strings))
  
  for (i in seq_along(time_strings)) {
    parts <- strsplit(time_strings[i], "h|m")[[1]]
    hours <- as.numeric(parts[1])
    minutes <- as.numeric(parts[2])
    
    total_minutes[i] <- hours * 60 + minutes
  }
  
  return(total_minutes)
}
total_minutes_result_1 <- convert_time_to_minutes(duration_1)
total_minutes_result_2 <- convert_time_to_minutes(duration_2)

duration <- c(total_minutes_result_1, total_minutes_result_2)

movie_data <- data.frame(title, year, duration, rating, vote)
print(movie_data)
                                           title year duration rating   vote
1                              Kuru Otlar Üstüne 2023      197    8.1   5126
2                        Istanbul Için Son Çagri 2023       91    5.3   7445
3                       Yedinci Kogustaki Mucize 2019      132    8.2  54193
4                                 Ölümlü Dünya 2 2023      117    7.4   3558
5                                         Bihter 2023      113    3.6   3373
6                                   Ölümlü Dünya 2018      107    7.6  30293
7                                     Kis Uykusu 2014      196    8.0  54660
8                                         Dag II 2016      135    8.2 109878
9                                 Do Not Disturb 2023      114    6.3   8801
10                     Ayla: The Daughter of War 2017      125    8.3  43001
11                                  Kurak Günler 2022      129    7.6  11191
12                                   Ahlat Agaci 2018      188    8.0  27029
13                       Bir Zamanlar Anadolu'da 2011      157    7.8  49379
14                           Dabbe: Cin Çarpmasi 2013      134    6.8   7118
15                                        Baskin 2015       97    5.8  12110
16                                          Kedi 2016       79    7.6  15620
17                                   Sen Inandir 2023      104    5.6   2595
18                                        Mucize 2015      136    7.6  13905
19                                    Fort Bliss 2014      116    6.4   3505
20                                        Bergen 2022      145    6.9   5871
21                                     Boga Boga 2023      112    5.7   4485
22                                           Dag 2012       90    7.5  23131
23                            Iyi Adamin 10 Günü 2023      124    6.5   5163
24                                  Cinayet Süsü 2019      112    6.7  19230
25                                    Fetih 1453 2012      165    6.5  58916
26                        The Ottoman Lieutenant 2017      106    6.4  26557
27                                      Limonata 2015      110    7.4  14329
28                              Illegal Hayatlar 2023      105    6.2   4767
29                                 Mucize 2: Ask 2019      129    7.2   2785
30                          Kötü Kedi Serafettin 2016       86    7.0   8442
31                                 Aaahh Belinda 2023       97    5.3   3092
32                                        Siccîn 2014       96    6.0   5044
33                                Ask Taktikleri 2022       97    5.3   5830
34                                      Can Feda 2018      109    5.5   3669
35                        Insanlar Ikiye Ayrilir 2020      101    6.9   2521
36                                      Tereddüt 2016      105    6.5   2845
37                                       Yeralti 2012      107    7.1  10100
38                         D@bbe: Bir Cin Vakasi 2012      119    5.8   4207
39                        CM101MMXI Fundamentals 2013      139    9.1  46999
40                                 Aile Arasinda 2017      124    7.6  25678
41                             Kagittan Hayatlar 2021       96    6.6  13423
42                              Kelebegin Rüyasi 2013      138    7.7  23770
43                           Bizim Için Sampiyon 2018      130    8.2  13034
44                                    Sadece Sen 2014      105    7.3   5940
45                                          Cici 2022      151    7.1   5627
46                               Ikimizin Yerine 2016      126    6.1   7286
47                Cep Herkülü: Naim Süleymanoglu 2019      141    8.2  13662
48                            Kaybedenler Kulübü 2011      105    7.5  25133
49                                      Sarmasik 2015      104    7.9  13137
50                                Yilbasi Gecesi 2022      142    5.8   4417
51                                       Bulanti 2015      112    6.2   2726
52                 Organize Isler: Sazan Sarmali 2019      121    6.0  15833
53                                 Bursa Bülbülü 2023       NA    6.8   6804
54                             Dabbe: Zehr-i Cin 2014      133    5.9   4278
55                                          Daha 2017      115    7.0   4372
56                                    Av Mevsimi 2010      140    7.4  36274
57                                    Kelebekler 2018      117    7.3  15805
58                                    Kar ve Ayi 2022       93    6.6   2592
59                                     Geçen Yaz 2021      101    6.3   3394
60                      Sen Aydinlatirsin Geceyi 2013      107    7.7  10486
61                                        Müslüm 2018      136    7.6  19963
62                                  Aykut Eniste 2019      115    7.0   7415
63                                  Incir Reçeli 2011       94    6.5  14121
64                             Unutursam Fisilda 2014      118    7.5  12935
65                                Recep Ivedik 7 2022      133    5.2   6374
66                                   Pek Yakinda 2014      134    7.3  35460
67                                       Delibal 2015      117    6.7  12127
68                                    Nuh Tepesi 2019      109    7.1   6296
69                         Kurtlar Vadisi: Vatan 2017      105    3.9   3334
70                                  Dügün Dernek 2013      106    6.9  23523
71                                    Su ve Ates 2013      113    6.1   4882
72                                       Azizler 2021       96    6.0  11275
73                                  Biz Böyleyiz 2020      121    5.6   5810
74                                      Siccin 2 2015       93    6.1   3708
75                                      Panzehir 2014      125    6.9   4070
76                                   Okul tirasi 2021       85    7.4   2958
77                                Hedefim Sensin 2018      113    6.2   4996
78                               Mutluluk Zamani 2017      108    5.9   5762
79                             Bir Ask Iki Hayat 2019      106    6.1   3103
80                               Celal ile Ceren 2013      114    3.1  43232
81                                       Deliler 2018      121    5.1   3489
82                              Sen Yasamaya Bak 2022      104    5.7   3727
83                                  Cingöz Recai 2017      113    4.8   4709
84                                Babamin Kemani 2022      112    6.4   4010
85                                Aci Tatli Eksi 2017      100    6.0   2790
86                    Enes Batur Gerçek Kahraman 2019       99    1.4   9516
87                                     Sag Salim 2012       98    6.3   6502
88                Behzat Ç.: Seni Kalbime Gömdüm 2011      110    7.5  10400
89                         Ask Tesadüfleri Sever 2011      118    7.2  19491
90                                        Çiçero 2019      126    6.5   6396
91                                Annemin Yarasi 2016       NA    7.3   4133
92                                 Kiz Kardesler 2019      108    7.4   4666
93                             Senden Bana Kalan 2015      117    6.5   3403
94                             Ise Yarar Bir Sey 2017      104    7.6   5514
95                        New York'ta Bes Minare 2010      119    5.7  15446
96                              Kolpaçino: Bomba 2011       92    5.8   7950
97                                           Kin 2021      105    5.5   4790
98                      Kaybedenler Kulübü Yolda 2018       96    5.7   2962
99                                 Dabbe (Dab6e) 2015      160    5.6   3182
100                       Dügün Dernek 2: Sünnet 2015      112    6.3  11168
101               Cumali Ceber: Allah Seni Alsin 2017      100    1.0  39269
102                               Aykut Eniste 2 2021      115    6.5   3597
103                                        Sibel 2018       95    6.8   2878
104                               Kardesim Benim 2016       NA    5.8   5013
105                   Karakomik Filmler: Kaçamak 2019       NA    5.5  10474
106                              Asiklar Bayrami 2022      102    5.7   2998
107                                 Itirazim Var 2014      110    7.7  13676
108                             Eltilerin Savasi 2020      118    5.8   5009
109                                 Benim Dünyam 2013      100    7.5   5742
110                                Hadi Be Oglum 2018      112    7.0   3783
111                      Karakomik Filmler: Deli 2020       NA    6.5   9144
112                                  Küçük Esnaf 2016      104    5.6   4554
113               Sen Hiç Ates Böcegi Gördün Mü? 2021      113    6.2   5490
114                                   Arif V 216 2018      125    7.0  38575
115                          Kolonya Cumhuriyeti 2017      110    5.8   5373
116                            Cebimdeki Yabanci 2018       95    6.8   9435
117                            Dedemin Insanlari 2011      126    8.0  11219
118                                Yol Arkadasim 2017      115    6.1   7482
119                      Bi Küçük Eylül Meselesi 2014      106    7.1  10862
120                                      Görümce 2016      109    5.0   3473
121                   Sen Kiminle Dans Ediyorsun 2017      106    5.6   2614
122            Fakat Müzeyyen Bu Derin Bir Tutku 2014      106    6.6   3733
123                     Behzat Ç. Ankara Yaniyor 2013       97    7.4   6859
124                                 Tamam miyiz? 2013       92    7.0   5486
125                               Iftarlik Gazoz 2016      115    7.3  15309
126                                 9 Kere Leyla 2020      112    3.7   7873
127               Enes Batur Hayal mi Gerçek mi? 2018      110    2.0  55886
128                                        Selam 2013      104    6.2   2620
129                                 Beni Çok Sev 2021      124    7.0   3098
130                          Zaman Makinesi 1973 2014      105    6.3   3273
131                           Istanbul Kirmizisi 2017      110    5.6   6835
132              Bizans Oyunlari: Geym of Bizans 2016      101    3.7   3196
133                                  Evim Sensin 2012       91    5.0   6098
134                                 Eksi Elmalar 2016      114    7.1   7833
135                    Karakomik Filmler: Emanet 2020       NA    5.6   7653
136                                     Iyi Oyun 2018      114    4.5   3976
137                  Çok Filim Hareketler Bunlar 2010      104    4.5   5161
138                             Yarina Tek Bilet 2020       90    5.6   5419
139                                Hükümet Kadin 2013       99    6.5   9183
140                            Çakallarla Dans 6 2022      116    5.3   5267
141                   Karakomik Filmler: 2 Arada 2019       NA    6.4  13419
142                               Recep Ivedik 3 2010       95    4.2  20792
143                                  Vay Arkadas 2010      100    6.3   2602
144                            Sevimli Tehlikeli 2015      113    6.0   3851
145                                  Baba Parasi 2020      116    4.6   3541
146                              Bayi Toplantisi 2020      114    4.6   4202
147                            Kocan Kadar Konus 2015      108    6.1   5429
148                                     Deli Ask 2017      104    5.5   3124
149                       Hababam Sinifi Yeniden 2019      106    2.2   3849
150                                         Reis 2017      108    1.0  73974
151                              Ask Sana Benzer 2015      115    3.8   3527
152                                         Veda 2010      114    7.2   7481
153                      Ask Tesadüfleri Sever 2 2020      124    7.1   3211
154                            Türk Isi Dondurma 2019       NA    6.4   5222
155                        Ali Baba ve 7 Cüceler 2015      114    5.6  20983
156                                       Abluka 2015      119    7.2   4321
157                               Incir Reçeli 2 2014      103    6.0   4595
158                                         Börü 2018      111    6.7   4653
159                          Siccîn 3: Cürmü Ask 2016      110    6.1   3020
160                               Recep Ivedik 4 2014      117    3.8  18081
161                           Bana Masal Anlatma 2015      103    7.3  16480
162                               Bir Baba Hindu 2016      112    2.6   2633
163                               Eyyvah Eyvah 3 2014      105    5.9   7922
164                                Kaçma Birader 2016      107    6.8   3661
165                             Gözetleme Kulesi 2012       96    7.1   2835
166                           Kurtulus Son Durak 2012      106    6.2   2711
167                               Recep Ivedik 6 2019      110    3.0   8627
168                     Kutsal Damacana 2: Itmen 2010       98    3.0   5457
169                                  Çalgi Çengi 2011       90    7.0  13542
170                         Çanakkale Yolun Sonu 2013      101    7.1   5094
171                                     Deliha 2 2018      106    4.7   2830
172                              Çakallarla Dans 2010      102    5.6   7299
173                             Yolun Açik Olsun 2022      119    6.5   2699
174                      Sag Salim 2: Sil Bastan 2014       98    4.9   3477
175             Çakallarla Dans 3: Sifir Sikinti 2014      102    5.0   3047
176                                          Bal 2010      103    7.1   7422
177                                  Uzun Hikâye 2012      125    7.5   6095
178                       Selam: Bahara Yolculuk 2015      126    7.0   4162
179                               Eyyvah Eyvah 2 2011      106    6.6  15374
180                                    Kara Bela 2015      105    6.7   9591
181                                Sofra Sirlari 2017      103    6.7   5166
182                                     Çogunluk 2010      110    7.4   6055
183                    Sümela'nin Sifresi: Temel 2011       90    3.7   3153
184                              Hükümet Kadin 2 2013      105    6.1   5184
185                                 Ejder Kapani 2010      105    6.5   5512
186                                     Ya Sonra 2011      105    5.2   2558
187                             Ailecek Saskiniz 2018      113    6.1   7929
188                                   Kötü Çocuk 2017      125    2.0   2948
189                               Cumali Ceber 2 2018      100    1.2  10230
190                                   Yol Ayrimi 2017      150    6.7   4280
191                                   Sonsuz Ask 2017      114    6.1   2673
192                               Recep Ivedik 5 2017      114    3.4  17577
193                                Tatlim Tatlim 2017       95    5.6   3570
194                          Güzelligin Portresi 2019      127    6.3   3134
195                                       Kayhan 2018      105    2.2   3610
196                              Kafalar Karisik 2018       95    3.0   3047
197                                 Tepenin Ardi 2012       94    7.2   3893
198            Romantik Komedi 2: Bekarliga Veda 2013      105    5.2   3572
199                                        Müjde 2022       NA    1.2   9920
200                                 Dedemin Fisi 2016      100    5.6   3938
201                              Osman Pazarlama 2016      114    3.5   6777
202                                 Bizim Hikaye 2015       97    5.4  18162
203                                  Sen Kimsin? 2012      101    5.0   5439
204                     Kurtlar Vadisi: Filistin 2011      105    6.1   9536
205                           Anadolu Kartallari 2011       NA    6.2   5641
206                           Kolpaçino 3. Devre 2016       93    4.1   4864
207                                    Yok Artik 2015       99    5.8   3924
208             Hür Adam: Bediüzzaman Said Nursi 2011      163    4.6   3596
209                             G.D.O. Kara Kedi 2013       97    5.3   5417
210                                    Ay Lav Yu 2010      102    5.5   5197
211                              Yol Arkadasim 2 2018      116    5.9   3727
212                                       Deliha 2014      107    4.6   4860
213                                 Eyyvah Eyvah 2010      104    7.0  21445
214 Celal Tan ve Ailesinin Asiri Acikli Hikayesi 2011       90    6.4   3426
215                                 Ali Kundilli 2015      118    5.4   3255
216                               Berlin Kaplani 2012       98    5.2   7198
217                                  Sabit Kanca 2013      100    3.1   2650
218                                  Gise Memuru 2010       96    6.4   4544
219                            Çakallarla Dans 4 2016      109    4.1   3046
220                                 Olanlar Oldu 2017      108    6.2   4456
221                   Kocan Kadar Konus: Dirilis 2016      108    5.7   3462
222                            Birlesen Gönüller 2014      126    7.5   4130
223                                 Zenne Dancer 2011      104    7.1   2840
224                                  OHA Diyorum 2017       90    1.6   6959
225                                    Borç Harç 2019       90    1.4   4771
226                             Mandira Filozofu 2014      109    6.6   4834
227                                 Nadide Hayat 2015      118    6.3   3935
228                            Çakallarla Dans 5 2018      102    3.8   2570
229                                 Yozgat Blues 2013       93    6.8   3515
230                                 Bizi Hatirla 2018       NA    7.4   2864
231                        Sen Benim HerSeyimsin 2016      107    6.2   2968
232                   Bizim Büyük Çaresizligimiz 2011      102    6.8   4020
233                     Patron Mutlu Son Istiyor 2014      109    6.0   7142
234                      Entelköy Efeköy'e Karsi 2011      111    6.6   3631
235                          Niyazi Gül Dörtnala 2015      106    4.5   3455
236                                 Içimdeki Ses 2015       93    5.9   3569
237                                Hadi Insallah 2014       96    5.4   4304
238                           Çalgi Çengi Ikimiz 2017      116    5.6   4861
239                              Romantik Komedi 2010       95    5.3   5347
240           Çakallarla Dans 2: Hastasiyiz Dede 2012      101    4.6   3950
241                                        Açela 2020       70    2.7   2670
242                               Kod Adi K.O.Z. 2015      114    1.7  27603
243                           Resistance Is Life 2017       73    7.7   3297
244                             Alamet-i Kiyamet 2016       88    4.7   2657
245                            15/07 Safak Vakti 2021       95    1.2  20608
246                               Deniz ve Günes 2018       96    4.9   2640
247                Sihirbazlik Okulunda Bir Türk 2015       91    1.7   3701
248                           Guardian of Angels 2018       NA    7.2   2565
249                        Nefes: Vatan Sagolsun 2009      128    8.0  35029
250                               Babam ve Oglum 2005      108    8.2  91051
251                                    Masumiyet 1997      110    8.1  19315
252                                        Kader 2006      103    7.8  16282
253                                         Uzak 2002      110    7.5  22381
254                                       Eskiya 1996      128    8.1  71705
255                                      A.R.O.G 2008      127    7.3  44642
256                                Sevmek Zamani 1965       86    8.0   7138
257                               Hababam Sinifi 1975       87    9.2  42518
258                                    Üç Maymun 2008      109    7.3  22670
259                                        Barda 2007       92    7.0  14694
260                                     G.O.R.A. 2004      127    8.0  66041
261                                     Kabadayi 2007      140    7.8  23637
262                                        Yazgi 2001      119    7.5   6721
263                                   Issiz Adam 2008      113    6.8  22349
264                         Kurtlar Vadisi: Irak 2006      122    5.7  18255
265                                          Yol 1982      107    8.0  14310
266                                   Yahsi Bati 2009      112    7.4  37791
267                                        D@bbe 2006      110    4.4   4734
268                                     Iklimler 2006       97    7.1  14009
269                                    Vizontele 2001      110    8.0  38409
270                     Her Sey Çok Güzel Olacak 1998      107    8.1  27128
271                                       Pardon 2005       99    8.1  22670
272                        Dünyayi Kurtaran Adam 1982       91    4.4   8015
273                                   Tosun Pasa 1976       90    8.9  24330
274                                Bekleme Odasi 2003       92    6.3   3167
275                                   Agir Roman 1997       NA    7.6  11725
276                             Tabutta Rövasata 1996       75    7.7  10858
277                               Organize Isler 2005      106    7.4  35032
278                                       Gemide 1998      102    7.9  15729
279                     Selvi Boylum Al Yazmalim 1977       90    8.5  16726
280                                       Itiraf 2001      100    7.0   3926
281                Dünyayi Kurtaran Adam'in Oglu 2006      110    1.5  16706
282                                 Üçüncü Sayfa 1999       92    7.3   4268
283                             Neredesin Firuze 2004      128    7.4  12411
284                             Saban Oglu Saban 1977       90    8.7  18536
285                              Mayis Sikintisi 1999      130    7.3   6634
286               Deli Yürek: Bumerang Cehennemi 2001      123    6.5   4123
287                                    Kolpaçino 2009       98    6.5  13659
288                                    Susuz Yaz 1963       90    7.8   5495
289                                 Recep Ivedik 2008       90    4.8  28357
290                                 Günesin Oglu 2008       89    7.0   6062
291                                       Kasaba 1997       85    7.0   6430
292                                      D@bbe 2 2009       85    3.0   2661
293                                        Sinav 2006       NA    6.6  11257
294                                Günesi Gördüm 2009       NA    6.6  10577
295                               Çöpçüler Krali 1977       80    8.5  21183
296                                      Yumurta 2007       97    6.6   5596
297                              Baska Dilde Ask 2009       98    7.3   7087
298                                    Kiskanmak 2009       96    6.5   3466
299   Muro: Nalet Olsun Içimdeki Insan Sevgisine 2008       90    3.9   3211
300                                       Vavien 2009      100    7.5  13506
301                               Recep Ivedik 2 2009      107    4.5  22333
302                                       C Blok 1994       92    6.1   3376
303                                 Gönül Yarasi 2005      142    7.8  10407
304                       Kurtlar Vadisi: Gladio 2009       97    6.2   5288
305                                Aaahh Belinda 1986      100    7.8   3499
306                                     Hokkabaz 2006      122    7.4  34186
307                                   Zügürt Aga 1985      101    8.7  16140
308                                     Sonbahar 2008       99    7.7   6742
309                                   Üç Kagitçi 1981       88    7.7   6091
310                                   Muhsin Bey 1987      119    8.4  11529
311                               Anlat Istanbul 2005       99    7.3   6865
312                                        Duvar 1983      117    8.0   4383
313                              Merakli Köfteci 1976       75    7.2   4200
314                                       Salako 1974       87    7.4   6439
315                             Çarikli Milyoner 1983       86    6.7   3315
316             Karpuz Kabugundan Gemiler Yapmak 2004       97    7.8   6466
317                                Neseli Günler 1978       95    8.7  11810
318                                Anayurt Oteli 1987      101    7.5   4445
319                                        Zübük 1980       88    8.5  10566
320                                       Kosmos 2009      122    7.1   5130
321                                Süt Kardesler 1976       80    8.8  20890
322                                          120 2008      114    7.2   7031
323                                  Kibar Feyzo 1978       83    8.7  17126
324                                         Sürü 1978      117    8.2   5260
325                                          Gen 2006      105    4.2   3640
326                              7 Kocali Hürmüz 2009      122    6.3   5819
327                                 Kahpe Bizans 1999       97    5.9   7515
328                               En Büyük Saban 1984       93    6.7   3028
329                                   Propaganda 1999       NA    7.1  10031
330                                     Mutluluk 2007      105    7.5   7798
331                                  Gölge Oyunu 1993      103    7.7   3723
332                                Tatar Ramazan 1990       95    7.9   3387
333                                  Beynelmilel 2006      106    7.2   8143
334                               Çilgin Dersane 2007      100    1.9   3899
335                                    Yazi Tura 2004      102    7.6   6495
336                             Devrim Arabalari 2008       NA    8.0  12610
337                 Hababam Sinifi Sinifta Kaldi 1975       95    8.9  24370
338                                 Tatli Dillim 1972       94    7.1   2806
339                               Vesikali Yarim 1968       89    7.9   3250
340                              Kutsal Damacana 2007      105    5.1   9845
341                                Sari Mercedes 1993       90    7.8   3208
342                                 Egreti Gelin 2005      115    6.2   3141
343                               Canim Kardesim 1973       85    8.6  10099
344                  Dar Alanda Kisa Paslasmalar 2000       NA    7.3   3276
345                      Mustafa Hakkinda Hersey 2004      119    7.5   9741
346                                     Musallat 2007       95    5.9   4350
347                                  Güz Sancisi 2009      112    6.1   2555
348                                Küçük Kiyamet 2006       90    6.3   2629
349             Hacivat Karagöz Neden Öldürüldü? 2006      135    7.5  13080
350                                  Beyaz Melek 2007      115    6.5   7341
351                                         Umut 1970      100    8.0   4247
352                        Uçurtmayi Vurmasinlar 1989       85    8.3   7078
353                              Vizontele Tuuba 2003      111    6.5  16377
354                              Korkusuz Korkak 1979       77    8.1   7223
355                                    Ah Nerede 1975       90    7.6   4762
356                                      Tokatçi 1983       83    7.7   6178
357              Maskeli Besler: Intikam Pesinde 2005       89    4.4   6062
358                   Azize: Bir Laleli Hikayesi 1999       85    6.9   3645
359                                          Süt 2008      102    6.6   3317
360                                 Neseli Hayat 2009      100    6.1   7525
361                       Hababam Sinifi Tatilde 1977       97    8.6  18637
362                                       Insaat 2003      113    7.2   4025
363                                      Arabesk 1989       92    8.0   8302
364                          Köyden Indim Sehire 1974       91    8.3  11647
365                Istanbul Kanatlarimin Altinda 1996      119    7.0   3822
366                                  Aile Serefi 1976       95    8.0   3794
367                         Maskeli Besler: Irak 2007      104    3.8   5259
368                                      Mustafa 2008      130    6.7   2844
369          Ask Filmlerinin Unutulmaz Yönetmeni 1990      106    7.6   4245
370                    Turist Ömer Uzay Yolu'nda 1973       72    7.2   3636
371                                         Okul 2004      100    4.1   3632
372                                  Mavi Boncuk 1975       76    7.8   9554
373                                  Banker Bilo 1980       85    7.6   7353
374                                         Büyü 2004       95    3.0   3921
375                                    Bes Vakit 2006      111    7.3   4373
376                                        Semum 2008      116    5.0   4027
377                   Keloglan Karaprens'e Karsi 2006      105    1.6   9615
378                              Çiplak Vatandas 1985       74    7.5   4936
379                               O... Çocuklari 2008       NA    6.4   5448
380                      Hababam Sinifi Uyaniyor 1976       94    8.7  20641
381                                  Çiçek Abbas 1982       87    8.0  11022
382                              Kapicilar Krali 1976       84    8.4  13360
383                                 Gülen Gözler 1977       97    8.4   7594
384                                    Hayat Var 2008      121    7.3   3432
385                           Pandora'nin Kutusu 2008      112    7.2   2941
386                                        Polis 2007      113    6.6   6236
387                      Hababam Sinifi Üç Buçuk 2005       98    3.0   8697
388                                       Yoksul 1986       77    7.3   3004
389                       Son Osmanli Yandim Ali 2007      126    6.9   6805
390                                   Bizim Aile 1975       92    8.4   7215
391                                  Kanli Nigar 1981       81    7.1   3404
392                                 11'e 10 Kala 2009      110    7.2   2793
393                               Doktor Civanim 1983       87    6.9   4070
394                           Davaro: Son Eskiya 1981       94    8.1   9205
395                                 Kaç Para Kaç 1999      100    7.5   3713
396                                         Vali 2009       93    7.3   4949
397                             Dondurmam Gaymak 2006      100    6.6   6543
398                              Yedi Bela Hüsnü 1983       84    7.7   7478
399                     Hababam Sinifi Güle Güle 1981       81    6.3   6187
400                                  Devlet Kusu 1980       79    6.9   2578
401                                   Gülen Adam 1990       91    6.9   4116
402                                      Fasulye 2000      105    7.2   2602
403                              Korkuyorum Anne 2004      128    7.5   3289
404                                Düttürü Dünya 1988       91    7.3   3001
405                          Beyza'nin Kadinlari 2006      137    6.2   2769
406                                         Araf 2006       97    2.4   4276
407                       Hababam Sinifi Askerde 2005      112    3.3   7789
408                          Osmanli Cumhuriyeti 2008      100    5.2   7220
409                                     Ögretmen 1988       89    7.2   2620
410                             Deli Deli Küpeli 1986       87    7.3   3728
411                                       Davaci 1987       79    7.1   3420
412                                       Sultan 1978       88    7.5   3830
413                                        Garip 1986       96    7.1   4271
414                                  Sakar Sakir 1977       81    8.0   8953
415                               Salak Milyoner 1974       84    7.9   7833
416                       Hababam Sinifi Merhaba 2004      118    3.2   6965
417                                Koltuk Belasi 1990       85    7.0   2633
418                                Salvar Davasi 1983       90    7.1   2712
419                              Filler ve Çimen 2000      115    7.0   2806
420                                Ask Tutulmasi 2008       99    5.5   3020
421                                O Simdi Asker 2003      125    4.9   2743
422                                     Sabaniye 1984       93    6.2   3709
423                          Sans Kapiyi Kirinca 2005      107    6.3   4661
424                                     Varyemez 1991       93    6.6   2820
425               Hababam Sinifi Dokuz Doguruyor 1978       88    7.3   8941
426                                      Kilibik 1983       85    7.0   3469
427                         On the Way to School 2008       81    7.4   3090
428                                    Sekerpare 1983       90    7.9   6748
429                                Sosyete Saban 1985       92    6.9   3530
430                                   Inek Saban 1978       71    7.5   4383
431                            Yüz Numarali Adam 1978       79    7.7   5935
432                                      Postaci 1984       87    7.0   4603
433                                        Hanzo 1975       77    6.3   4368
434                                      Namuslu 1984       93    8.1   7354
435                                       Kiraci 1987       94    6.7   2714
436                              Ortadirek Saban 1984       82    7.2   4956
437                            Katma Deger Saban 1985       85    6.5   4138
438                              Ne Olacak Simdi 1979       83    7.5   3248
439                                         Ulak 2008      109    6.8   4834
440                            Köseyi Dönen Adam 1978       82    7.1   3038
441                                 Gerzek Saban 1980       76    7.1   3140
442                  Son Ders: Ask ve Üniversite 2008       99    6.9   2563
443                     Emret Komutanim: Sah Mat 2007      100    1.5   7047
444                               Komser Sekspir 2000      113    5.8   3433
445                                   Talih Kusu 1989       92    7.0   2903
446                                 Tarzan Rifki 1986       83    6.4   3154
447                                    Gol Krali 1981       81    6.8   3935
448                                 Saskin Damat 1975       78    6.8   2737
449                                  Avanak Apti 1978       86    6.9   4461
450                                    Milyarder 1987       96    7.5   4554
451                                     Oh Olsun 1974       86    7.2   3219
452                                  Hirsiz Var! 2005       96    4.4   3260
453                                    Japon Isi 1987       89    6.1   3786
454                             Selamsiz Bandosu 1988      107    7.7   3905
455                               Gurbetçi Saban 1985       87    6.5   3285
456                           Saban Pabucu Yarim 1985       93    6.4   2974
457                                Dolap Beygiri 1982       90    7.2   2677
458                               Sahte Kabadayi 1976       77    7.6   6253
459                               Bekçiler Krali 1979       82    7.6   6580
460                               Atla Gel Saban 1984       83    7.6   5138
461                                 Uzak Ihtimal 2009       90    7.0   2738
462                               Umudumuz Saban 1979       83    7.1   3583
463                       Maskeli Besler: Kibris 2008       87    3.1   5553
464                      Erkek Güzeli Sefil Bilo 1979       67    6.9   2710
465                                 Sark Bülbülü 1979       89    7.5   4351
466                          Dokunmayin Sabanima 1979       79    7.2   4091
467                                Sen Dul Saban 1986       94    6.5   2712
468                              Iyi Aile Çocugu 1978       79    7.1   3025
469                               Kanal-i-zasyon 2009      113    5.0   3908
470                             Ibo ile Güllüsah 1977       88    6.1   3499

3. Exploratory Data Analysis

3.1. Top and Bottom 5 Movies by Ranking

movie_data <- data.frame(title, year, duration, rating, vote)
movie_data <- arrange(movie_data, desc(rating))

top5_movies <- head(movie_data, 5)

last5_movies <- tail(movie_data, 5)

kable(rbind(top5_movies, last5_movies), caption = "Best and Worst 5 Movies") 
Best and Worst 5 Movies
title year duration rating vote
1 Hababam Sinifi 1975 87 9.2 42518
2 CM101MMXI Fundamentals 2013 139 9.1 46999
3 Tosun Pasa 1976 90 8.9 24330
4 Hababam Sinifi Sinifta Kaldi 1975 95 8.9 24370
5 Süt Kardesler 1976 80 8.8 20890
466 Cumali Ceber 2 2018 100 1.2 10230
467 Müjde 2022 NA 1.2 9920
468 15/07 Safak Vakti 2021 95 1.2 20608
469 Cumali Ceber: Allah Seni Alsin 2017 100 1.0 39269
470 Reis 2017 108 1.0 73974

I watched all of the top 5 movies except Tosun Pasa. Old movies like Hababam Sınıfı has a place for everyone but II believe there are other Turkish Movies that should be on the list.

For the worst 5 movies, I felt sorry for the actors who play on those movies. I haven’t watched any of them but their titles do not look very appealing.

3.2

My favourite Turkish Movies are,

Hokkabaz,

Babam ve Oglum,

and a recent watch but Ölümlü Dünya 2.

favourite_movies <- c("Hokkabaz", "Babam ve Oglum", "Ölümlü Dünya 2")

favourite_movies_data <- movie_data[movie_data$title %in% favourite_movies, ]

kable(rbind(favourite_movies_data), caption = "My Favorite Movies")
My Favorite Movies
title year duration rating vote
27 Babam ve Oglum 2005 108 8.2 91051
116 Ölümlü Dünya 2 2023 117 7.4 3558
127 Hokkabaz 2006 122 7.4 34186

3.3 Visualization

avg_rating_by_year <- movie_data %>%
         group_by(year) %>%
         summarise(avg_rating = mean(rating))

ggplot(avg_rating_by_year, aes(x= year, y= avg_rating)) + geom_point()

The graphic shows that average ratings fall as the number of years increases.

ggplot(movie_data, aes(x = year, y = rating, group = year)) + geom_boxplot()

3.4. Do you believe there is a relationship between the number of votes a movie received and its rating? Investigate the correlation between Votes and Ratings.

cor(movie_data$vote, movie_data$rating)
[1] 0.1310893

The correlation coefficient of 0.1310893 indicates a weak positive linear relationship between the number of votes a movie received and its rating. While there is some positive association, the strength of the relationship is relatively weak.

3.5. Do you believe there is a relationship between a movie’s duration and its rating? Investigate the correlation between Duration and Ratings.

cor(movie_data$duration, movie_data$rating)
[1] NA

The correlation coefficient is NA, indicating that a correlation couldn’t be calculated between the number of votes and ratings.

4. Turkish Movies in the Top 1000 on IMDb

url_vec_3 <- "https://m.imdb.com/search/title/?title_type=feature&groups=top_1000&country_of_origin=TR&count=250"

html_3 <- read_html(url_vec_3)

#title
title_names_3 <- html_3 |> html_elements(".ipc-title__text")
title_names_3 <- html_text(title_names_3)
title_names_3 <- tail(head(title_names_3,-1),-1)
title_names_3 <- str_split(title_names_3, " ", n=2)
title_names_3 <- unlist(lapply(title_names_3, function(x) {x[2]}))

title <- title_names_3

#year

year_3 <- html_3 |> html_elements(".sc-43986a27-8.jHYIIK.dli-title-metadata-item:nth-child(1)")
year_3 <- html_text(year_3)
year_3 <- as.numeric(year_3)

year <- year_3

top1000_dataf <- data.frame(title, year)

kable(rbind(top1000_dataf), caption= "Turkish Movies in IMDB Top 1000")
Turkish Movies in IMDB Top 1000
title year
Yedinci Kogustaki Mucize 2019
Kis Uykusu 2014
Nefes: Vatan Sagolsun 2009
Ayla: The Daughter of War 2017
Babam ve Oglum 2005
Ahlat Agaci 2018
Bir Zamanlar Anadolu’da 2011
Eskiya 1996
G.O.R.A. 2004
Vizontele 2001
Her Sey Çok Güzel Olacak 1998
final_dataf <- movie_data%>%
  inner_join(top1000_dataf, by = c("title", "year"))

kable(rbind(final_dataf), caption= "Turkish Movies in IMDB Top 1000")
Turkish Movies in IMDB Top 1000
title year duration rating vote
Ayla: The Daughter of War 2017 125 8.3 43001
Yedinci Kogustaki Mucize 2019 132 8.2 54193
Babam ve Oglum 2005 108 8.2 91051
Eskiya 1996 128 8.1 71705
Her Sey Çok Güzel Olacak 1998 107 8.1 27128
Kis Uykusu 2014 196 8.0 54660
Ahlat Agaci 2018 188 8.0 27029
Nefes: Vatan Sagolsun 2009 128 8.0 35029
G.O.R.A. 2004 127 8.0 66041
Vizontele 2001 110 8.0 38409
Bir Zamanlar Anadolu’da 2011 157 7.8 49379
final_dataf <- arrange(final_dataf, desc(rating))
kable(rbind(final_dataf), caption= "Turkish Movies in IMDB Top 1000 by Ranked")
Turkish Movies in IMDB Top 1000 by Ranked
title year duration rating vote
Ayla: The Daughter of War 2017 125 8.3 43001
Yedinci Kogustaki Mucize 2019 132 8.2 54193
Babam ve Oglum 2005 108 8.2 91051
Eskiya 1996 128 8.1 71705
Her Sey Çok Güzel Olacak 1998 107 8.1 27128
Kis Uykusu 2014 196 8.0 54660
Ahlat Agaci 2018 188 8.0 27029
Nefes: Vatan Sagolsun 2009 128 8.0 35029
G.O.R.A. 2004 127 8.0 66041
Vizontele 2001 110 8.0 38409
Bir Zamanlar Anadolu’da 2011 157 7.8 49379
Back to top