如何在饼图R.Shiny中添加百分比

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("pieChart")
)

server <- function(input, output) {
  output$pieChart <- renderPlotly({
    data <- c(10, 20, 30, 40)  # 替换为你自己的数据
    
    labels <- c("A", "B", "C", "D")  # 替换为你自己的标签
    
    # 生成饼图
    pieChart <- plot_ly(
      labels = ~labels,
      values = ~data,
      type = "pie",
      textposition = "inside",
      hoverinfo = "text+percent",
      textinfo = "label+percent"
    )
    
    # 添加百分比标签
    pieChart <- layout(
      pieChart,
      annotations = list(
        text = paste0(round(data/sum(data) * 100), "%"),
        showarrow = FALSE
      )
    )
    
    pieChart
  })
}