(*Import the spreadsheet. The user must customize the Import[] function argument according to the manner in which they store the spreadsheet*)

​

sheet2 =Import["1-s2.0-S2666634022004500-mmc3.xlsx"]

​

(*Specify style*)

​

style = PlotRange -> All,ChartStyle -> {Lighter@   Lighter@RGBColor[    0.4000000693396528, 0.16862731518517743`, 0.4705882086360839,     1.]}, PlotTheme -> "Detailed",PlotLabel ->Style["Residual Vectors in Reprogramming for Haplobanking: Trpp53DD",  FontColor -> RGBColor[   0.4000000693396528, 0.16862731518517743`, 0.4705882086360839, 1.],   FontSize -> 20, FontFamily -> "PingFang HK"],FrameLabel -> {Style["Clone Number",   FontColor -> RGBColor[    0.4000000693396528, 0.16862731518517743`, 0.4705882086360839,     1.], FontSize -> 16, FontFamily -> "PingFang HK"],  Style["Residual Vector Counts",   FontColor -> RGBColor[    0.4000000693396528, 0.16862731518517743`, 0.4705882086360839,     1.], FontSize -> 16, FontFamily -> "PingFang HK"]},ImageSize -> 800, BarSpacing -> {1, 1};

(*Plot. Eliminate non-detection entries by setting to zero (i.e., ->0)*)
BarChart[{Table[sheet2[[1]][[i]][[16]], {i, 8, Length@sheet2[[1]]}] /.
      "N/D" -> 0 /. "n.t." -> 0 /. "-" -> 0 /. "" -> 0}, style]