library(ggplot2)
data(pbmc)
frame <- as.data.frame(pbmc$umap)
frame$type <- pbmc$types
ggplot(frame, aes(x=xs, y=ys, fill=type)) +
geom_point(size=0.75, shape=21, color="black", stroke=0.1) +
scale_fill_chameleon() +
theme(legend.text=element_text(size=12), legend.key.height=unit(14, 'pt'))
Run the code above in your browser using DataLab