Tidy Tuesday R packages

tuesdata <- tidytuesdayR::tt_load('2023-12-26')

--- Compiling #TidyTuesday Information for 2023-12-26 ----

--- There are 3 files available ---

--- Starting Download ---

    Downloading file 1 of 3: `cran_20221122.csv`
    Downloading file 2 of 3: `external_calls.csv`
    Downloading file 3 of 3: `internal_calls.csv`

--- Download complete ---

## OR
tuesdata <- tidytuesdayR::tt_load(2023, week = 52)

--- Compiling #TidyTuesday Information for 2023-12-26 ----

--- There are 3 files available ---

--- Starting Download ---

    Downloading file 1 of 3: `cran_20221122.csv`
    Downloading file 2 of 3: `external_calls.csv`
    Downloading file 3 of 3: `internal_calls.csv`

--- Download complete ---

cran_20221122 <- tuesdata$cran_20221122
external_calls <- tuesdata$external_calls
internal_calls <- tuesdata$internal_calls

library(tidyverse)

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.2     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.2     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library(tidygraph)

Attaching package: 'tidygraph'

The following object is masked from 'package:stats':

    filter

library(forcats)

What are the top packages by centrality?

cran_20221122 |> dplyr::filter(centrality_dir_mn_no0 > 2000) |> 
  mutate(package=fct_reorder(package, centrality_dir_md_no0)) |> 
  slice_max(centrality_dir_md_no0, n=20) |> 
  ggplot() + aes(x=package, y=centrality_dir_md_no0) +
  geom_col() + theme(axis.text = element_text(angle = 0)) + coord_flip()

Looking at magrittr

mg <- cran_20221122 |>
  dplyr::filter(package == "magrittr")

mg

# A tibble: 1 × 94
  package  version date                license      files_R files_src files_inst
  <chr>    <chr>   <dttm>              <chr>          <dbl>     <dbl>      <dbl>
1 magrittr 2.0.3   2022-03-30 07:30:09 MIT + file …       7         2          0
# ℹ 87 more variables: files_vignettes <dbl>, files_tests <dbl>, loc_R <dbl>,
#   loc_src <dbl>, loc_inst <dbl>, loc_vignettes <dbl>, loc_tests <dbl>,
#   blank_lines_R <dbl>, blank_lines_src <dbl>, blank_lines_inst <dbl>,
#   blank_lines_vignettes <dbl>, blank_lines_tests <dbl>,
#   comment_lines_R <dbl>, comment_lines_src <dbl>, comment_lines_inst <dbl>,
#   comment_lines_vignettes <dbl>, comment_lines_tests <dbl>, rel_space <dbl>,
#   rel_space_R <dbl>, rel_space_src <dbl>, rel_space_inst <dbl>, …

mg_calls <- external_calls |>
  dplyr::filter(package_to=="magrittr") |>
  dplyr::arrange(desc(n_total))

mg_calls

# A tibble: 1,647 × 4
   package_from   package_to n_total n_unique
   <chr>          <chr>        <dbl>    <dbl>
 1 metan          magrittr      2186        2
 2 worldfootballR magrittr      2052        1
 3 datasus        magrittr      1860        1
 4 starvz         magrittr      1859        2
 5 protti         magrittr      1826        1
 6 SwimmeR        magrittr      1737        1
 7 wpa            magrittr      1558        1
 8 DiagrammeR     magrittr      1432        2
 9 hoopR          magrittr      1393        1
10 pointblank     magrittr      1254        1
# ℹ 1,637 more rows