Chapter 10 skewed data

folder <- "Data from The enteric nervous system promotes intestinal health by constraining microbiota composition"
fn <- "journal.pbio.2000689.s008.xlsx"
sheet_i <- "Figure 2"
range_i <- "F2:I24"
file_path <- paste(data_path, folder, fn, sep="/")
dt_wide <- data.table(read_excel(file_path, sheet=sheet_i, range=range_i))
setnames(dt_wide, old=colnames(dt_wide), new=clean_label(colnames(dt_wide)))
# wide to long
dt <- na.omit(melt(dt_wide, measure.vars=colnames(dt_wide), variable.name="donor", value.name="count"))