如何使用ggplot2填充圆的一部​​分

时间:2012-10-09 07:07:32

标签: r plot ggplot2

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))
}
dat <- circleFun(c(1,-1),2.3,npoints = 100)
ggplot(dat,aes(x,y)) + geom_path(color="black") + ggtitle("circle")

我正在使用ggplot2进行策划。我想在第一象限中用蓝色填充圆圈。我该怎么办?

谢谢!

2 个答案:

答案 0 :(得分:7)

这是你要找的吗?

# Define the circle; add a point at the center if the 'pie slice' if the shape is to be filled
circleFun <- function(center=c(0,0), diameter=1, npoints=100, start=0, end=2, filled=TRUE){
  tt <- seq(start*pi, end*pi, length.out=npoints)
  df <- data.frame(
    x = center[1] + diameter / 2 * cos(tt),
    y = center[2] + diameter / 2 * sin(tt)
  )
  if(filled==TRUE) { #add a point at the center so the whole 'pie slice' is filled
    df <- rbind(df, center)
  }
  return(df)
}

#Define separate data frames for the filled and unfilled circle
quarterCircle <- circleFun(c(1,-1), diameter = 2.3, start=0., end=0.5, filled=TRUE)
fullCircle <- circleFun(c(1, -1), 2.3, start=0, end=2, filled=FALSE)

ggplot() + 
  geom_polygon(data=quarterCircle, aes(x,y), color="black", fill="black") + 
  geom_path(data=fullCircle, aes(x, y), color="black") +
  coord_equal()

enter image description here

答案 1 :(得分:5)

两件事:

  1. 使用您对圆几何的了解并调整圆函数以在任意点开始和结束,在这种情况下0.5*pi1.5*pi

  2. 使用geom_polygon代替geom_path

  3. 像这样:

    circleFun <- function(center=c(0,0), diameter=1, npoints=100, start=0, end=2){
      tt <- seq(start*pi, end*pi, length.out=npoints)
      data.frame(
        x = center[1] + diameter / 2 * cos(tt),
        y = center[2] + diameter / 2 * sin(tt)
      )
    }
    
    dat <- circleFun(c(1,-1), 2.3, start=0.5, end=1.5)
    ggplot(dat,aes(x,y)) + 
      geom_polygon(color="black") + 
      ggtitle("half circle") +
      coord_equal()
    

    enter image description here