install.packages(“carData”) install.packages(“dplyr”)

1.načítať tabuľku údajov UN z balíku carData,

library(carData) library(dplyr)

data(UN)

2.premenovať stĺpce z angličtiny do svojho rodného jazyka,

UN <- UN %>% rename( Країна = region, Група = group, ‘народжуваність дітей’ = fertility, Продуктивність_робітника = ppgdp, Урбанізація = lifeExpF, Місто = pctUrban, ‘дитяча смертність’ = infantMortality )

3.ponechať v tabuľke iba európske krajiny,

UN <- UN %>% filter(Країна == “Europe”)

4.prekódovať hodnoty premennej skupina na {OECD, ostatné},

UN <- UN %>% mutate(Група = if_else(Група %in% c(“OECD”, “EU”), “OECD”, “other”))

5.vytvoriť novú premennú konverziou percenta mestskej populácie na podiel v intervale [0,1] (stĺpec umiestniť hneď vedľa),

UN <- UN %>% mutate(Пропорція_урбанізації = Урбанізація / 100)

6.zoskupiť pozorovania podľa skupiny,

grouped_UN <- UN %>% group_by(Група) %>% summarise(across(where(is.numeric), mean))

print(grouped_UN)

7.vypočítať priemerné hodnoty všetkých numerických premenných okrem percenta urbanizácie (napríklad pomocou across a where),

mean_values <- UN %>% summarise(across(where(is.numeric) & !contains(names(.), “Урбанізація”, ignore.case = FALSE), mean))

print(mean_values)

8.zoradiť podľa priemerného veku dožitia vzostupne.

sorted_UN <- UN %>% arrange(Урбанізація)

print(sorted_UN)