compound_list <- c("C00022", "C00024", "C00031")
compound_list <- c("C00022", "C00024", "C00031", "C00037", "C00038", "C00042", "C00049", "C00051", "C00068", "C00075", "C00087", "C00111", "C00140", "C00144", "C00162", "C00239", "C00242", "C00254", "C00267", "C00269", "C00272", "C00273", "C00274", "C00276", "C00280", "C00282", "C00283", "C00284", "C00285", "C00287", "C00288", "C00289", "C00290", "C00291", "C00292", "C00293", "C00294", "C00295", "C00296", "C00297", "C00298", "C00299", "C00300", "C00301", "C00302", "C00303", "C00304", "C00305", "