r - How to add labels to ggplot segment? -


i'm trying add labels segments created in graph using ggplot

dat <- data.frame(start <- c(-1.05113647, -0.63911585, -0.62791554),                   end <- c(0.37491159, -0.13911585, -0.12791554),                    order <- c("sei whale", "probeagle", "northern fur seal"),                   pos <- c(1, 2, 3))   ggplot(dat) +    geom_segment(aes(x=start, y=start, xend=end, yend=start), colour = "blue", size = 2) +   scale_y_reverse() +   xlab("pc1")+   ylab(" ")+   theme_linedraw() +    theme(panel.grid.minor = element_blank(), panel.grid.major =   element_blank()) +    theme(aspect.ratio = 0.3) +   theme(legend.position="none") +   theme(axis.ticks = element_blank(), axis.text.y = element_blank())

i'd know how add names "order" respective segments.

you try geom_dl() directlabels package , expand x axis bit:

library(ggplot2) library(directlabels)  ggplot(dat) +    geom_segment(aes(x = start, y = start, xend = end, yend = start),                 colour = "blue", size = 2) +   scale_y_reverse() +   geom_dl(aes(end, start, label = order),            method = list(dl.trans(x = x + 0.2), "last.bumpup", cex = 0.60)) +   scale_x_continuous(expand = c(0, 0.2)) +   labs(x = "pc1", y = " ") +   theme_linedraw() +    theme(panel.grid.minor = element_blank(), panel.grid.major = element_blank()) +    theme(aspect.ratio = 0.7) +   theme(legend.position = "none") +   theme(axis.ticks = element_blank(), axis.text.y = element_blank())

which gives:

enter image description here

note: changed aspect.ratio 0.7 make more readable.


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more