如何在Base R中修改饼图的标签与刻度颜色？

设置标签为红色 #

pie()函数自带col.labels参数，直接用它就能把标签改成红色，不用纠结坐标轴参数：

x <- c(30, 70)
pie(x, col.labels = "red")

要是需要更灵活的标签样式（比如调整位置、字号），可以先画无标签的饼图，拿到每个扇形的中点角度后，用text()手动加红色标签：

x <- c(30, 70)
# 绘制不带标签的饼图，返回各扇形的中点角度
angle_pos <- pie(x, labels = NA)
# 手动添加红色标签
text(angle_pos, labels = c("30", "70"), col = "red", cex = 1.2)

处理刻度标记 #

pie()函数默认不会绘制常规的坐标轴刻度，所以xaxt = "n"、col.axis = "red"这些参数对它根本没用。如果你的饼图显示了多余的刻度元素，绘图前用par()就能隐藏：

# 先设置隐藏x、y轴刻度
par(xaxt = "n", yaxt = "n")
x <- c(30, 70)
pie(x, col.labels = "red")
# 用完之后可以恢复默认设置（可选）
par(xaxt = "s", yaxt = "s")

如果确实需要给饼图加红色刻度（一般没必要），可以在绘图后用axis()函数指定颜色：

x <- c(30, 70)
pie(x, col.labels = "red")
# 添加红色x轴刻度示例
axis(1, col.axis = "red")

内容的提问来源于stack exchange，提问作者Ben