kjhealy

### Messing around with alluvial plots


library(tidyverse)
library(here)

### -------------- Note on Fonts --------------------
## For these fonts to work you will need to have
## the full Myriad Pro font installed along with
## my {myriad} package. Myriad Pro is available

kjhealy

## Take an approximately 0.1 percent sample of lines from this gzipped
## csv file. We do this by having gzip stream to STDOUT and then the
## Perl one-liner does the sampling. On an 80GB file, the output will
## be ~80MB. Strictly speaking this is only roughly a 1% sample.
## Also, there are a few possible edge cases with the rough-and-ready
## sampling method, but they're not that likely to worry us given what
## we want to do.
gzip -cd giantfile.csv.gz | perl -ne 'print if (rand() < .001)' > sample.csv

## Don't forget to put back the column names

kjhealy

library(tidyverse)

url <- "https://caphector.com/co2.csv"
df <- read_csv(url) |>
  mutate(Time = paste0("2023/", Time),
         Time = lubridate::as_datetime(Time))

df |>
  pivot_longer(`CO2 (SCD40)`:`Altitude (BME)`) |>
  ggplot(mapping = aes(x = Time,

kjhealy

## Irish birth data
## Kieran Healy / @mastodon.social@kjhealy 


# After Stata version by Brendan Halpin: 
# https://mastodon.social/@bthalpin/109919093889324229


library(tidyverse) # dplyr 1.00 or higher

kjhealy

Installing tmux-256color for macOS

• macOS 10.15.5
• tmux 3.1b

macOS has ncurses version 5.7 which does not ship the terminfo description for tmux. There're two ways that can help you to solve this problem.

The Fast Blazing Solution

Instead of tmux-256color, use screen-256color which comes with system. Place this command into ~/.tmux.conf or ~/.config/tmux/tmux.conf(for version 3.1 and later):

kjhealy

## list2env() example
##
## An occasionally useful fn to turn list elements into objects. You usually
## want to keep your dfs etc as some kind of list, because it's much neater,
## but sometimes you want to spit out a bunch of named objects.

## Base R version
## We need to take care not to mislabel the list elements, e.g. by mistakenly
## assuming things about the correspondence between elements and names.
## To see why this is bad try e.g. unique(mtcars$cyl), which will be in

kjhealy

/* This is in /Applications/RStudio.app/Contents/Resources/app/resources/R.css
/*
 * R.css
 *
 * Copyright (C) 2022 by Posit Software, PBC
 *
 * Unless you have received this program directly from Posit Software pursuant
 * to the terms of a commercial license agreement with Posit Software, then
 * this program is licensed to you under the terms of version 3 of the
 * GNU Affero General Public License. This program is distributed WITHOUT

kjhealy

``` r
## Multinomial Logit Example

## Libraries
library(tidyverse) # Graphing and other tools
library(palmerpenguins) # The data
library(nnet)  # Fitting the model
library(marginaleffects) # Extracting the effects (v0.8 or higher)

### Note:

kjhealy

## Using position_nudge() to make showing a background 
## distribution a little nicer, by pushing it very slightly
## to the right. Most of the work is getting the penguins
## data to the point where I can demonstrate position_nudge()

library(tidyverse)
library(palmerpenguins)

# Classify every penguin's flipper length into 
# bins with widths of 10mm; then sum up

kjhealy

```{r}
library(tidyverse)
library(here)
library(fs)
library(socviz)
```

```{r}
here()
```