Gegeven

Via https://rebrickable.com/ kan je de waarde van je oude Lego blokken inschatten. Achter de website zit een databank met alle sets die LEGO ooit heeft in de markt gezet.

Via onderstaande code kan je de sets die LEGO heeft uitgebracht tussen 2018 en 2020 ophalen.

# Importeert de data
data <- read.csv2("https://www.openintro.org/data/csv/lego_population.csv",
                  sep = ",")
data <- data[,c(2,3,4,5,7,8)]
data$price <- as.numeric(data$price)
data <- data[complete.cases(data),]
data <- data[data$price < 10000,]

via head(data) krijgen we een (beperkt) overzicht van deze gegevens:

                  set_name   theme pieces price year    ages
1    Extra Dots - Series 2    DOTS    109  3.99 2020 Ages_6+
2    Extra Dots - Series 1    DOTS    109  3.99 2020 Ages_6+
3     Creative Blue Bricks Classic     52  4.99 2020 Ages_4+
4    Creative Green Bricks Classic     60  4.99 2020 Ages_4+
5   Funky Animals Bracelet    DOTS     33  4.99 2020 Ages_6+
6 Sparkly Unicorn Bracelet    DOTS     33  4.99 2020 Ages_6+

Je vindt er de naam van de set, theme stelt het thema voor, pieces het aantal stukken in een doos, price de verkoopprijs (in $), year het jaar van uitgave en ages de doelgroep.

Gevraagd

Zorgen merknamen bij de themas voor duurdere sets?

• Wat was de gemiddelde prijs van alle lego sets? Sla dit op in de variabele gemiddelde_prijs. Rond dit getal af op 2 cijfers na de komma.
• Analyseer nu ook de LEGO sets uit het thema Star Wars™. Kopieer zeker ook het ™ logo. Maak een booleaanse vector thema_star_wars aan, waarin je bewaart welke sets dit thema hadden.
• Maak nu ook een variabele gemiddelde_prijs_star_wars waarin je de gemiddelde kost van de Star-Wars-sets bepaalt. Rond deze variabele ook af op 2 cijfers na de komma.
• Ligt dit prijs verschil mogelijks aan het aantal stukken in deze dozen? Maak een variabele prijs_per_stuk waarin je berekent hoeveel je betaalt per stuk in de doos.
• Bereken nu ook gemiddelde_prijs_per_stuk en gemiddelde_prijs_per_stuk_star_wars. Rond ook deze 2 variabelen af op 2 cijfers na de komma.