Tracez un cercle avec ggplot2

Question

Peut-être est une question stupide, mais je ne pouvais pas trouver la réponse dans le manuel de ggplot2 ni avec « tante » google ...

Comment tracer un cercle avec ggplot2 comme une couche supplémentaire si j'ai un point milieu et un diamètre? Merci pour votre aide.

Answer 1

Une nouvelle option, meilleure, exploite un package d'extension appelé ggforce qui définit une explication geom_circle.

Mais pour l'amour de la postérité, voici une fonction simple cercle:

circleFun <- function(center = c(0,0),diameter = 1, npoints = 100){ 
    r = diameter/2 
    tt <- seq(0,2*pi,length.out = npoints) 
    xx <- center[1] + r * cos(tt) 
    yy <- center[2] + r * sin(tt) 
    return(data.frame(x = xx, y = yy)) 
} 

Et une démonstration de son utilisation:

dat <- circleFun(c(1,-1),2.3,npoints = 100) 
#geom_path will do open circles, geom_polygon will do filled circles 
ggplot(dat,aes(x,y)) + geom_path() 

Answer 2

Salut le code suivant de ggplot2 Google groupe peut être utile:

dat = data.frame(x=runif(1), y=runif(1)) 
ggplot() + scale_x_continuous(limits = c(0,1)) + 
scale_y_continuous(limits = c(0,1))+ 
geom_point(aes(x=x, y=y), data=dat, size=50, shape=1, color="gold4") 

qui produit:

J'espère que cela vous permet de démarrer dans le piratage des exemples personnalisés à vos besoins.

Answer 3

Essayez aussi cela,

ggplot() + geom_rect(aes(xmin=-1,ymin=-1,xmax=1,ymax=1), fill=NA) + coord_polar() 

Le point étant, un cercle dans un système de coordonnées n'est souvent pas un cercle dans d'autres, sauf si vous utilisez geom_point. Vous pourriez vouloir assurer un ratio d'aspect de 1 avec des coordonnées cartésiennes.

Answer 4

avec ggplot2 >= 0.9 vous pouvez également faire

library(grid) 
qplot(1:10, 1:10, geom="blank") + 
    annotation_custom(grob=circleGrob(r=unit(1,"npc")), xmin=2, xmax=4, ymin=4, ymax=6) 

Answer 5

Si le but est seulement d'annoter un cercle, vous pouvez simplement utiliser annoter avec la géométrie « chemin ». Pas besoin de créer une trame de données ou la fonction:

#g is your plot 
#r, xc, yc are the radius and center coordinates 

g<-g+annotate("path", 
    x=xc+r*cos(seq(0,2*pi,length.out=100)), 
    y=yc+r*sin(seq(0,2*pi,length.out=100))) 

Answer 6

Pour l'amour de la postérité est ici une solution de cercle plus flexible en utilisant annoter et geom_ribbon qui prend en charge remplissage, la couleur, l'alpha et la taille.

gg_circle <- function(r, xc, yc, color="black", fill=NA, ...) { 
    x <- xc + r*cos(seq(0, pi, length.out=100)) 
    ymax <- yc + r*sin(seq(0, pi, length.out=100)) 
    ymin <- yc + r*sin(seq(0, -pi, length.out=100)) 
    annotate("ribbon", x=x, ymin=ymin, ymax=ymax, color=color, fill=fill, ...) 
} 
square <- ggplot(data.frame(x=0:1, y=0:1), aes(x=x, y=y)) 
square + gg_circle(r=0.25, xc=0.5, yc=0.5) 
square + gg_circle(r=0.25, xc=0.5, yc=0.5, color="blue", fill="red", alpha=0.2) 

Answer 7

Juste pour être complet: Le paquet ggforce par thomasp85 fournissent geom_circle