如何修改R Shiny中Gauge（转速表）的指针样式？

当前你的仪表盘指针是单条直线，要改成底部宽、顶端尖的箭头样式，只需修改layout中shapes的path定义，将单线条替换为多边形路径即可。

修改后的完整代码： #

output$tachometer_plot <- renderPlotly({
    
    # 计算指针坐标和角度
    pointer_angle <- 180 - ((tachometer_data[1] - 1) * 180 / 99)
    pointer_length <- 0.38 # 指针长度
    pointer_tip_x <- 0.5 + pointer_length * cos(pointer_angle * pi / 180)
    pointer_tip_y <- 0.25 + pointer_length * sin(pointer_angle * pi / 180)
    
    # 计算指针底座的两个端点（形成箭头宽度）
    base_width <- 0.03 # 底座宽度，可按需调整
    base_angle1 <- pointer_angle + 90
    base_angle2 <- pointer_angle - 90
    base_x1 <- 0.5 + base_width * cos(base_angle1 * pi / 180)
    base_y1 <- 0.25 + base_width * sin(base_angle1 * pi / 180)
    base_x2 <- 0.5 + base_width * cos(base_angle2 * pi / 180)
    base_y2 <- 0.25 + base_width * sin(base_angle2 * pi / 180)
    
    custom_steps <- list(
      list(range = c(0, tachometer_data[2]), color = "#006F4E"),
      list(range = c(tachometer_data[2], tachometer_data[3]), color = "yellow"),
      list(range = c(tachometer_data[3], 100), color = "#991B56")
    )
    gauge_data <- data.frame(value = tachometer_data[1])
    plot_ly(gauge_data, type = "indicator", mode = "gauge", value = tachometer_data[1],
            gauge = list(axis = list(range = c(0, 100)), bar = list(thickness = 0.6, color = "transparent"),
                         bgcolor = "white", borderwidth = 2, bordercolor = "gray", steps = custom_steps,
                         dial = list(shape = "circle", bgcolor = "transparent"),
                         number = list(visible = FALSE))) %>%
      layout(margin = list(l = 20, r = 20), title = list(text = "高碳行业暴露度", font = list(size = 14)),
             shapes = list(
               list(type = "path",
                    # 多边形路径：底座左端点 -> 底座右端点 -> 指针顶端 -> 闭合
                    path = sprintf("M %f %f L %f %f L %f %f Z", base_x1, base_y1, base_x2, base_y2, pointer_tip_x, pointer_tip_y),
                    xref = "paper", yref = "paper",
                    fillcolor = "black", line = list(color = "black", width = 1))
             ),
             annotations = list(list(x = 0.5, y = 0.16, xref = "paper", yref = "paper",
                                     text = sprintf("%.1f", tachometer_data[1]),
                                     showarrow = FALSE, font = list(size = 30))))
})

关键改动说明： #

• 新增指针底座坐标计算：在指针中心轴的垂直方向计算两个端点，形成箭头的底座宽度，base_width参数可根据需求调整粗细。
• 重写path路径：将原来的单线条路径替换为多边形路径，连接底座两个端点和指针顶端，形成闭合的箭头形状。
• 优化变量命名：将原pointer_x/y改为pointer_tip_x/y，更清晰表示指针顶端坐标。

调整base_width和pointer_length参数可以进一步微调指针的大小和比例，达到你想要的样式效果。

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