library(plyr) library(tidyverse) library(haven) library(scales) adis <- read_sas("adis.sas7bdat") adis1 <- adis %>% filter(IPPSFL == "Y", PARAMCD == "SAR2NAB", ANL01FL …