R语言Plotly极坐标图异常：仅显示标记点无轮廓线问题排查

你遇到的问题是极坐标图的填充轮廓线未包裹最大数值点，但标记点显示正常。先看你的原始代码和效果截图：

原始代码 #

fig <- plot_ly(type = 'scatterpolar',
               mode = 'lines') 

fig <- fig %>%
  add_trace(
    r = proj_cell_FA_h2_df$Enrichment,
    theta = proj_cell_FA_h2_df$cell_type,
    name = 'test',
    mode = 'markers',
    fill = 'toself'
  ) 

fig <- fig %>% layout(polar = list(
  radialaxis = list(
    visible = T,
    range = c(0,3),
    dtick = 1
  )
),
showlegend = F
)

fig

效果截图 #

极坐标图标记点正常，但填充轮廓线未覆盖最大数值点：

问题分析与修正方案 #

你的代码存在两处关键问题，导致轮廓线异常：

1. 初始创建fig时设置了mode = 'lines'，但后续add_trace又指定mode = 'markers'，模式冲突引发线条绘制逻辑混乱
2. 极坐标图要让填充轮廓线完全包裹所有点，必须让线条首尾相连，也就是把第一个点的数值追加到数据末尾

修正后的代码 #

# 关键：追加第一个点到数据末尾，确保线条首尾闭合
proj_cell_FA_h2_df <- rbind(proj_cell_FA_h2_df, proj_cell_FA_h2_df[1, ])

# 初始化时不再指定mode，避免冲突
fig <- plot_ly(type = 'scatterpolar') 

fig <- fig %>%
  add_trace(
    r = proj_cell_FA_h2_df$Enrichment,
    theta = proj_cell_FA_h2_df$cell_type,
    name = 'test',
    mode = 'markers+lines',  # 同时显示标记点和连接线条
    fill = 'toself'
  ) 

fig <- fig %>% layout(polar = list(
  radialaxis = list(
    visible = TRUE,
    range = c(0,3),
    dtick = 1
  )
),
showlegend = FALSE
)

fig

修正说明 #

• 移除了plot_ly()初始调用中的mode = 'lines'，消除模式冲突
• 将add_trace的mode改为markers+lines，同时保留标记点和连接线条的显示
• 通过rbind把数据框的第一行追加到末尾，让极坐标线条从最后一个点回到第一个点，形成闭合轮廓，自然包裹所有数值点（包括最大值点）

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