c - Plotting a segmented line with segments coloured based on a variable -

-

i'm trying draw plot (in r or gnuplot) x axis represent single sample , y axis segmented represented different portions of time. each line segment (or box) coloured depending on third variable (yes, no, or unknown)

sampleid   y1    y1(answer) y2        y2(answer)  y3      y3(answer)  sample 1   0-50  yes        51-60     no          61-85   yes sample 2   0-40  yes        41-60     no          61-86   no sample 3   0-45  unknown    46-69     yes         70-85   unknown

where colour yes=green, no=red; , unknown=grey

can suggest solution? keep running in same problem, assigning colour based on third variable segment causes difficulty.

some other forum users seem running in same problem yet haven't seen easy workaround. suggest doing multiple plots , overlaying them. wonder if there way of rethinking problem, or reformatting data might help?

i'm not sure mean, best guess. (actually guess want flip x , y axes, should give start.)

data:

dd <- read.table(text=" sampleid   y1    y1(answer) y2        y2(answer)  y3      y3(answer)  sample_1   0-50  yes        51-60     no          61-85   yes sample_2   0-40  yes        41-60     no          61-86   no sample_3   0-45  unknown    46-69     yes         70-85   unknown", header=true)

rearrange data long format:

library(reshape2) dd2 <- melt(dd,id.var=1) dd2 <- transform(dd2,                  var2=substr(as.character(variable),1,2),                  type=ifelse(grepl("\\.",as.character(variable)),"answer","range")) dd2 <- subset(dd2,select=-variable) dd3 <- dcast(dd2,sampleid+var2~type) library("stringr") dd3 <- transform(dd3,start=as.numeric(str_extract(range,"^[0-9]+")),                  end=as.numeric(str_extract(range,"[0-9]+$")),                  answer=factor(answer,levels=c("yes","no","unknown")))

picture:

library("ggplot2") ggplot(dd3)+     geom_segment(aes(x=start,xend=end,y=sampleid,yend=sampleid,colour=answer))+     scale_colour_manual(values=c("red","green","gray"))+     theme_bw()

you last bit segments() well.

enter image description here


Comments

Post a Comment

Popular posts from this blog

c++ - Function signature as a function template parameter -

-
i'd use function signature template argument. works great classes, when try same trick function templates, msvc throws error: error c2768: 'func' : illegal use of explicit template arguments here's code: template <typename signature> void func(); template <typename r, typename a1> void func<r(a1)>(); what should make work? you cannot partially specialize function template, not supported language. can create partially specialized class template static member function, , possibly trampoline function instantiate class template , invoke static function. something this: namespace detail { template<typename signature> struct helper; template<typename r, typename a1> struct helper<r(a1)> { static void call() { // stuff r , a1... } }; } template<typename signature> void func() { detail::helper<signature>::call(); }
Read more

algorithm - What are some ways to combine a number of (potentially incompatible) sorted sub-sets of a total set into a (partial) ordering of the total set? -

-
i have sorting problem i'm pretty sure doesn't have canonical "answer" - has number of different approaches, each pros/cons. i'm interested in hearing different approaches. suppose bunch of people {p_i | i=1,...,m} ranking favorite ice cream flavors. in total there n different flavors, single person p_i ranks n_i << n flavors or familiar with. i'm interested in combining these sub-rankings plausible overall ranking of n flavors. for concrete situation: m , n both 1000 (by coincidence), , each n_i 20 . can assume there's enough overlap in flavors people rank such no flavor "isolated". again, i'm interested in hearing different ways approach this, if there isn't single clear answer. thanks! one way approach problem construct directed cyclic graph representing of constraints on ordering of elements. nodes in graph represent different elements compared , have edge first node second node if had ranked first e...
Read more

How to call a javascript function after the page loads with a chrome extension? -

-
there's function on page want call after loads. not own page, can't insert html it. can please provide specific examples how chrome extension or greasemonkey? (function submitaction() ). both chrome extensions , greasemonkey offer ways specify when script inject if executed. in chrome extension, you set in manifest : "content_scripts": [ { "run_at" : "document_idle", in greasemonkey compatible userscripts, set in metadata // @run-at document-end in both cases, have add script if want ensure resources loaded when function executed : document.addeventlistener('load', submitaction);
Read more