Uzupełnianie danych wszystkimi kombinacjami wartości

Przekształcanie danych z tidyr

Jeroen Boeye

Head of Machine Learning, Faktion

Rolling Stones i Beatles

album_df

# A tibble: 3 x 3
   year artist         n_albums
  <int> <chr>             <int>
1  1977 Beatles               2
2  1977 Rolling Stones        1
3  1979 Beatles               1

Stan wyjściowy i docelowy

Przed complete

Po complete

Stan wyjściowy i docelowy

Przed complete

Po complete z fill

Funkcja complete()

album_df %>% 
  complete(year, artist)

# A tibble: 4 x 3
   year artist         n_albums
  <int> <chr>             <int>
1  1977 Beatles               2
2  1977 Rolling Stones        1
3  1979 Beatles               1
4  1979 Rolling Stones       NA

Funkcja complete(): zastępowanie wartości NA

album_df %>% 
  complete(year, artist, fill = list(n_albums = 0L))

# A tibble: 4 x 3
   year artist         n_albums
  <int> <chr>             <int>
1  1977 Beatles               2
2  1977 Rolling Stones        1
3  1979 Beatles               1
4  1979 Rolling Stones        0

Funkcja complete(): dodawanie nowych wartości

album_df %>% 
  complete(
    year,
    artist = c(
      "Beatles", 
      "Rolling Stones", 
      "ABBA"), 
    fill = list(n_albums = 0L)
  )

# A tibble: 6 x 3
   year artist         n_albums
  <int> <chr>             <int>
1  1977 ABBA                  0
2  1977 Beatles               2
3  1977 Rolling Stones        1
4  1979 ABBA                  0
5  1979 Beatles               1
6  1979 Rolling Stones        0

Funkcja complete(): dodawanie nowych wartości

album_df %>% 
  complete(
    year = 1977:1979,
    artist, 
    fill = list(n_albums = 0L)
  )

# A tibble: 6 x 3
   year artist         n_albums
  <int> <chr>             <int>
1  1977 Beatles               2
2  1977 Rolling Stones        1
3  1978 Beatles               0
4  1978 Rolling Stones        0
5  1979 Beatles               1
6  1979 Rolling Stones        0

Generowanie sekwencji za pomocą full_seq()

full_seq(c(1977, 1979), period = 1)

1977 1978 1979

full_seq(c(1977, 1979, 1980, 1980, 1980), period = 1)

1977 1978 1979 1980

full_seq(album_df$year, period = 1)

1977 1978 1979

Użycie full_seq() wewnątrz complete()

album_df %>% 
  complete(
    year = full_seq(year, period = 1),
    artist, 
    fill = list(n_albums = 0L)
  )

# A tibble: 6 x 3
   year artist         n_albums
  <dbl> <chr>             <int>
1  1977 Beatles               2
2  1977 Rolling Stones        1
3  1978 Beatles               0
4  1978 Rolling Stones        0
5  1979 Beatles               1
6  1979 Rolling Stones        0

Generowanie sekwencji dat za pomocą full_seq()

full_seq(c(as.Date("2000-01-01"), as.Date("2000-01-10")), period = 1)

 [1] "2000-01-01" "2000-01-02" "2000-01-03" "2000-01-04" "2000-01-05"
 [6] "2000-01-06" "2000-01-07" "2000-01-08" "2000-01-09" "2000-01-10"

Czas na ćwiczenia!

Przekształcanie danych z tidyr