read_xls_utf8

library(rJava)
library(xlsx)
library(data.table)
library(magrittr)

fileName = "birdnames.xls"
original_data = read.xlsx2(fileName, 1,
  header=TRUE, encoding = "UTF-8", as.data.frame=FALSE) %>%
  do.call(cbind, .) %>% data.table()
  # data.table在這裡是非必要，為了後面的setnames而用的
data_names = read.xlsx2(fileName, 1,
  header=FALSE, startRow=1, endRow=1, encoding = "UTF-8",
  as.data.frame=FALSE) %>% unlist() # 這行是因為header通常讀不進去要手動
original_data %<>% setnames(data_names)
  # setnames是data.table的function，提供不複製直接重新命名data.table的方法
  # 如果前面不用data.table，這裡可以改成用magrittr的set_names*[m
  # 或是直接用names() <-
original_data$c_name


library(readxl)
fileName = "birdnames.xls"
dat = read_excel(fileName)
dat$c_name