ggplot2 and add circle

From: Dennis Murphy <djmuser at gmail.com>
Subject: Re: [R] ggplot2 and add circle
To: "Alaios" <alaios at yahoo.com>
Cc: R-help at r-project.org
Date: Tuesday, May 10, 2011, 7:12 PM
Hi:

Here's one way:

plot_shad <- function(d, r) {
???require('ggplot2')
???plotdata <- melt(d)
???names(plotdata)<-c('x','y','z')
???xc <- mean(range(plotdata$x))
???yc <- mean(range(plotdata$y))
???theta <- seq(-pi, pi, length = 200)
???circ <- data.frame(xv = xc + r *
cos(theta),
? ? ? ? ? ? ? ?
? ? ? yv = yc + r * sin(theta))
???v <- ggplot(plotdata)
???print(v + geom_tile(aes(x = x, y = y,
fill = z)) +
? ? ? ???geom_path(data =
circ, aes(x = xv, y = yv), color = 'white',
size = 1) +
? ? ? ???coord_equal()
? ? ? ? )
 }

plot_shad(f, 10)

HTH,
Dennis

On Tue, May 10, 2011 at 10:15 AM, Alaios <alaios at yahoo.com>
wrote:

Here you are :)


plot_shad_f<-function(f){
? library(ggplot2)
? dev.new()
? plotdata<-melt(f)
? names(plotdata)<-c('x','y','z')
? v<-ggplot(plotdata, aes(x, y, z = z))
? print(v + geom_tile(aes(fill=z)))

}


f<-matrix(data=seq(1:10000),nrow=100,ncol=100)
plot_shad_f(f)


I would like to add a circle at the middle of this

region with a range of 10.

Best Regards

Alex

--- On Tue, 5/10/11, Scott Chamberlain <scttchamberlain4 at gmail.com>

wrote:

From: Scott Chamberlain <scttchamberlain4 at gmail.com>
Subject: Re: [R] ggplot2 and add circle
To: "Alaios" <alaios at yahoo.com>
Cc: R-help at r-project.org
Date: Tuesday, May 10, 2011, 5:59 PM



? ? ? ? ? ? ? ?You should provide reproducible

data in addition to your code.

S





? ? ? ? ? ? ? ?On Tuesday, May 10, 2011 at

11:54 AM, Alaios wrote:

? ? ? ? ? ? ? ? ? ?Dear all,
today I have writted the following code,
to plot the contents of some matrices I have

plot_shad_f
function(f){
?library(ggplot2)
?dev.new()
?plotdata<-melt(f)
?names(plotdata)<-c('x','y','z')
?v<-ggplot(plotdata, aes(x, y, z = z))
?print(v + geom_tile(aes(fill=z)))
}

I would like to ask your help add a small circle in

this plotting. What would be the easiest way to do that in
ggplot2?

Best Regards
Alex

mailing list

reproducible code.

? ? ? ?[[alternative HTML version deleted]]

mailing list

reproducible code.