Skip to content

Instantly share code, notes, and snippets.

### Earnings Dumbbell Chart
library(ggplot2)
library(tidyr)
library(dplyr)
library(scales)
schoolearnings <- read.csv("schoolearnings.csv", stringsAsFactors=FALSE)
df <- schoolearnings %>% gather(gender,value,2:3)