如何在R中自定义polar.plot的极坐标标签

你遇到的问题核心是start=90和clockwise=TRUE的参数改变了极坐标的角度映射逻辑，常规的0/45/90度位置需要转换成该绘图系统下的对应角度才能正确放置标签。

关键逻辑说明 #

当start=90（极坐标起始点设为顶部）且clockwise=TRUE（角度顺时针递增）时，绘图系统中的角度是从顶部顺时针旋转的度数，和常规极坐标（0度向右、逆时针递增）的映射关系需要转换：

• 常规0度（右侧）→ 绘图系统中顺时针转90度的位置
• 常规45度（右上）→ 绘图系统中顺时针转45度的位置
• 以此类推，转换公式为：绘图角度 = (90 - 常规角度) %% 360

修正后的代码 #

把labels和label.pos按以下方式设置即可：

library(plotrix)

# 定义标签和对应的绘图系统角度
custom_labels <- c("t1", "t2", "t3", "t4", "t5", "t6", "t7", "t8")
custom_label_pos <- c(90, 45, 0, 315, 270, 225, 180, 135)

polar.plot(lengths = 0.4, polar.pos = 33, 
           main= "Richting en magnitude van de waterstroom", 
           labels = custom_labels, label.pos = custom_label_pos,
           start=90, clockwise = TRUE, loglen=FALSE, explab=FALSE, 
           rp.type="r", lwd = 4, line.col = "blue")

验证说明 #

• custom_label_pos中的每个值对应你要求的常规角度（0/45/90/135/180/225/270/315度）转换后的绘图系统角度
• 保持explab=FALSE确保标签显示在外圈，不会被径向刻度干扰

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