# create an APackOfTheClones plot with a legend
apotc_plot <- vizAPOTC(
get(data("combined_pbmc")),
add_size_legend = TRUE,
verbose = FALSE
)
# remove the legend
apotc_plot <- removeLegend(apotc_plot)
apotc_plot
Run the code above in your browser using DataLab