لوحات المؤشرات التفاعلية للمؤسسات: Power BI وTableau وShiny وDash

import numpy as np
import pandas as pd
import plotly.express as px
from dash import Dash, dcc, html, Input, Output

kpi = pd.DataFrame({  # synthetic monthly KPI
    "month": np.tile(np.arange(1, 13), 3),
    "region": np.repeat(["North", "Centre", "South"], 12),
    "value": np.random.default_rng(1).normal(75, 6, 36)})

app = Dash(__name__)
app.layout = html.Div([
    dcc.Dropdown(kpi.region.unique(), "North", id="region"),
    dcc.Graph(id="trend")])

@app.callback(Output("trend", "figure"),
              Input("region", "value"))
def update(region):
    d = kpi[kpi.region == region]
    return px.line(d, x="month", y="value", markers=True)
if __name__ == "__main__":
    app.run(debug=False)

library(shiny)

set.seed(1)  # synthetic monthly KPI for three regions
kpi <- data.frame(month = rep(1:12, 3),
                  region = rep(c("North", "Centre", "South"),
                               each = 12),
                  value = round(rnorm(36, 75, 6), 1))

ui <- fluidPage(
  titlePanel("KPI monitor"),
  selectInput("region", "Region", unique(kpi$region)),
  plotOutput("trend"))

server <- function(input, output, session) {
  output$trend <- renderPlot({
    d <- subset(kpi, region == input$region)
    plot(d$month, d$value, type = "b", ylim = c(50, 100),
         xlab = "Month", ylab = "KPI value")
    abline(h = 80, lty = 2)  # target line
  })
}
shinyApp(ui, server)