(besb <- bes[, c(1, 7, 8)])
data1 <- bes[,1:8]

nf <- c(bes$approveGov, bes$politmoney)

library(dplyr)
nf <- select(bes, approveGov, politmoney)