data$tp <- factor(data$tp, levels = c("TP-ANY","TP-SUB","TP-CLIN"))
qplot(life,geom="bar",weight=sym,ylim=c(0,1),legend=F,data=data) +
facet_grid(. ~ tp)
On Wednesday, May 18, 2011 at 9:14 AM, Christopher Desjardins wrote:
Hi I am running the following code:
>
> sym <- c(sym1,sym2,sym4)
>
> life
Hi I am running the following code:
sym <- c(sym1,sym2,sym4)
lifedxm <- c("O-BD","O-WELL","O-UNI")
life <- c(lifedxm,lifedxm,lifedxm)
tp <- c("TP-ANY","TP-ANY", "TP-ANY", "TP-SUB", "TP-SUB", "TP-SUB", "TP-CLIN"
, "TP-CLIN", "TP-CLIN")
data <- data.frame(sym,life,tp)
qplot(life,geom="bar",w
2 matches
Mail list logo