I can make you map works. You must fix a couple of typos in your code.
First, in choices = c("Corn", "Soybeans", "Wheat"), you should capitalize CORN, SOYBEANS, and WHEAT as in nass_df.
Second, in region = "U.S.", it should be region = "US",.
hope it helps
Martin