R read.table读取txt 文本含义中文字符报错

> dt <- read.table('drugdata.txt',header = T)
Error in make.names(col.names, unique = TRUE) : 多字节字符串2有错
#报错


#为函数添加代码encoding = “UTF-8”，指明所读取文本的编码类型
> dt <- read.table('drugdata.txt',header = T, encoding = 'UTF-8')
> dt
  剂量 对药物A的影响 对药物B的影响
1   20            16            15
2   30            20            18
3   40            27            25
4   45            40            31
5   60            60            40
> class(dt)
[1] "data.frame"
> str(dt)
'data.frame':	5 obs. of  3 variables:
 $ 剂量         : int  20 30 40 45 60
 $ 对药物A的影响: int  16 20 27 40 60
 $ 对药物B的影响: int  15 18 25 31 40
> dt$剂量
[1] 20 30 40 45 60
> class(dt$剂量)
[1] "integer"
> dose <- dt$剂量
> dose
[1] 20 30 40 45 60
> class(dose)
[1] "integer"
> dose1 <- c(dt$剂量)
> class(dose1)
[1] "integer"
> str(dose1)
 int [1:5] 20 30 40 45 60
> dose
[1] 20 30 40 45 60
> druga <- dt$对药物A的影响
Warning message:
In grepl("|||", what, fixed = TRUE) : 输入的字符串1不适用于此语言环境
> druga
[1] 16 20 27 40 60
> drugb <- dt$对药物B的影响
Warning message:
In grepl("|||", what, fixed = TRUE) : 输入的字符串1不适用于此语言环境
> plot(dose,druga,type = 'b')