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

Perl - how to grep a block of text from a file -

-
it can in xml or text format. how in general grep block of text in perl? <track type="ws"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>0</locationindex> <propertyindex>0</propertyindex> </range> </track> <track type="ps" id="1"> <range> <rangestart>0</rangestart> <rangeend>146.912</rangeend> <locationindex>1</locationindex> <propertyindex>1</propertyindex> </range> </track> i want grep type="ps" , till </range> . one solution open file, read line line , match block. open(fh, "file.txt"); foreach $line (<fh>) { if ($line =~ m/type="cc"(.*?)<\/range>/) { print $1; } } but there more optimal solution without reading file line l
Read more

delphi - How to remove all the grips on a coolbar if I have several coolbands? -

-
Image
if set mycoolbar.fixedorder true,only grip on first band hidden. well,if use delphi 7 create vcl forms application,then put coolbar on , create 3 coolbans hold other controls,only grip , top coolbands can hidden setting mycoolbar.fixedorder:=true. i've uploaded picture make things clear. you got fixedorder property wrong. fixed property not allow bands rearranged if set true . setting property of coolbar true keep user changing bands order @ runtime, user can still move , resize bands. can give advice can do, actual solution problem, well, have wait answer. my advice use 3 coolbars in row , setting "fixedorder" property true , bandborderstyle bsnone . way grip hidden on of them. about property, it's not bug of ide, actual preference of property.
Read more

javascript - Animating array of divs; only the final element is modified -

-
this baffling me @ moment. i'm experienced programmer looking throw bit of surprise fiancee on countdown page our wedding. desired effect simulated confetti falling behind main page. setup follows: i have array of divs in javascript. each div absolutely positioned on page. have interval set updates every 50 or milliseconds. on each tick, run loop on array of divs, , calculations , update positions. problem problem having, however, though can see divs created, stored array, , modified (in case, each has slight randomized rotation) during initialization phase, once tick update position starts, div stored in whatever last slot of array gets position updated. tried hard-coding each div index testing purposes, strictly last element update position. upon printing current "left" , "top" style values each div before , after calculations shows value has been changed, no visible change noticeable. here's basic code: javascript var container;
Read more