R - Запуск al oop за несколько действий - PullRequest
Новая
       19

R - Запуск al oop за несколько действий

0 голосов
/ 19 апреля 2020

Я задавал подобный вопрос в конце прошлого года, но не мог найти время для работы над этим проектом до сих пор.

Итак, в приведенном ниже коде я делаю карту велосипедов, доступных в Париже, используя живые данные. Идея, которую я имею, состоит в том, чтобы сделать это со временем (oop) (я читал, что циклы запускаются некоторое время, поэтому мне, возможно, не потребуется добавлять компонент времени), и сохраните каждую карту под другим именем, чтобы увидеть " поток "доступности велосипеда в течение дня, например.

Я застрял в том, что не знаю, как все это запустить oop. Я пытался "для", я пытался "в то время", я пытался поместить это как функцию, а затем l oop, и хотя я уверен, что это возможно, у меня просто нет выбора.

Если у кого-то есть идея, как это сделать или направить меня к учебнику, я буду вечно благодарен.

Спасибо! 

  sta.Paris <- read.csv(url("https://opendata.paris.fr/explore/dataset/velib-disponibilite-en-temps-reel/download/?format=csv&timezone=Europe/Berlin&use_labels_for_header=true"),sep=";")

  sta.Paris1 <- sta.Paris %>% separate(Coordonnées.géographiques,into=c("lat","lon"),sep=",") %>%
    mutate(lat=as.numeric(lat),lon=as.numeric(lon))


  sta.Paris1[15] <- NULL


  sta.Paris2 <- na.omit(sta.Paris1)


  sta.Paris2$velorange = cut(sta.Paris2$Nombre.total.vélos.disponibles,
                             breaks = c(0,5,10,15,20,25,100), right=F,
                             labels = c("Tres peu [0-5)", "Peu [5-10)","Moyen [10-15)","Assez [15-20)","Beaucoup [20-25)", "Enormement [25-100)")
  )


  colorFactor(palette = c("azure2","yellow","orange","red","red4","black"), domain = sta.Paris2$velorange)

  map.velib1 <- leaflet(data = sta.Paris2) %>%
    addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png") %>%
    addCircleMarkers(~ lon,~ lat,
                     color = ~ pal(velorange),
                     popupOptions(T),
                     radius=~ 3 ,stroke = FALSE, fillOpacity = 0.7,popup = ~ sprintf("<b> Vélos dispos: %s</b>",as.character(Nombre.total.vélos.disponibles)))

  map.velib1
...