library(shiny)
library(tidyverse)
ui=fluidPage(
  titlePanel("Sonade asukohad"),
  sliderInput("nihe", "Nihke suurus: ", min=1, max=50, value=20),
  plotOutput("distPlot")
)

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

shinyApp(ui=ui, server=server)