R에서 7 개의 GTFS 피드를 분석하기 위해 tidytransit 패키지를 사용하고 있습니다. Tidytransit은 이러한 피드를 데이터 프레임 목록으로 제공합니다. 이 목록 (set_servicepattern (x)) 각각에 대해 작업을 실행하고 싶지만 7 번 입력하고 싶지는 않으므로 7 개 목록 모두에서 작업을 반복하는 함수를 만들고 싶습니다. 나는 lapply로 이것을 시도했지만 lapply의 결과를 목록 구조에서 각 하위 목록으로 다시 가져와 입력 목록을 덮어 쓰는 방법을 알아낼 수없는 것 같습니다. 제안?
내 코드의 관련 부분은 다음과 같습니다.
nyc_subway <- read_gtfs("http://web.mta.info/developers/data/nyct/subway/google_transit.zip")
bus_bk <- read_gtfs("http://web.mta.info/developers/data/nyct/bus/google_transit_brooklyn.zip")
bus_qn <- read_gtfs("http://web.mta.info/developers/data/nyct/bus/google_transit_queens.zip")
bus_bx <- read_gtfs("http://web.mta.info/developers/data/nyct/bus/google_transit_bronx.zip")
bus_ma <- read_gtfs("http://web.mta.info/developers/data/nyct/bus/google_transit_manhattan.zip")
bus_si <- read_gtfs("http://web.mta.info/developers/data/nyct/bus/google_transit_staten_island.zip")
bus_bc <- read_gtfs("http://web.mta.info/developers/data/busco/google_transit.zip")
list_2 <- list(nyc_subway, bus_bk, bus_qn, bus_bc, bus_bx, bus_ma, bus_si)
a <- function(x){
set_servicepattern(x)
return(x)}
lapply(list_2, a)
개체를 덮어 쓰려면 명명 된 파일 list을 만든 다음 사용합니다 list2env(에서 유지하는 것이 더 낫기 때문에 권장되지 않음 list).
names(list_2) <- c('nyc_subway', 'bus_bk', 'bus_qn',
'bus_bc', 'bus_bx', 'bus_ma', 'bus_si')
list2env(list_2, .GlobalEnv)
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다