# lisätään saraka dataframeen ja annetaan sinne tyhjä stringi joka riville:
swiss$Catholicity <- ""
# Annetaan sarakkeen Cathoilic vastaavanarvon perusteella arvo "High" Catholicity -sarakkeen samalle riville
swiss$Catholicity[swiss$Catholic >= 50] <- "High"
# ... ja toisin päin arvoille jotka on alle 50 ...
swiss$Catholicity[swiss$Catholic < 50] <- "Very very WEAK"
# suitte piirretään kuvaaja. Näytetään dataa Fertility -saraakkeesta ja ~ -merkillä kerrotaan että tehdään jako ton Catholicity
# -sarakkeen mukaan.
boxplot(swiss$Fertility~swiss$Catholicity)

# simppelimpi:
boxplot(swiss$Fertility~(swiss$Catholic >= 50))