library(readxl)

read_xlsx("~/Downloads/13428_2013_403_MOESM1_ESM.xlsx") %>% filter(Conc.M >= 4)
