download.file(paste0(url, "/", cluster_merging2_filename),
  destfile = cluster_merging2_filename, mode = "wb")

original_cluster  new_cluster
1                 1 B-cells IgM+
2                 2     surface-
3                 3     NK cells
4                 4  CD8 T-cells
5                 5 B-cells IgM-
6                 6    monocytes
7                 7  CD8 T-cells
8                 8  CD8 T-cells
9                 9    monocytes
10               10  CD4 T-cells
11               11           DC
12               12  CD4 T-cells

## Convert to factor with merged clusters in correct order

cluster_merging2$new_cluster <- factor(cluster_merging2$new_cluster,
  levels = levels_clusters_merged)