R Shiny: Warum funktioniert ggplot nicht?

Question

Ich versuche, ein Grundstück mit ggplot2 für die folgenden Daten zu machen: data

Name  date weight height 
Cat1 2016-03-01 34.20000 22.50000 
Cat1 2016-04-01 35.02080 23.01750 
Cat1 2016-05-01 35.86130 23.54690 
Cat1 2016-06-01 36.72197 24.08848 
Cat2 2016-03-01 33.55000 22.96000 
Cat2 2016-04-01 33.61710 23.41920 
Cat2 2016-05-01 33.68433 23.88758 
Cat2 2016-06-01 33.75170 24.36534 

Der Code Ich verwende:

library("shiny") 
library("xlsx") 
library("ggplot2") 

animal <- read.xlsx("C:\\data\\animals.xlsx",1) 

ui<- fluidPage(
titlePanel("Animals"), 
sidebarLayout(
sidebarPanel(
    helpText("Create graph of height or weight animals"), 

    selectInput("anim", 
       label = "Choose an animal", 
       choices = c("Cat1", "Cat2"), 
       selected = "Cat1"), 

    selectInput("opti", 
       label = "Option", 
       choices = c("weight", "height"), 
       selected = "weight") 
), 
    mainPanel(plotOutput("graph")) 
)) 

server <- function(input, output){ 
    output$graph <- renderPlot({ 
    p2 <- ggplot(subset(animal, Name %in% input$anim)) + geom_line(aes(x=date, y = input$opti)) 
    print(p2) 
}) 
} 
shinyApp(ui=ui, server= server) 

Ich habe keinen Fehler, aber die Ausgabe des Diagramms ist nur eine gerade Linie (plot). Ich verstehe nicht warum, wenn ich den Code in das Befehlsfenster mit ggplot setze, funktioniert es.

Answer 1

Da Ihre y Ästhetik ist eine vom Benutzer bereitgestellte Eingabe eher als eine hartcodierte R Kennung, die Sie benötigen aes_string zu verwenden, anstatt aes:

p2 = ggplot(subset(animal, Name %in% input$anim)) + 
    geom_line(aes_string(x = 'date', y = input$opti)) 

Beachten Sie, dass Sie jetzt Anführungszeichen um die brauchen x ästhetisch.

Side-Hinweis: Sie print ggplots können, aber ich finde immer, dass seltsam: was für eine Handlung bedeutet das Drucken? plot es statt:

plot(p2) 

Es ist das gleiche, es sieht einfach mehr logisch.

---

_{Für das Protokoll, ich weiß, warum ggplot2 eine print Funktion bereitstellt. Es ist ein netter Trick. Es macht einfach keinen Sinn, es explizit zu nennen.}