How to split sample of function (plotByDatasetAndCluster) about liger HOT 2 CLOSED

library(ggplot2)
tsne_df <- data.frame([email protected]) # After running LIGER pipeline
colnames(tsne_df) <- c("Dim1", "Dim2") # e.g. tSNE or UMAP coordinates
tsne_df[['Dataset']] <- unlist(lapply(1:length(liger_object@H), function(x) {
  rep(names(liger_object@H)[x], nrow(liger_object@H[[x]]))
}))

p <- ggplot(data = tsne_df, aes(Dim1, Dim2, color=Dataset)) +
     theme_bw() + 
     theme_cowplot(12) +
     geom_point() + 
     labs(title = "Example Plot",
          x = "Dim1", y = "Dim2") + 
     facet_wrap(~ Dataset)
p