---
title: Ćwiczenia na zajęcia z filmów
author: Bartosz Maćkiewicz
format:
  html:
    embed-resources: true
    code-copy: true
    lang: pl
    theme: cosmo
lang: pl
engine: knitr
editor: source
execute:
  error: false
---


# Wszystkie filmy świata!

Państwa zadaniem na dzisiejszych zajęciach jest przeanalizowanie pewnych trendów na rynku kinematograficznym!

## Zadanie 1: Wczytywanie danych

Pierwszym zadaniem jest wczytanie danych dotyczących filmów z pliku `movie_metadata.csv`. Znajdują się tam informacje o ponad 5000 filmach ściągnięte z portalu IMDB. Przyda się tutaj polecenie `read.csv(plik)`, gdzie jako argument podajemy ścieżkę do pliku. Usuń z ramki danych te filmy, dla których nie ma podanego roku (`title_year`) korzystając z funkcji `is.na`.

```{r}
# Tutaj miejsce na Twój kod
```

## Zadanie 2: Przeszukiwanie bazy filmów

### Których filmów jest więcej: tych nakręconych w kolorze czy czarno-białych? (hint: `table()`)

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj jest miejsce na Twoją odpowiedź*

### Ile filmów powstałych między 2009 a 2011 rokiem ma średnią ocenę na IMBD wyższą niż 8.0? 

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj jest miejsce na Twoją odpowiedź*

### Które filmy mają średnio wyższą ocenę na IMBD: w języku niemieckim czy w języku francuskim? (hint: `mean()`)

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*

### Który reżyser wyreżyserował najwięcej filmów o średniej ocenie wyższej niż 8.5? A który o mniejszej niż 3?

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*

### W którym roku filmy ze średnią ocen wyższą niż 8.0 zarobiły najwięcej: w 1990, 2000 czy 2010?

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*

# Zadanie 3

Stwórz dodatkową kolumnę, w której umieścisz stosunek przychodów filmu do jego budżetu. Sprawdź, które filmy generują większą stopę zwrotu: Stevena Spielberga czy Woody'ego Allena.

```{r}
# Tutaj miejsce na Twój kod
```

*Tutaj miejsce na Twoją odpowiedź*