R - 在饼图中放置标签

Question

使用 R 中的 pie 函数，标签出现在饼图之外。有没有办法在饼图的每个切片中放置标签？

f=table(LETTERS[c(rep(1,7),rep(2,10),rep(3,5))])
pie(f)

它展示了如何使用ggplot 执行此操作，此处为place-labels-on-pie-chart。有没有办法用pie函数做到这一点？

编辑：为了回应一些关于使用饼图的 cmets，我想详细说明我的意图。我实际上只是使用饼图作为散点图矩阵的一部分来可视化整个数据框以进行回归。矩阵设置如下：

• 下面板
  背景颜色较深的样本相关性数字表示绝对相关性较高。
• 上面板
  • 数字散点图
  • 数值的箱线图（按因子）
• 对角面板
  • 数值的正态密度直方图
  • 因子饼图

看，我需要一些关于对角线的因素，并决定使用饼图。无论如何，我决定将标签留在外面，并取下所有轴标签。我宁愿为更大的饼片使用较深的颜色......所以也许它可能是显示信息的一种不好的方式，但我认为它对于因子变量很有效，显示观察结果如何在因子水平上比条形图更好地成比例。下图描述了lars包中的糖尿病数据集。

Answer 1

我认为没有一种简单的方法可以做到这一点，因为标签位置是硬编码的 - 看看结尾

body(pie)

        if (!is.na(lab) && nzchar(lab)) {
            lines(c(1, 1.05) * P$x, c(1, 1.05) * P$y)
            text(1.1 * P$x, 1.1 * P$y, labels[i], xpd = TRUE, 
                adj = ifelse(P$x < 0, 1, 0), ...)
        }
    }
    title(main = main, ...)
    invisible(NULL)
}

但是你可以覆盖程序的这一部分

# create a new pie function to save overwriting original
newpie <- pie

# Tweak the label positions - changed 1.1 to 0.7
# also commented out the lines function - so that the  
# small lines next to the labels are not plot
newlbs <- quote(if (!is.na(lab) && nzchar(lab)) {
                   #lines(c(1, 1.05) * P$x, c(1, 1.05) * P$y)
                    text(0.7 * P$x, 0.7 * P$y, labels[i], xpd = TRUE, 
                                     adj = ifelse(P$x < 0, 1, 0), ...)
})

# add in the new lines of code - trial and error found the right position
body(newpie)[[22]][[4]][[7]] <- newlbs

newpie(f)

所以看起来工作量很小，但它已经到了那里，你需要做更多的工作来调整文本的角度或格式。

（可能证明有这样做的理由）