Re: [R] Merge two ggplots
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.
[R] Merge two ggplots
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)))+
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))
}
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
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
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.
[R] Merge two ggplots
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.
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.
