基于某些县子集一个大型空间数据帧

我试图根据某些县对一个大的空间数据帧进行子集划分,但在进行子集划分后仍然得到相同的数据帧。

library(raster)
library(leaflet)
library(viridis)

# Get USA polygon data
USA <- getData("GADM", country = "usa", level = 2)

# Prepare data
subusa<-subset(USA,"Cheyenne"%in%USA$NAME_2&"Kimball"%in%USA$NAME_2)