Revision history for TutoriumGrundlagenStatistikLinegraph1
Additions:
||{text-align: LEFT}**[[TutoriumGrundlagenStatistik << Zurück]]** ||{text-align: RIGHT}**[[TutoriumGrundlagenStatistikLinegraph2 >> Weiter]]**| |
Deletions:
Additions:
Die erste Aufgabe beschäftigt sich mit der Erstellung eines Linegraph oder auch im deutschen Liniendiagramm genannt.
Liniendiagramme zeichnen sich dadurch aus, dass vorerst alle Datenpunkte in ein Koordinatensystem eingetragen werden und anschließend miteinander verbunden werden. Sinnvoll ist eine solche Darstellungsform, wenn ein Trend von gewissen Daten über einen Zeitraum hinweg dargestellt werden sollen. Ein einfaches Bespiel wäre die beschleunigung eines Gegenstandes.
Für diese Übung werden drei R-Dateien erstellt. (app.R, server.R, ui.R)
{{image url="Linegraph1.jpg" width="400" class="center"}}
**__HINWEIS__: Bitte kopieren sie nicht den Quellcode aus dem Wiki heraus, es steht am Ende jeder Übung eine Textdatei mit dem Quellcode als Inhalt zur Verfügung.**
Liniendiagramme zeichnen sich dadurch aus, dass vorerst alle Datenpunkte in ein Koordinatensystem eingetragen werden und anschließend miteinander verbunden werden. Sinnvoll ist eine solche Darstellungsform, wenn ein Trend von gewissen Daten über einen Zeitraum hinweg dargestellt werden sollen. Ein einfaches Bespiel wäre die beschleunigung eines Gegenstandes.
Für diese Übung werden drei R-Dateien erstellt. (app.R, server.R, ui.R)
{{image url="Linegraph1.jpg" width="400" class="center"}}
**__HINWEIS__: Bitte kopieren sie nicht den Quellcode aus dem Wiki heraus, es steht am Ende jeder Übung eine Textdatei mit dem Quellcode als Inhalt zur Verfügung.**
Deletions:
Als erste Aufgabe wird ein Linegraph oder auch im deutschen Kantengraph erstellt.
Hierfür werden drei R-Dateien erstellt. (app.R, server.R, ui.R)
Additions:
{{image url="Linegraph1.jpg" width="400" class="right"}}
Deletions:
{{files}}
Additions:
{{files}}
Additions:
Am Ende soll die Ausgabe wie folgt aussehen:
{{image url="Linegraph1.jpg" width="300"}}
||{text-align: LEFT}**[[TutoriumGrundlagenStatistik << Zurück]]** ||{text-align: RIGHT}**[[TutoriumGrundlagenStatistikLinegraph2>> Weiter]]**| |
{{image url="Linegraph1.jpg" width="300"}}
||{text-align: LEFT}**[[TutoriumGrundlagenStatistik << Zurück]]** ||{text-align: RIGHT}**[[TutoriumGrundlagenStatistikLinegraph2>> Weiter]]**| |
Deletions:
Additions:
{{image url="https://upload.wikimedia.org/wikipedia/commons/thumb/1/1b/R_logo.svg/1280px-R_logo.svg.png" width="50" class="left" }}
Additions:
**{{color text="Hier könnt ihr den Quellcode ohne Kommentare zusammengefasst herunterladen:" c="#00386a"}}**
{{files download="Linegraph1.txt"text="Linegraph 1 als .txt"}}
{{files download="Linegraph1.txt"text="Linegraph 1 als .txt"}}
Deletions:
Additions:
{{files}}
Additions:
// {{color text="Hier wird der gesamte Plot erstellt aber noch nicht gezeichnet, das Zeichnen folgt erst in der UI. " c="#00386a"}}
{{color text="An dieser Stelle wird also anhand einer IF Abfrage geprueft ob Wind oder Temperatur ausgewählt wurden. " c="#00386a"}}
{{color text="Zusätzlich werden die zuvor definierten Werte mit day und month von den vorherigen Funktionen abgeholt." c="#00386a"}} //
{{color text="An dieser Stelle wird also anhand einer IF Abfrage geprueft ob Wind oder Temperatur ausgewählt wurden. " c="#00386a"}}
{{color text="Zusätzlich werden die zuvor definierten Werte mit day und month von den vorherigen Funktionen abgeholt." c="#00386a"}} //
Deletions:
An dieser Stelle wird also anhand einer IF Abfrage geprüft ob Wind oder Temperatur ausgewählt wurden.
Zusätzlich werden die zuvor definierten Werte mit day und month von den vorherigen Funktionen abgeholt" c="#00386a"}} //
Additions:
Da im Programm später die Tage und Monate geändert werden sollen werden hierfür Schieberegler in der ui erstellt. Um die dort eingegebenen Werte
verwenden zu können müssen sie in der server.R ausgelesen werden. Ähnlich wie in HTML, dort werden Input Felder erstellt und anschließend anhand
des Labels kann der Inhalt des Feldes ausgelesen werden. So ist es auch mit der Auswahl zwischen Wind und Temperatur. Auch diese Abfrage muss in der
server.R definiert werden.
//{{color text="Hier wird die Option für die Auswahl von Wind oder Temperatur abgefragt." c="#00386a"}} //
//{{color text="Hier wird der Schieberegler für den Monat abgefragt." c="#00386a"}} //
//{{color text="Hier wird der Schieberegler für den Tag abgefragt." c="#00386a"}} //
min = 1, max = max(data$Day[data$Month ""=="" input$month]), step = 1,
value = c(1, max(data$Day[data$Month ""=="" input$month]))
// {{color text="Hier wird der gesamte Plot erstellt aber noch nicht gezeichnet, das Zeichnen folgt erst in der UI.
An dieser Stelle wird also anhand einer IF Abfrage geprüft ob Wind oder Temperatur ausgewählt wurden.
Zusätzlich werden die zuvor definierten Werte mit day und month von den vorherigen Funktionen abgeholt" c="#00386a"}} //
p <- ggplot(data[data$Month ""=="" input$month, ][c(input$day[1]:input$day[2]), ]) +
if(input$yAxis ""=="" 'Wind')
else if(input$yAxis ""=="" 'Temp')
titlePanel("Old Faithful Geyser Data"), // {{color text="Hier wird der Titel für die Anwendung definiert" c="#00386a"}} //
htmlOutput('yAxis'), // {{color text="Anzeige des Auswahlmenüs für Temperatur und Wind" c="#00386a"}} //
htmlOutput('month'), // {{color text="Auswahlschieber für Monat" c="#00386a"}} //
htmlOutput('day') // {{color text="Auswahlschieber für den Tag" c="#00386a"}} //
plotOutput('lineGraph') // {{color text="Starten des Plots lineGraph" c="#00386a"}} //
// source('server.R', encoding = "UTF-8")
shinyApp(ui = ui, server = server) //
verwenden zu können müssen sie in der server.R ausgelesen werden. Ähnlich wie in HTML, dort werden Input Felder erstellt und anschließend anhand
des Labels kann der Inhalt des Feldes ausgelesen werden. So ist es auch mit der Auswahl zwischen Wind und Temperatur. Auch diese Abfrage muss in der
server.R definiert werden.
//{{color text="Hier wird die Option für die Auswahl von Wind oder Temperatur abgefragt." c="#00386a"}} //
//{{color text="Hier wird der Schieberegler für den Monat abgefragt." c="#00386a"}} //
//{{color text="Hier wird der Schieberegler für den Tag abgefragt." c="#00386a"}} //
min = 1, max = max(data$Day[data$Month ""=="" input$month]), step = 1,
value = c(1, max(data$Day[data$Month ""=="" input$month]))
// {{color text="Hier wird der gesamte Plot erstellt aber noch nicht gezeichnet, das Zeichnen folgt erst in der UI.
An dieser Stelle wird also anhand einer IF Abfrage geprüft ob Wind oder Temperatur ausgewählt wurden.
Zusätzlich werden die zuvor definierten Werte mit day und month von den vorherigen Funktionen abgeholt" c="#00386a"}} //
p <- ggplot(data[data$Month ""=="" input$month, ][c(input$day[1]:input$day[2]), ]) +
if(input$yAxis ""=="" 'Wind')
else if(input$yAxis ""=="" 'Temp')
titlePanel("Old Faithful Geyser Data"), // {{color text="Hier wird der Titel für die Anwendung definiert" c="#00386a"}} //
htmlOutput('yAxis'), // {{color text="Anzeige des Auswahlmenüs für Temperatur und Wind" c="#00386a"}} //
htmlOutput('month'), // {{color text="Auswahlschieber für Monat" c="#00386a"}} //
htmlOutput('day') // {{color text="Auswahlschieber für den Tag" c="#00386a"}} //
plotOutput('lineGraph') // {{color text="Starten des Plots lineGraph" c="#00386a"}} //
// source('server.R', encoding = "UTF-8")
shinyApp(ui = ui, server = server) //
Deletions:
min = 1, max = max(data$Day[data$Month == input$month]), step = 1,
value = c(1, max(data$Day[data$Month == input$month]))
p <- ggplot(data[data$Month == input$month, ][c(input$day[1]:input$day[2]), ]) +
if(input$yAxis == 'Wind')
else if(input$yAxis == 'Temp')
titlePanel("Old Faithful Geyser Data"), // hier wird der Titel für die Seite angegeben //
htmlOutput('yAxis'),
htmlOutput('month'),
htmlOutput('day')
plotOutput('lineGraph')
//source('server.R', encoding = "UTF-8")
shinyApp(ui = ui, server = server)//
{{files}}
