r - Trouble with horizontal and vertical lines accepting class "Date" in ggplot? -

-

i'm trying make gantt chart in ggplot based on generous code offered user didzis elferts. i'm trying add vertical line showing today's date, geom_vline layer in ggplot2 package returns error: discrete value supplied continuous scale. here code:

    today <- as.date(sys.date(), "%m/%d/%y")     library(scales)     ggplot(mdfr, aes(time,name, colour = is.critical)) +        geom_line(size = 6) +       xlab("") + ylab("")+       labs(title="sample project progress")+       theme_bw()+       scale_x_datetime(breaks=date_breaks("1 year"))+       geom_vline(aes(xintercept=today))

the plot without geom_vline command looks plot:

any reason why geom_vline wouldn't work "date" character?

edit: reproducible code used generate plot:

    ### gantt chart 1 ###############3     tasks <- c("meetings", "client calls", "design", "bidding", "construction")     dfr <- data.frame(       name        = factor(tasks, levels = tasks),       start.date  = c("07/08/2013", "07/08/2013", "07/23/2013", "08/30/2013", "9/30/2013"),       end.date    = c("07/12/2013", "07/13/2013", "08/15/2013", "09/12/2013", "12/01/2013"),       is.critical = c(true, false, true, true, true))      mdfr <- melt(dfr, measure.vars = c("start.date", "end.date"))     mdfr$time <- as.posixct(strptime(mdfr$value,"%m/%d/%y"))

there 2 thinks need change in code.

first, making time column in mdfr use as.posixct() same should done today - both variables should have same format.

today <- as.posixct(sys.date(), "%m/%d/%y")

second, use as.numeric() inside geom_vline() around today.

  + geom_vline(aes(xintercept=as.numeric(today)))

Comments

Post a Comment

Popular posts from this blog

plot - Remove Objects from Legend When You Have Also Used Fit, Matlab -

-
Image
i've plotted data points , fitted exponential curve between them using 'fit' in matlab. problem fit-function got fitted line wanted plot, markers on top of regular markers. solved problem plotting wanted markers on top of unwanted couldn't seen. problem. when want show legends dots in there. how can remove markers legend without removing fitted line since both of them hidden inside fit-function? can stop 'fit' plotting unwanted markers? so, want remove blue dot called 'hoff' in picture below. you can leave out legend-entries manually leaving out handles of lines, dont want in legend. try this: %if plot something, want showing in legend, save handle: h_line = plot(x,y) %you dont want show line? dont anything, plot it: plot(mymarker) %then set legend-> can add text legend-entries %a cell-array containing strings want show up: legend([h_line another_line],{'text1' 'text2'}) with example (see comments) came solution:
Read more

java - Why does my date parsing return a weird date? -

-
here code using: string string = "08/07/2013".replace('/', '-'); date date = new simpledateformat("yyyy-mm-dd").parse(string); why date return: "wen jan 3 00:00:00 est 14"? not @ date format told use. edit: need format because database using requires format. the format use parse date string, not match it. using yyyy 08 . use following format: new simpledateformat("dd-mm-yyyy") and why @ replacing / - ? can build pattern original string only: string string = "08/07/2013" date date = new simpledateformat("dd/mm/yyyy").parse(string); and if want date string in yyyy-mm-dd format, can format date using dateformat#format(date) method: string formatteddate = new simpledateformat("yyyy-mm-dd").format(date); see also: change date format in java string simpledateformat java doc
Read more

Need help in packaging app using TideSDK on Windows -

-
i developed application using tidesdk on windows , when click launchapp works fine. moved package , installed imagemagick , wix 3.0 required packaging on windows. clicked on package runtime , cannot guess packaged app is? found file 'installer' in workspace when click on it says installer not find application path . think application not being packaged properly. here log see in tidesdk: preparing package desktop app runtime. 1 moment... staging trial -> copying contents d:\lab\tidesdk\trial d:\lab\tidesdk\trial\packages\win32\bundle\trial -> copying installer c:\programdata\tidesdk\sdk\win32\1.3.1-beta\installer d:\lab\tidesdk\trial\packages\win32\bundle\trial -> copying runtime d:\lab\tidesdk\trial\packages\win32\bundle\trial -> date: d:\lab\tidesdk\trial\packages\win32\bundle\trial\modules\app\1.3.1-beta -> date: d:\lab\tidesdk\trial\packages\win32\bundle\trial\modules\codec\1.3.1-beta -> date: d:\lab\tidesdk\trial\packages\win32\bundle\trial\mod
Read more