another experiment

Intro Thoughts

Status Quo

UMAP & Tidyverse

library(tidyverse)

## Warning: package 'ggplot2' was built under R version 4.4.1

library(ggcirclepack)

joss_as_of_2021 <- read.csv("https://raw.githubusercontent.com/front-matter/journal-notebooks/refs/heads/main/works_10.21105_2021-10-26.csv")
  
joss_as_of_2021 |> 
  ggplot() + 
  aes(id = title, 
      area = is.referenced.by.count ,
      label = title |> str_wrap(20),
      fill = published.date.parts |> as_date()) + 
  geom_circlepack() + 
  geom_circlepack_text(color = "whitesmoke") +
  coord_equal() + 
  scale_size(range = c(0,4)) + 
  labs(title = "JOSS citations as of 2021-10-26")

## Warning: Unknown or uninitialised column: `wt`.

## Warning: Unknown or uninitialised column: `within`.

## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored

## Warning: Unknown or uninitialised column: `wt`.

## Warning: Unknown or uninitialised column: `within`.

## Warning in packcircles::circleProgressiveLayout(., sizetype = "area"): missing
## and/or non-positive sizes will be ignored

## Warning: Removed 576 rows containing missing values or values outside the scale range
## (`geom_text()`).