備忘of備忘。以前こっちに書いたと思って探したら（たぶん）書いてなかった library( tidyverse) library( ggplot2) library( panelr) data("WageData") dfWg <- WageData %>% group_by(union , occ) %>% summarize(lwage = mean(lwage)) %>% as.data.frame(…