Brillant Réactif ggplot de Sortie

J'ai le code suivant qui je suis tenté en vain de s'exécuter. Je veux juste être en mesure de filtrer un graphe de sortie sur la base d'une entrée de gamme. Dans cet exemple, si la plage d'entrée est fixé à 1 à 5, j'aimerais voir 5 points sur le graphique, de même que la gamme d'entrée de 2-5 montre 4 points.

##UI   
require(shiny)
shinyUI(fluidPage(
titlePanel(title=h4("Races", align="center")     
),
sidebarPanel( 
sliderInput("num", "Number:",
            min = 0, max = 5,step=1,value=c(0,2)),
mainPanel(
  plotOutput("plot2")))))

##server
library(dplyr)
library(ggplot2)
shinyServer(function(input,output){
num<-c(1,2,3,4,5)
let<-c("A","B","C","D","E")
date<-c("2015-5-1","2015-6-1","2015-7-1","2015-8-1","2015-9-1")
df<-data.frame(num,let,date)
dat<-reactive({
df %>% filter(num==input$num)})
output$plot2<-renderPlot({
ggplot(dat(),aes(x=date,y=num))+geom_point(colour='red')},height = 400,
width = 600)})

Je voudrais montrer la gamme de valeurs sur le graphique en fonction de l'entrée de gamme, mais seulement 1 valeur est de montrer, pas de la plage de valeurs avec les dates correspondantes.

Merci d'avance.

OriginalL'auteur Lebeauski | 2015-10-06

  1. 9

    Est-ce que vous souhaitez? Edit: Maintenant, vous seriez en mesure de voir tous les points que vous avez spécifié

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

num<-c(1,2,3,4,5)
let<-c("A","B","C","D","E")
date<-c("2015-5-1","2015-6-1","2015-7-1","2015-8-1","2015-9-1")
df <- data.frame(num,let,date)

ui <- fluidPage(
  titlePanel(title=h4("Races", align="center")),
  sidebarPanel( 
    sliderInput("num", "Number:",min = 0, max = 5,step=1,value=c(1,2))),
  mainPanel(plotOutput("plot2")))

server <- function(input,output){

  dat <- reactive({
    test <- df[df$num %in% seq(from=min(input$num),to=max(input$num),by=1),]
    print(test)
    test
  })

  output$plot2<-renderPlot({
    ggplot(dat(),aes(x=date,y=num))+geom_point(colour='red')},height = 400,width = 600)}
shinyApp(ui, server)

    Brillant Réactif ggplot de Sortie

    Non, @Côtelette de Porc si la plage d'entrée est de 1 à 5 je voudrais voir 5 points, de la même manière avec la gamme d'entrée 2-5 je voudrais voir 4 points. Le 1-5 gamme d'entrée je soupçonne apporterait: ggplot(df,aes(x=date,y=num))+geom_point(couleur='rouge'), Mais n'a pas

    OriginalL'auteur Pork Chop