R 円グラフのラベルについて

Question

Rを用いて右の図を作製しました。
しかし、ラベルの場所が内側の円グラフを基準にしているため
外側のグラフの5つの領域を基準にしたいと考えています。
コードは

browsers<-structure(list(browser = structure(c(3L, 3L, 3L, 3L, 2L, 2L, 
2L, 1L, 5L, 5L, 4L), .Label = c("Chrome", "Firefox", "MSIE", 
"Opera", "Safari"), class = "factor"), version = structure(c(5L, 
6L, 7L, 8L, 2L, 3L, 4L, 1L, 10L, 11L, 9L), .Label = c("Chrome 10.0", 
"Firefox 3.5", "Firefox 3.6", "Firefox 4.0", "MSIE 6.0", "MSIE 7.0", 
"MSIE 8.0", "MSIE 9.0", "Opera 11.x", "Safari 4.0", "Safari 5.0"
), class = "factor"), share = c(10.85, 7.35, 33.06, 2.81, 1.58, 
13.12, 5.43, 9.91, 1.42, 4.55, 1.65)), .Names = c("browser", "version", "share"
), row.names = c(NA, -11L), class = "data.frame")

name <- as.character(c("a","b","c","d"))


#' x      numeric vector for each slice
#' group  vector identifying the group for each slice
#' labels vector of labels for individual slices
#' col    colors for each group
#' radius radius for inner and outer pie (usually in [0,1])

donuts <- function(x, group = 1, labels = NA, col = NULL, radius = c(.7, 1)) {
  group <- rep_len(group,length(x))
  ug  <- unique(group)
  tbl <- table(group)[order(ug)]
  
  col <- if (is.null(col))
    seq_along(ug) else rep_len(col, length(ug))
  col.main <- Map(rep, col[seq_along(tbl)], tbl)
  col.sub  <- lapply(col.main, function(x) {
    al <- head(seq(0,1, length.out = length(x) + 2L)[-1L],-1L)
    Vectorize(adjustcolor)(x, alpha.f = al)
  })
  plot.new()
  par(new = TRUE)
  pie(x, border = NA, radius = radius[2L],
      col = unlist(col.main), labels = name)
  
  par(new = TRUE)
  pie(1, radius=0.65, col='white', border='white', labels='')
  
    par(new = TRUE)
   pie(x, border = NA, radius = radius[1L],
    col = unlist(col.sub), labels = NA)
  
}  
  
  
  
par(mfrow = c(1,1), mar = c(4,0,0,0))
with(browsers,
     donuts(share,browser, sprintf('%s',name),
            col = c('cyan2','red','orange','green','dodgerblue2'))
)

どこを修正すればよいか教えてください。
よろしくお願いします。

Answer 1

解決できました
外側の円グラフは11個に別れていたのを同じ色で塗って5個で分けてるように見せていただけだったのでようなので新しく違うデータを与えてやればわけれました。

#' x      numeric vector for each slice
#' group  vector identifying the group for each slice
#' labels vector of labels for individual slices
#' col    colors for each group
#' radius radius for inner and outer pie (usually in [0,1])


nume <- as.numeric(c(54.07,20.13,9.91,5.97,1.65))#新しいデータを作る。

donuts <- function(x, group = 1, labels = NA, col = NULL, radius = c(.7, 1)) {
  group <- rep_len(group,11) 
  ug  <- unique(group)
  tbl <- table(group)[order(ug)]
  
  col <- if (is.null(col))
    seq_along(ug) else rep_len(col, length(ug))
  col.main <- Map(rep, col[seq_along(tbl)], tbl)
  col.sub  <- lapply(col.main, function(x) {
    al <- head(seq(0,1, length.out = length(x) + 2L)[-1L],-1L)
    Vectorize(adjustcolor)(x, alpha.f = al)
  })
  plot.new()
  par(new = TRUE)
  pie(nume, border = T, radius = radius[2L],
      col = c('cyan2','red','orange','green','dodgerblue2'), labels = name)
  
  par(new = TRUE)
  pie(1, radius=0.65, col='white', border='white', labels='')
  
  par(new = TRUE)
  pie(x, border = NA, radius = radius[1L],
      col = unlist(col.sub), labels = NA)
  
}  



par(mfrow = c(1,1), mar = c(4,0,0,0))
with(browsers,
     donuts(share,browser, sprintf('%s',name),
            col = c('cyan2','red','orange','green','dodgerblue2'))
)