Thanks @williaml
Here is the reproducible data that I used-
structure(list(Treatment = c("Control", "PEG (25%)", "Control",
"PEG (25%)", "Control", "PEG (25%)", "Control", "PEG (25%)",
"Control", "PEG (25%)"), SL = c(14.43, 6.97, 12.92, 8.11, 17.85,
9.26, 11.94, 7.71, 13.12, 12.39), RL = c(14.01, 7.34, 8.96, 5.86,
8.88, 5.38, 9.91, 5.8, 9.89, 6.95), SFW = c(69.57, 31.86, 65.33,
21.9, 98.37, 41.11, 68.06, 35.56, 93.54, 64.27), RFW = c(36.84,
26.44, 65.59, 48.34, 65.39, 46.39, 37.37, 22.59, 49.99, 39.55
), SDW = c(11.58, 8.08, 7.77, 4.81, 9.44, 5.81, 7.88, 5.52, 9.73,
8.34), RDW = c(8.59, 6.99, 6.12, 5.24, 6.82, 5.84, 7.04, 5.84,
7.6, 6.83), STWC = c(83.36, 74.64, 88.1, 78.05, 90.4, 85.87,
88.43, 84.47, 89.6, 87.02), RTWC = c(76.68, 73.56, 90.67, 89.16,
89.56, 87.42, 81.17, 74.14, 84.79, 82.73), RSR = c(0.74, 0.87,
0.79, 1.09, 0.72, 1, 0.89, 1.06, 0.78, 0.82), SVI = c(9.39, 4.82,
8.09, 5.09, 11.13, 6.09, 7.2, 4.54, 14.79, 12.43), LRWC = c(62.8,
50.3, 71.7, 58.4, 74.1, 54.2, 68.4, 54.2, 75.4, 67.4), CMS = c(55.6,
39.3, 57.8, 43.6, 62.1, 44.8, 60, 41.9, 65.7, 51.5)), row.names = c(NA,
10L), class = "data.frame")