ggplot绘制smbinning结果的数据分布情况

ggplot绘制smbinning结果的数据分布情况遇到的bug解决方式
1.用ggplot批量绘制dataframe 变量的分布情况
ggplot使用变量是未加引号变量，如果加引号利用ggplot绘图，比如绘制箱线图，图形异常，直接显示一条直线，此时可以使用get函数来得到数据框的变量。
例如：p1出现的箱线图异常，p2正常，如果批量跑数据图像，可以使用p3来进行使用。

library(smbinning)
col_names=colnames(smbsimdf1)
result=smbinning(df=smbsimdf1,y="fgood",x="cbs1") # Run and save result
mydatas=result$ivtable[1:dim(result$ivtable)[1]-1,]
library(ggplot2)
p1<-ggplot(smbsimdf1)+aes(y=fgood,x="cbs1" ,group=fgood)+ geom_boxplot()
p2<-ggplot(smbsimdf1)+aes(y=fgood,x=cbs1 ,group=fgood)+ geom_boxplot()
p3<-ggplot(smbsimdf1)+aes(y=fgood,x=get("cbs1"),group=fgood)+ geom_boxplot()

library(smbinning)
col_names=colnames(smbsimdf1)
result=smbinning(df=smbsimdf1,y="fgood",x="cbs1") # 
mydatas=result$ivtable[1:dim(result$ivtable)[1]-1,]
library(ggplot2)
library(ggplot2)
p1<-ggplot(smbsimdf1)+aes(y=fgood,x=get(col_names[2]),group=fgood)+ geom_boxplot()+stat_boxplot(geom ='errorbar', width = 0.3)####stat_boxplot(geom ='errorbar', width = 0.3)箱线图加横线
p2<-ggplot(data=mydatas,mapping=aes(x=Cutpoint,y=PctRec,fill=Cutpoint,group=factor(1)))+
  geom_bar(stat="identity")+theme(legend.position = 'none')+
  geom_text(aes(label = PctRec, vjust = -0.8, hjust = 0.5), show.legend = TRUE, hjust = 0, vjust = 0.8, size = 2)
p3<-ggplot(data=mydatas,mapping=aes(x=Cutpoint,y=BadRate,fill=Cutpoint,group=factor(1)))+
  geom_bar(stat="identity")+theme(legend.position = 'none')+
  geom_text(aes(label = BadRate, vjust = -0.8, hjust = 0.5), show.legend = TRUE, size = 2)
p4<-ggplot(data=mydatas,mapping=aes(x=Cutpoint,y=WoE,fill=Cutpoint,group=factor(1)))+
  geom_bar(stat="identity")+theme(legend.position = 'none')+
  geom_text(aes(label = WoE, vjust = -0.8, hjust = 0.5), show.legend = TRUE, size = 2)
library(patchwork)
library(ggsci)#####美化颜色
p1=p1+labs(title = col_names[2])###添加标题
p=p1 + p2+p3+p4+scale_fill_npg()
ggsave(p,file=paste('/home/mydata/',col_names[2],'.pdf'))####保存图片