diff --git a/content/blog/2023-nyt-books-api/index.md b/content/blog/2023-nyt-books-api/index.md index fb66dcf..a866857 100644 --- a/content/blog/2023-nyt-books-api/index.md +++ b/content/blog/2023-nyt-books-api/index.md @@ -378,9 +378,9 @@ for (i in seq_len(nrow(titles_w_adaptation))) { rplot[[i]] <- data |> right_join(titles_w_adaptation |> - slice(i), by = "title") |> - right_join(data |> select(list_publication_date) |> distinct(), - by = "list_publication_date" + slice(i), by = "title") |> + right_join(data |> select(list_publication_date) |> distinct(), + by = "list_publication_date" ) |> replace_na(list(rank = 16)) |> ggplot(aes(x = list_publication_date, y = rank)) + diff --git a/content/blog/2023-nyt-books-api/index.qmd b/content/blog/2023-nyt-books-api/index.qmd index 55fb492..876d5b8 100644 --- a/content/blog/2023-nyt-books-api/index.qmd +++ b/content/blog/2023-nyt-books-api/index.qmd @@ -377,9 +377,9 @@ for (i in seq_len(nrow(titles_w_adaptation))) { rplot[[i]] <- data |> right_join(titles_w_adaptation |> - slice(i), by = "title") |> - right_join(data |> select(list_publication_date) |> distinct(), - by = "list_publication_date" + slice(i), by = "title") |> + right_join(data |> select(list_publication_date) |> distinct(), + by = "list_publication_date" ) |> replace_na(list(rank = 16)) |> ggplot(aes(x = list_publication_date, y = rank)) +