Tipps

Der Link von der WHO für die Daten lautet: https://ghoapi.azureedge.net/api. Um die Indikatoren herunterzuladen fügen wir dem Link ein /Indicator an. Damit lautet der Link: https://ghoapi.azureedge.net/api/Indicator.

Der Befehl rbindlist löst verschatelte Listen auf und verwandelt die Struktur der Daten in ein übliches Dataframe. Dabei musst du in den Klammern zum einen deine Variable mit der langen Liste eingeben und fill = TRUE setzen. Der Befehl sollte letztlich so aussehen:

dataframe <- rbindlist(data, fill = TRUE)

Kommen wir jetzt zu den Zeilen: Theoretisch sollten zu jedem Land 51 Datenpunkte (17 Zeitpunkte x 3 Geschlechter) vorliegen und zu jeder Region 15 (5 Zeitpunkte x 3 Geschlechter). Teste das mit einer Tabelle zu den Ländercodes! - Es wird dir auffallen, dass ein Land häufiger vertreten ist als alle anderen. Finde heraus welches und lösch die überschüssigen Daten.

Ansonsten ähnelt der Aufbau einer plotly-Abbildung dem typischen Prozedere. Du musst angeben, welche Variable auf x- und y-Achse stehen sollen und welche die verschiedenen Linien unterscheidet. Die Angabe der Variablen erfolgt dabei jeweils mit einem ~ davor (bspw. x = ~SEX).

Die Farbe der Linien kannst du manuell über das colors-Argument in der plot_ly-Funktion bestimmen.

Möchtest du sonstige Formatierungen an der Abbildung vornehmen musst du die plot_ly-Funktion abschließen und mit der layout-Funktion weitermachen. Welche Anpassungsmöglichkeit es da gibt, findest du unter diesem Link.

Weitere Funktionen die hier von Nutzen sein können sind: animation_opts, animation_slider und animation_button. Mit diesen Funktionen kannst du die Animationsbestandteile modifizieren.

-animation_opts ermöglicht eine Anpassung der Animation selbst, besonders wichtig ist hier das redraw-Argument. -animation_slider ermöglicht Veränderungen des Zeitstrahls, der es ermöglicht, zwischen den verschiedenen Frames manuell zu wechseln. -animation_button ermöglicht Formatierungen des Knopfes, mit dem man die Animation starten kann.

Jetzt kannst du direkt unter dem Titel der App einfach einen Input (selectInput) mit den verschiedenen Abbildungstypen erstellen. Je nach Auswahl sollen dann mithilfe des conditionalPanel-Befehls unterschiedliche Inputs erscheinen, mit denen man dann im darunterliegenden Output-Fenster die gewünschte Grafik auf Knopfdruck erzeugen kann. Das heißt, dass du jetzt für jede einbezogene Grafik ein eigenes User Interface mit Inputs erstellen musst, das in ein conditionalPanel eingebettet ist.

Sowas kann dann beispielsweise so aussehen (-> führe den folgenden Code einfach in deiner R Sitzung aus):

library(shiny)
ui <- pageWithSidebar(
  headerPanel ("My first"),
  sidebarPanel (
    selectInput("se", "ty", choices = c("norm", "exp")),
    sliderInput("Samplesize", "sel", min = 100, max = 5000, value = 1000, step = 100),
    conditionalPanel(condition = "input.se == 'norm'",
                     textInput("Mean", "selme", 10),
                     textInput("sd", "selsd", 1)),
    conditionalPanel(condition = "input.se == 'exp'",
                     textInput("lamb", "sellam", 1))
  ),
  mainPanel(plotOutput("myplot"))
)
server <- function(input, output, session){
  output$myplot <- renderPlot({
    distType <- input$se
    size <- input$Samplesize
      
    if (distType == "norm") {
      randomve <- rnorm(size, mean = as.numeric(input$Mean), sd = as.numeric(input$sd))
    } else {
      randomve <- rexp(size, rate = 1/as.numeric(input$lamb))
    }
      
    hist(randomve, col = "blue")
  })
}
shinyApp(ui, server)

Nun brauchst du ein reaktives Objekt (-> mithilfe der reactive-Funktion), das die jeweiligen Auswahlmöglichkeiten für den Länder-Input anhand des Kontinenten-Inputs ermittelt und abspeichert. Jetzt kann man innerhalb von renderUI den selectOutput erstellen, wobei man beim choices-Argument das zuvor erstellte reaktive Objekt einsetzen muss. (Wichtig: Mit reactive erstellte reaktive Objekte müssen als Funktion aufgerufen werden - egal wie man jenes Objekt also genannt hat, muss man bei der Verwendung im choices-Argument diesem Namen () anhängen.)