data(toy_ldata)
str(toy_ldata[["ToySample"]])
plot(toy_ldata[["ToySample"]]$x, toy_ldata[["ToySample"]]$y,
col = as.factor(toy_ldata[["ToySample"]]$coarse_phen_vec),
pch = 19, cex = 0.5, main = "Toy sample cells")
Run the code above in your browser using DataLab