I assume that you are trying to use a function spline(). If not, do not take this answer into account.
spline() returns a list object of two components: x and y:
List of 2
$ x: num [1:93] -3.3 -3.23 -3.17 -3.1 -3.04 ...
$ y: num [1:93] 1 0.1421 -0.1642 -0.0228 0.4294 ...
data.frame . , , :
h <- hist( d, breaks="FD", plot=F )
zz <- spline( h$mids, h$counts )
qplot(x, y, data = data.frame(x = zz$x, y = zz$y), geom = "line")