R- Shiny - как изменить цвет легенд в круговой диаграмме?

Question

Я хочу изменить цвет легенд в круговой диаграмме.Вот код:

library(ECharts2shiny)
library(shiny)

dat5 <- c(rep("Female", 3376), rep("Male", 2180))

ui <- shinyUI(
dashboardPage(dashboardHeader(title = "PSM"),
dashboardBody(
mainPanel(
tabsetPanel(
tabPanel(
loadEChartsLibrary(),  tags$div(id="test5", 
style="width:60%;height:300px;"),                                                                           
deliverChart(div_id = "test5"))

server <- shinyServer(function(input,output){  
renderPieChart(div_id = "test5", data = dat5 )    })

Кто-нибудь может мне помочь, как изменить цвет легенды?

Answer 1

надеюсь, это поможет:

library(shiny)
library(shinydashboard)

dat5 <- c(rep("Female", 3376), rep("Male", 2180))
app <- shinyApp(
ui <- shinyUI(
  dashboardPage(dashboardHeader(title = "PSM"),
                dashboardSidebar(),
                dashboardBody(
                  mainPanel(
                    tabsetPanel(
                      tabPanel(tags$div(id="test5", 
                                        style="width:60%;height:300px;"),                                                                           
                        plotOutput("pie_chart"))
                    ))))
                    ),

                      server <- shinyServer(function(input,output){  
                        output$pie_chart <- renderPlot({
                          df <- table(dat5)
                          cols <- rainbow(length(df))
                          pie(df, col = cols)

                        })
                          })
)

runApp(app)