R语言ggplot绘图标签显示问题

请教大家一个问题：

定义一个函数包含了ggplot绘图命令主要代码如下：

visual=function(i){
p <- ggplot(dataVisual,mapping =aes(x=depth,y=i))
p <- p+geom_line(color="#00CCCC")+geom_point(aes(depth,i,color=label))+labs(x = "profondeur(m)")
p
}
lapply(dataVisual[,c("B","Al2O3_T","Ba_T","CaO_T")], visual)

运行后每张图的纵坐标标签都显示为定义的函数自变量’i‘而不会显示真实变量名，如图：

请问这种情况应该怎么解决？
感谢回答！

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。