1 Correct answers: basics

1.1. Miten luot numeerisen vektorin, jossa luvut 1 ja 2

c(1,2)
# Or
c(1:2)

1.2. Miten luot kirjainvektorin, jossa sanat yksi ja kaksi

c("yksi", "kaksi")

1.3. Luo kirjainvektori nordics (character vector), jonka elementteinä ovat pohjoismaiden nimet englanniksi kirjoitettuna aakkosjärjestyksessä

nordics <- c("Denmark","Finland","Iceland","Norway","Sweden")
# Or
nordics <- sort(c("Finland","Iceland","Denmark","Norway","Sweden"))

1.4. Luo numeerinen vektorin nimeltä nro, jossa numero välitä 1-30. Miten saat selville vektori luokan?

nro <- 1:30
# Or
nro <- c(1:30)
# Or
nro <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30)
# And
is(nro)
# Or
class(nro)
# Or
typeof(nro)

1.5. Millä komenolla saat neliöjuuren luvusta 529

sqrt(529)

1.6. Millä komennolla luot nykyisen työhakemistoon kansion assignment1

dir.create("./assignment1")

1.7. Millä komennolla luot nykyisen työhakemistoon kansion assignment1/plots

dir.create("./assignment1/plots", resursive = TRUE)

1.8. Luo kansioon assignment1 tiedosto ‘notes.txt’ ja kopioi se samaan kansioon nimellä notes.md

file.create("./assignment1/notes.txt")
# And
file.copy("./assignment1/notes.txt", "./assignment1/notes.md")

1.9. Listaa nykyisen työhakemistosi tiedostot

list.files(path = "./", all.files = TRUE, full.names = TRUE)

1.10. Poista nykyisestä työhakemistosta tiedosto file.txt

file.remove("./file.txt")

1.11. Poista nykyisestä työhakemistosta kansio assignment1

unlink("./assignment1",recursive= TRUE, force=TRUE)

1.12. Asenna CRAN:sta paketti eurostat

install.packages("eurostat")

*1.13. Asenna Github:sta paketti rqog osoitteesta https://github.com/ropengov/rqog*

devtools::install_github("ropengov/rqog")
# Or
devtools::install_git("https://github.com/ropengov/rqog")

1.14. Päivitä kaikki CRAN:sta asentamasi paketit

update.packages(ask = FALSE)

*1.15. Luo data ydinasevaltioista, niiden presidenteistä/valtiopäämiehistä ja väestömäärästä (ks. https://en.wikipedia.org/wiki/List_of_states_with_nuclear_weapons)*

data.frame(country = c('United States','Russian Federation','France','United Kingdom','China'),
           president = c('Donald Trump','Vladimir Putin','François Hollande','Elisabeth II','Xi Jinping'),
           population = c(1234,1234,1234,1234,1234),
           stringsAsFactors=FALSE)
# Or
dplyr::data_frame(country = c('United States','Russian Federation','France','United Kingdom','China'),
                  president = c('Donald Trump','Vladimir Putin','François Hollande','Elisabeth II','Xi Jinping'),
                  population = c(1234,1234,1234,1234,1234))
tibble::tribble(
  # Or
  ~country, ~president, ~population,
  "United States","Donald Trump",1234,
  "Russian Federation","Vladimir Putin",1234,
  "United Kingdom","François Hollande",1234,
  "France","Elisabeth II", 1234,
  "China" ,"Xi Jinping", 1234
)

*1.16. Lisää ydinasevaltiodataan uusi muuttuja iso2, jossa kunkin maan iso2-koodi https://en.wikipedia.org/wiki/ISO_3166-1_alpha-2*

df$iso2 <- c("us","ru","gb","fr","cn")
# Or
df["iso2"] <- c("us","ru","gb","fr","cn")

1.17. Lisää ydinasevaltiodataan uusi rivi eli maa nimeltä Pakistan, ja siitä tiedot country, president, population ja iso2-koodi

rbind(df, c("Pakistan","pressa",1234,"PK"))
# Or
pak_data <- c(country = "Pakistan",
              president = "pressa",
              population = 1234,
              iso2 = "PK")
bind_rows(df, pakdata)

1.18. Komennolla ´starwars <- dplyr::starwarssaat objektinstarwars´. Miten saat konsoliin datan kuusi ensimmäistä riviä?

starwars[1:6,]
# Or
head(starwars,6)
# Or
dplyr::slice(starwars, 1:6)

1.19. Komennolla ´starwars <- dplyr::starwarssaat objektinstarwars´. Miten saat konsoliin datan muuttujien luokat?

str(starwars)
# Or
dplyr::glimpse(starwars)

1.20. Komennolla ´starwars <- dplyr::starwarssaat objektinstarwars´. Mikä on height muuttujan keskiarvo?

mean(starwars$height)

1.21. Komennolla ´starwars <- dplyr::starwarssaat objektinstarwars´. Montako uniikkia lajia (muuttuja species) aineistossa on?

length(unique(starwars$species))
# Or
dplyr::count(starwars, species)

1.22. Komennolla ´starwars <- dplyr::starwarssaat objektinstarwars´. Mikä osuus datan otuksista on vihreitä iholtaan (muuttuja skin_color)?

prop.table(table(starwars$skin_color))[["green"]]
# Or
starwars %>%
  count(skin_color) %>%
  mutate(share = n/sum(n)) %>%
  filter(skin_color == "green") %>%
  pull(share)

2 Correct answers: rstudio

2.1. Mistä valikosta voit vaihtaa Rstudion teemaa ja fonttia? Vastaa sanallisesti.

# Tools > Global Options > Appearance

2.2. Miten voit viedä kuvan pdf-muotoon? Vastaa sanallisesti.

# Piirrä kuva, klikkaa Plots paneelissa Export ja sitten save as pdf ja valitse koko ja sijtain

2.3. Millä komennolla voit avata projektisi hakemistossa olevan tiedoston ‘analyysi.R’ auki RStudioon?

file.edit("./analyysi.R")

3 Correct answers: tidyverse

3.1. Mitkä ovat data-analyysin seitsemän vaihetta joiden ympärille Tidyverse rakentuu? Vastaa sanallisesti.

# Tuo > Siivoa > Muokkaa > Visualisoi > Mallinna > Kommunikoi < Ohjelmoi

3.2. Minkä niminen henkilö on Tidyversen takana?

# Hadley Wickham

3.3. Mikä on tidy datan määritelmä? Vastaa suomeksi

# Muuttujat sarakkeissa, tapaukset riveillä ja eri asiat eri datoissa