0

with the following code:

as_tibble(ump$embedding)%>%
  mutate(Endothel = lfracs["Cdh5",]+lfracs["Pecam1",], Lymph =lfracs["Pdpn",],
         ArterienVenen=lfracs["Vwf",], Arterien= lfracs["Gja5",]+lfracs["Bmx",],
         Venen= lfracs["Nr2f2",])-> bonus

I get a table that looks like this.

Then with

ggplot()+
  geom_point(aes(x=V1,y=V2), size=.1)+
  coord_equal()

I get this graph. Now I want to colour the points with what they are (Endothell, Lymph, etc...) and a legend that states which colour is what gene. How could I approach this?

George
  • 5
  • 2
  • 2
    See [here](https://stackoverflow.com/a/70557611/8245406) or [here](https://stackoverflow.com/a/64174453/8245406). And please post data in `dput` format. Please post the output of `dput(head(bonus, 20))` in the question. – Rui Barradas Apr 08 '22 at 14:49

0 Answers0