Shiny

[retep]

Hallo Edi,

vielen Dank für deine Hilfe und Geduld!

Fehler in sliderInput(inputId = "Depth", "Select Min and Max", choices = unique(Data1$Depth), : unbenutztes Argument (choices = unique(Data1$Depth))

ist eigentlich eindeutig: sliderInput hat kein choices= Argument. Auch sehe ich nicht wo Data1 definiert ist. Kein reproduzierbares Beispiel...

Ich habe die Datei (Data1.txt) angehängt. Gleich beim posten meines Hilfegesuchs.

Warnung: Error in filter: Objekt 'Depth' nicht gefunden

Kein reproduzierbares Beispiel. Ich vermute du willst filter aus dem dplyr Paket nutzen, dass ich aber nirgends sehe. Ich hab mir angewöhnt Funktionen aus Paketen explizit zu adressieren: dplyr::filter

hier nochmal der komplette shiny code:

Code: Alles auswählen

library(shiny)
library(ggplot2)
library(tidyr)

ui <- fluidPage(
  plotOutput("my_depth_plot"),
  selectizeInput("elementInput", "Variable",
                 choices = unique(Data1$Element),  
                 selected="", multiple =TRUE),
  
  sliderInput(inputId = "Depth",
              "Select Min and Max", 
              min = 100,
              max=400, 
              value = 100)
)

server <- function(input, output) {
  
  my_depth_plot <- reactive({
    Data1 %>%
      filter(Depth >
               input$Depth)
  })
  
  output$my_depth_plot <-renderPlot ({
    
    ggplot(my_depth_plot ()) +
      aes_string(
        x="Depth",
        y="Value",
        color= input$Element) +
      geom_point()+geom_line()+
      coord_flip()+
      facet_wrap(. ~ Element, scales = 'free_x', nrow = 1)+
      scale_color_brewer(palette="Paired", guide = FALSE)+
      scale_x_reverse(limits = c(400, 100), 
                      breaks = seq(400, 100, by = -50))
    
  })
  
}

shinyApp(ui = ui, server = server)

Der code für das Beispiel wurde in meinem ersten Threat veröffentlicht! Data1 ist der Anhang als Textdatei!

Kann es auch daran liegen dass ich keinen x/y Plot machen will (im weitesten Sinn ist es ja trotzdem ein x/y Plot) - also der Datensatz im Breitformat vorliegt, stattdessen benutze ich das Lange Format um den Tiefenplot als Facet darzustellen. Und Shiny kennt sowas nicht? Kann das sein, dass Shiny nicht in der Lage ist Dateien im "Long Format zu verarbeiten und die Plots im Anschluss als Facets darzustellen?

Nein, nein nein. Das hat nichts mit shiny zu tun... Am besten schreibst du den code mal als skript/funktion mal ganz ohne shiny...

Das verstehe ich nicht ganz:"...als skript/ funktion mal ganz ohne shiny.....". ?

Nochmals vielen Dank für deine Geduld.

retep

[EDi]

Das verstehe ich nicht ganz:"...als skript/ funktion mal ganz ohne shiny.....". ?

Ja, Code schreiben der einliest, aufbereitet und den gewünschten plot generiert.

Der code für das Beispiel wurde in meinem ersten Threat veröffentlicht! Data1 ist der Anhang als Textdatei!

Hmm, hab ich Tomaten auf den Augen, oder wo wird das eingelesen?

Den Hinweis mit dplyr::filter hast du verstanden?

[retep]

Hallo Edi,

nun ja

Hmm, hab ich Tomaten auf den Augen, oder wo wird das eingelesen?

also wenn ich das richtig verstanden habe möchtest du dieses Skript ????

Code: Alles auswählen

library(ggplot2)
library(tidyverse)
Data1%>%
  select(Age, Depth, Element, Value)%>%
  filter (Element %in% c("TOC", "TS", "S1", "S2", "S3", "Tmax", "HI", "OI"))%>%
  ggplot(aes(x= Depth, y= Value, color = Element, na.rm = TRUE))+  
  geom_line()+ geom_point()+
  coord_flip()+
  scale_x_reverse(limits = c(400, 100), 
                  breaks = seq(400, 100, by = -50))+
  facet_wrap(. ~ Element, scales = 'free_x', nrow = 1)+
  scale_color_brewer(palette="Paired", guide = FALSE)+
  scale_y_continuous()+ 
  labs(title = "Depth plot",
       subtitle = "",
       x= "Depth [m]",
       tag = "")+
  theme_bw(base_size = 15)+
  theme(axis.text.x=element_text(size=rel(0.5)))+
  theme(axis.title.x=element_blank())
  
  

Ist das korrekt?????

Den Hinweis mit dplyr::filter hast du verstanden?

Nein, tut mir leid! Ich starte meine Grafiken oder Skripte immer, in dem ich die Libraries vorher einlese.

Nochmals vielen Dank für deine Geduld & Hilfe!