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別での凡例タイト…