Thank you. Will try this. In the meantime here is the dput(head(df))
> dput(head(df2))
structure(list(Sample = c("F675BNARV", "F685NARV", "F715NARV",
"F717NARV", "F722NARV", "F762NARV"), I.48.z4.z24.1.5...48.z4.z24.1.5 = c("0",
"0", "0", "0", "2038340 (9.24%)", "0"), Kentucky...8.i.z6 = c("0",
"0", "0", "0", "2882679 (13.07%)", "0"), Molade.or.Wippra...8.z10.z6 = c("831691 (3.69%)",
"0", "0", "0", "0", "0"), Montevideo...7.g.m.s.NA = c("0", "530046 (2.21%)",
"7823859 (39.08%)", "0", "0", "0"), Newport...8.e.h.1.2 = c("0",
"0", "0", "6689807 (22.29%)", "0", "2864791 (9.66%)")), row.names = c(NA,
6L), class = "data.frame")