【R语言】请问本地数据用quantmod包画K线图时报这个的错误代码是什么原因造成的，要怎么解决？

由于quantmod包不能用雅虎获取数据了，我就去其他网站下载了数据，但画K线图时修改了几次还是报的同样的错误代码，用机器翻译了也看不太懂，百度了半天也找不到解决办法，希望能在这里获得解答，谢谢！

Error in (function (cl, name, valueClass) :
assignment of an object of class “character” is not valid for @‘yrange’ in an object of class “chob”; is(value, "numeric") is not TRUE
In addition: Warning message:
In as.double.xts(Vo(x)) : NAs introduced by coercion

（函数（cl、名称、valueClass）中出错：
“character”类对象的赋值对于“chob”类对象中的@yrange”无效；is（值，“数值”）不是真的
此外：警告信息：
在as中。双重的xts（Vo（x））：强制引入的NAs

我的部分数据

我的运行

你的数据不是数值类型的