dput(spleen)
structure(list(aid = c("A1", "A2", "A3", "A4", "B1", "B2", "B3",
"B4", "C1", "C2", "C3", "C4", "D1", "D2", "D3", "D4", "E1", "E2",
"E3", "E4", "F1", "F2", "F3", "F4"), tissue = c("sp", "sp", "sp",
"sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp",
"sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp", "sp"),
group = c("A", "A", "A", "A", "B", "B", "B", "B", "C", "C",
"C", "C", "A", "A", "A", "A", "B", "B", "B", "B", "C", "C",
"C", "C"), sex = c("m", "m", "m", "m", "m", "m", "m", "m",
"m", "m", "m", "m", "f", "f", "f", "f", "f", "f", "f", "f",
"f", "f", "f", "f"), detail = c("mCD4", "mCD4", "mCD4", "mCD4",
"mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4",
"mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4", "mCD4",
"mCD4", "mCD4", "mCD4", "mCD4"), value = c(0, 0, 0, 0, 0,
0, 0, 0.46, 0, 0, 0, 0, 0, 0, 0, 0.31, 0, 0, 0, 0.47, 0,
0, 0, 0)), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"
), row.names = c(NA, -24L), spec = structure(list(cols = list(
aid = structure(list(), class = c("collector_character",
"collector")), tissue = structure(list(), class = c("collector_character",
"collector")), group = structure(list(), class = c("collector_character",
"collector")), sex = structure(list(), class = c("collector_character",
"collector")), detail = structure(list(), class = c("collector_character",
"collector")), value = structure(list(), class = c("collector_double",
"collector"))), default = structure(list(), class = c("collector_guess",
"collector")), skip = 1), class = "col_spec"))