library(openxlsx)
library(dplyr)

data<-read.xlsx("http://kanggc.iptime.org/book/data/dbase.xlsx")
data

encoding = "UTF-8"

data %>% filter(data$¼ºº° == "³²")
data %>% filter(data$¼ºº° == "³²" & data$º»Àû == "¼­¿ï")
data %>% filter(data$¼Òµæ > 2000 & data$¼Òµæ < 4000)