Hi:

On Sun, Nov 21, 2010 at 5:55 AM, Alaios <ala...@yahoo.com> wrote:

> Sorry it was a typo:
> my code looks like:
>
> plot_shad_CR<-function(x,y,agentid,CRagent,f){
>
>   library(ggplot2)
>
>   plotdata<-melt(f)
>   names(plotdata)<-c('x','y','z')
>   agent<-CRagent[[agentid]] # To make following expression shorter
>   ggplot((data.frame(x=CRX,y=CRY,sr=agent$sr)))+
>
                                    ^^^^^^^^^^^^^^    where do these come
from?

>   geom_point(aes(x,y,colour=cut(sr,c(0,-10,-20,-30,-40,-50,-60,-70,-80))))+
>   geom_text(aes(x,y,color=cut(sr, c(0,-10,-20,-30,-40,-50,-60,-70,-80)),
> label=round(sr,3)),vjust=1,legend=FALSE)+labs(colour="CRagents[[i]]$sr")+
>
                                                              ^^^ ??

>   geom_tile(aes(fill=z))
> }
>

It's a *much* saner approach to arrange the data before submitting it to
ggplot(). In other words, generate a data frame with the the variables CRX,
CRY sr and/or its corresponding cuts and *then* submit it to ggplot(). The
hard work is to produce a data frame that will run simply through ggplot().

HTH,
Dennis

>
> and I get as an error message this:
>
> plot_shad_CR(CRX,CRY,1,CRagent,f)
> Error in eval(expr, envir, enclos) : object 'z' not found
> Calls: print ... lapply -> is.vector -> lapply -> FUN -> eval -> eval
>
>
>  ------------------------------
> *From:* Dennis Murphy <djmu...@gmail.com>
> *To:* Alaios <ala...@yahoo.com>
> *Cc:* Rhelp <r-help@r-project.org>
> *Sent:* Sat, November 20, 2010 4:24:15 PM
> *Subject:* Re: [R] Merge two ggplots
>
> Hi:
>
> Perhaps a plus sign at the end of the line before geom_tile() would help.
>
> Dennis
>
> On Sat, Nov 20, 2010 at 6:30 AM, Alaios <ala...@yahoo.com> wrote:
>
>> Hello everyone.
>> I am using ggplot and I need some help to merge these two plots into one.
>>
>> plot_CR<-function(x,y,agentid,CRagent){
>>   library(ggplot2)
>>
>>   agent<-CRagent[[agentid]] # To make following expression shorter
>>   ggplot((data.frame(x=CRX,y=CRY,sr=agent$sr)))+
>>
>> geom_point(aes(x,y,colour=cut(sr,c(0,-10,-20,-30,-40,-50,-60,-70,-80))))+
>>   geom_text(aes(x,y,color=cut(sr, c(0,-10,-20,-30,-40,-50,-60,-70,-80)),
>> label=round(sr,3)),vjust=1,legend=FALSE)+labs(colour="CRagents[[i]]$sr")
>> }
>>
>>
>> plot_shad_f<-function(f){
>>   library(ggplot2)
>>
>>   plotdata<-melt(f)
>>   names(plotdata)<-c('x','y','z')
>>   v<-ggplot(plotdata, aes(x, y, z = z))
>>   v + geom_tile(aes(fill=z))
>>
>> }
>>
>> The first plot puts points and texts below the points... in an area
>> while the second function in the same are fills the background using
>> geom_tiles... Is it possible somehow to merge these two plots into one?
>>
>> So far I have tried to merge the two functions as one but I fail as ggplot
>> is not very clear to me what it needs.
>>
>>
>>   plotdata<-melt(f)
>>   names(plotdata)<-c('x','y','z')
>>
>>   agent<-CRagent[[agentid]] # To make following expression shorter
>>   ggplot((data.frame(x=CRX,y=CRY,sr=agent$sr)))+
>>
>> geom_point(aes(x,y,colour=cut(sr,c(0,-10,-20,-30,-40,-50,-60,-70,-80))))+
>>   geom_text(aes(x,y,color=cut(sr, c(0,-10,-20,-30,-40,-50,-60,-70,-80)),
>> label=round(sr,3)),vjust=1,legend=FALSE)+labs(colour="CRagents[[i]]$sr")
>>
>   geom_tile(aes(fill=z))
>> }
>>
>> Could you please help me?
>>
>> I would like to thank you in advance for your help
>>
>> Regards
>> Alex
>>
>>
>>
>>
>>        [[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.
>>
>>
>
>

        [[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.

Reply via email to