R Plotly ScatterPolar散点极坐标图如何单独旋转标签或避免重叠

两个需求均可实现，优先提供你更偏好的方案B实现方式：

方案B：标签保持0度旋转，错位排列避免重叠 #

实现逻辑：极坐标上下区域标签重叠的核心原因是垂直方向展示空间不足，我们可以对分类标签做奇偶位错位处理，给不同位置的标签加不等数量的换行符，让相邻标签在垂直方向错开位置，无需修改旋转角度即可解决重叠问题。

修改后的完整可运行代码如下：

library(plotly)

labs1 <- c("Red ", "Green ", "Blue ", "Yellow ", "Orange ", 
           "Purple ", "Pink ", "Black ", "White ", "Gray ")
labs2 <- c("Bookshelf", "Television", "Refridgerator", 
           "Toolbox", "Xylophone" , "Chromosome")
labs <- sample(paste0(rep(labs1, each = 6), rep(labs2, times = 10)), 60, replace = F)

df <- data.frame(Label = labs,
                 Radius = sample(0:100, 60, replace = F))

# 处理错位标签：奇数位标签前加2个换行，偶数位不加，可自行调整换行数量控制错位幅度
tick_text <- ifelse(seq_along(labs) %% 2 == 1, paste0("\n\n", labs), labs)

plot_ly(df) %>%
  add_trace(type = 'scatterpolar', mode = 'markers',
            r = ~Radius,
            theta = ~Label,
            fill = 'toself') %>%
  layout(
    polar = list(
      angularaxis = list(
        tickvals = labs, # 绑定原分类标签作为刻度值
        ticktext = tick_text, # 使用错位后的文本作为显示标签
        tickangle = 0 # 保持标签水平不旋转
      )
    )
  )

如果错位幅度不符合预期，可以调整换行符的数量，比如给奇数位加3个换行、偶数位加1个换行即可。

方案A：为每个标签单独设置旋转角度 #

Plotly原生的layout.polar.angularaxis.tickangle为全局参数，无法单独配置每个标签的旋转角度，可通过关闭原生刻度、自定义annotations的方式实现需求：

1. 先设置angularaxis.showticklabels = F隐藏原生标签
2. 计算每个分类标签对应的极坐标角度
3. 根据标签所在的象限位置定义对应的旋转角度，用add_annotations函数逐个添加自定义标签即可。

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