R help - Sep 2013 - Less than equal to symbol in ggplot2 legend text

Hello,
I am trying to add a less than equal to symbol in a ggplot2 legend text.
See sample code below. I have tried using the expression function and
\u2264. I also tried adding labels to legend.text under theme.

Neither of these 3 options work.

Please help,
Mahesh

++++++++++++++

  Extra.column=ifelse(data[,covariate]>cutpoint,1,0)
  Grp1 <- "\u2264 1.5"
  Grp2 <- ">1.5"
  Extra.column=factor(Extra.column,levels=c(0,1),labels=c(Grp1,Grp2))
  data2=cbind.data.frame(data,Extra.column)
  df <- ddply(data2, .(Time,Extra.column), summarize,
              N = length(Yvar), meanYvar=mean(Yvar),
seYvar=sd(Yvar)/sqrt(length(Yvar)))
  df = df[df$N>=10,]
  PLot=ggplot(df, aes(x=AVST, y=meanYvar, shape=Extra.column)) +
scale_y_continuous(name="Mean Yvar ± SE" )+
scale_x_continuous(name="Time
(year)")+
    theme(axis.text.x  =
element_text(size=16,colour="black"),legend.title
= element_blank(),
          axis.text.y  =
element_text(size=16,colour="black"),plot.title element_text(
face="bold",size=18),
          legend.justification=c(0,1), legend.position=c(0,1),
          axis.title.x = element_text(face="bold",
colour="black",
size=16,vjust=0),
          axis.title.y = element_text(face="bold",
colour="black",
size=16,vjust=0.3),
          legend.text = element_text(size = 12, face = "bold" )) +
ggtitle(GGTitle)+
    geom_line() + geom_point(size=5) +
    geom_errorbar(width=0.1, aes(ymin=meanYvar-seYvar,
ymax=meanYvar+seYvar))

PLot

	[[alternative HTML version deleted]]

Hello,

Please post in plain text, as kindly requesting by the R-help posting
guide. Your code is completely messy.

Regards,
Pascal


2013/9/26 mahesh samtani <msamtani@gmail.com>
> Hello,
> I am trying to add a less than equal to symbol in a ggplot2 legend text.
> See sample code below. I have tried using the expression function and
> \u2264. I also tried adding labels to legend.text under theme.
>
> Neither of these 3 options work.
>
> Please help,
> Mahesh
>
> ++++++++++++++
>
>   Extra.column=ifelse(data[,covariate]>cutpoint,1,0)
>   Grp1 <- "\u2264 1.5"
>   Grp2 <- ">1.5"
>   Extra.column=factor(Extra.column,levels=c(0,1),labels=c(Grp1,Grp2))
>   data2=cbind.data.frame(data,Extra.column)
>   df <- ddply(data2, .(Time,Extra.column), summarize,
>               N = length(Yvar), meanYvar=mean(Yvar),
> seYvar=sd(Yvar)/sqrt(length(Yvar)))
>   df = df[df$N>=10,]
>   PLot=ggplot(df, aes(x=AVST, y=meanYvar, shape=Extra.column)) +
> scale_y_continuous(name="Mean Yvar ą SE" )+
scale_x_continuous(name="Time
> (year)")+
>     theme(axis.text.x  =
element_text(size=16,colour="black"),legend.title
> = element_blank(),
>           axis.text.y  =
element_text(size=16,colour="black"),plot.title > element_text(
face="bold",size=18),
>           legend.justification=c(0,1), legend.position=c(0,1),
>           axis.title.x = element_text(face="bold",
colour="black",
> size=16,vjust=0),
>           axis.title.y = element_text(face="bold",
colour="black",
> size=16,vjust=0.3),
>           legend.text = element_text(size = 12, face = "bold" ))
+
> ggtitle(GGTitle)+
>     geom_line() + geom_point(size=5) +
>     geom_errorbar(width=0.1, aes(ymin=meanYvar-seYvar,
> ymax=meanYvar+seYvar))
>
> PLot
>
>         [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>

-- 
Pascal Oettli
Project Scientist
JAMSTEC
Yokohama, Japan

	[[alternative HTML version deleted]]