I can't tell if you want to include or exclude the fields in the c function. I'l assume include.
If you haven't already
install.packages('tidyverse')
library(tidyverse)
Then, to make data one
data1 <- data %>% select(id, hiredlabor, farmlabor, region)
Use
head(data)
to make sure that they are all there and all correctly spelled case-sensitively.
If your spreadsheet has multiple tabs, consult the documentation for read_excel or export your sheet to csv format and use readr::read.csv to bring it into your workspace.
Please don't be discouraged; with experience, this will become second nature and the ease of manipulating data will more than make up for the initial hassle.