r - Subsetting 700+ fips codes -

i have a list of 700+ fips codes i'm trying subset smaller dataset. know list them out :

data <- data[(data$fips == 65409, 84840, etc....) ,] 

but unrealistic have 700+ fips codes subset. i'm looking way subset using list of fips codes :

fips <- unique(dustbowldata_pre$fips)   #get fips codes 

edit : tried clarify further, it's hard submit example because of sheer number.

thanks can provide.

this worked.

prism.dd <- prism.d[(prism.d$fips %in% fips) ,]