R- объединить CSV-файл с шейп-файлом - PullRequest
Новая
       7

R- объединить CSV-файл с шейп-файлом

0 голосов
/ 28 сентября 2018

Я хотел бы объединить шейп-файл с фреймом данных, и я получил следующую ошибку

Ошибка в совпадении (bx, by, 0L): для 'match' требуются аргументы вектора

Мой код

mydat <- read.csv("PLS.csv",stringsAsFactors = F)

mydat<- mydat %>% rename_at(vars(STABR),~"STATE") 
mydat<- mydat %>% rename_at(vars(CNTY),~"COUNTY") 

mydat <- mydat[ ! mydat$STATE %in% c("AS","GU"), ]

states <- readOGR("cb_2015_us_state_20m.shp",
                  layer = "cb_2015_us_state_20m")#,stringsAsFactors = F)


states <- subset(states, states$STUSPS %in% setdiff(states$STUSPS,c("AS","GU","PR")))

states$STUSPS <- states[order(states$STUSPS), ]

map_dat <- mydat[,c("STATE",
                    "LIBNAME",  
                    "ADDRESS",
                    "CITY",
                    "ZIP",
                    "COUNTY",
                    "GEOCODE",
                    "LONGITUD",
                    "LATITUDE")]


projects.df <- merge(states, map_dat, by.x = "STUSPS", by.y = "STATE",duplicateGeoms = T)

Может кто-нибудь помочь мне определить, где я ошибся?

...