R语言绘制直方图与密度图的组合图时，使用lines函数报错，求解答！

Question

导入数据代码：
csl<-read.csv("C:/Users/Administrator/Documents/R/xhdsjsjkshzn/birth-rate.csv")
字段表头：
Country X2008
去除X2008列中数据缺失代码：
csl2008<-csl$X2008[!is.na(csl$X2008)]
求取坐标点为绘制密度图做准备：
zbd2008<-density(csl2008)
加载包：
library(lattice)
绘制直方图：
histogram(csl$X2008,breaks=10)
添加需要的密度图：
lines(zbd2008)
到此时，出现如下错误问题：
执行lines(zbd2008)右侧直方图未添加密度曲线，如下图：