Erstellen einer Zeichnung mit Shiny in R

Question

Ich lerne Shiny und versuche, die quantitativen Daten aus dem Iris-Datensatz zu plotten. Mein Selectineinput in der ui.R scheint zu funktionieren, aber ich kann es nicht zum Plotten bekommen. Irgendein Rat? -Code unten

ui.R

irisx<-read.csv("iris.csv",header=T) 
library(shiny) 
shinyUI(fluidPage(
    titlePanel("Assignment 11"), 
     sidebarLayout(
     sidebarPanel(
      selectizeInput("x","X:",choices = c("Sepal Length"="Sepal.Length","Sepal Width"="Sepal.Width","Petal Length"="Petal.Length", "Petal Width"="Petal.Width")), 
      selectizeInput("y","Y:",choices = c("Sepal Length"="Sepal.Length","Sepal Width"="Sepal.Width","Petal Length"="Petal.Length", "Petal Width"="Petal.Width")) 
     ), 
     mainPanel(plotOutput("irisChart")) 
    ) 
    )) 

server.R

irisx<-read.csv("iris.csv",header=T) 

library(shiny) 
library(ggplot) 
shinyServer(function(input,output){ 
output$irisChart<-renderPlot({ 
irx<-as.numeric(input$x) 
iry<-as.numeric(input$y) 
p1<-ggplot(irisx,aes(input$x,input$y)) + geom_point() 
print(p1) 
    }) 
}) 

Answer 1

aes_string in Ihre ggplot

rm(list = ls()) 
library(shiny) 
library(ggplot2) 

irisx <- iris 
ui <- fluidPage(
    titlePanel("Assignment 11"), 
    sidebarLayout(
    sidebarPanel(
     selectizeInput("x","X:",choices = c("Sepal Length"="Sepal.Length","Sepal Width"="Sepal.Width","Petal Length"="Petal.Length", "Petal Width"="Petal.Width")), 
     selectizeInput("y","Y:",choices = c("Sepal Length"="Sepal.Length","Sepal Width"="Sepal.Width","Petal Length"="Petal.Length", "Petal Width"="Petal.Width")) 
    ), 
    mainPanel(plotOutput("irisChart")) 
) 
) 

server <- shinyServer(function(input,output){ 
    output$irisChart <- renderPlot({ 
    irx <- input$x 
    iry <- input$y 
    p1 <- ggplot(data = irisx,aes_string(irx,iry)) + geom_point() 
    p1 
    }) 
}) 

shinyApp(ui, server)