library(shiny)
library(tidyverse)
sonad=read_csv("http://www.tlu.ee/~jaagup/andmed/keel/kunglarahvas_lambipirn_pikkused_haalikud.txt")

ui=fluidPage(
  titlePanel("Sõnade asukohad"),
  sliderInput("nihe", "Nihke suurus: ", min=1, max=50, value=20, animate=TRUE),
  sliderInput("maxPikkus", "Sõna maksimumpikkus", min=1, value=5, max=max(sonad$sonapikkus)),
  plotOutput("distPlot")
)

server=function(input, output){
  output$distPlot <- renderPlot({
     d=input$nihe/100
    sonad %>% filter(sonad$sonapikkus<=input$maxPikkus) %>%  ggplot(aes(taishaalikuid, sulghaalikuid))+geom_jitter(width=d, height=d)
  })
}

shinyApp(ui=ui, server=server)