ggplot2 の凡例のタイトル

g <- ggplot(data,aes(x,y))
g <- g + geom_point(aes(shpae=factor(z)))
g <- g + geom_line(aes(linetype=factor(z)))
g <- g + scale_shape_discrete("")
g <- g + scale_linetype_discrete("")
print(g)

scale_shape_discrete == shape別での凡例タイトルの操作（defaultでは"factor(z)"）
scale_linetype_discrete == linetype別での凡例タイトルの操作（defaultでは"factor(z)"）

""とすれば，凡例タイトルだけ消えて，凡例のみ残る．