R手册(Visualise)--ggforce(ggplot2 extensions)

返回ggplot2扩展主目录

ggforce

绘制饼图

• 开始和结束位置定义geom_arc_bar
  geom_arc_bar(aes(x0,y0,r0,r,start,end,explode), data, stat = "arc_bar",position = "identity", n = 360, na.rm = FALSE)

• 区块的大小定义geom_arc_bar
  geom_arc_bar(aes(x0,y0,r0,r, amount,explode), data, stat = "pie",position = "identity", n = 360, na.rm = FALSE)

• 开始和结束位置定义geom_arc
  geom_arc(aes(x0,y0,r0,r,start,end), data , stat = “arc”,position = “identity”, n = 360, arrow = NULL, lineend =“butt”/“round”/”square”,na.rm = FALSE)

参数：
x0,y0,r0,r: 圆心，内半径，外半径
explode: 突出显示变量

# We'll start by defining some dummy data
pie <- data.frame(
  state = c('eaten', 'eaten but said you didn\'t', 'cat took it', 
            'for tonight', 'will decompose slowly'),
  focus = c(0.2, 0, 0, 0, 0),
  start = c(0, 1, 2, 3, 4),
  end = c(1, 2, 3, 4, 2*pi),
  amount = c(4,3, 1, 1.5, 6),
  stringsAsFactors = FALSE
)

p <- ggplot() + theme_no_axes() + coord_fixed()

# For low level control you define the start and end angles yourself
p + geom_arc_bar(aes(x0 = 0, y0 = 0, r0 = 0, r = 1, start = start, end = end, 
                     fill = state),
                 data = pie)

绘制圆

circles <- data.frame(
    x0 = rep(1:3, 2),
    y0 =  rep(1:2, each=3),
    r = seq(0.1, 1, length.out = 6)
)
ggplot() + geom_circle(aes(x0=x0, y0=y0, r=r, fill=r), data=circles)