using Gadfly

plot(x=rand(100), y=rand(100), Geom.point, Geom.line)

plot(DataFrame(X1=rand(100), Y1=rand(100)),
     layer(x=:X1, y=:Y1, Geom.point),
     layer(x=:X1, y=:Y1, Geom.line))

plot(layer(x=rand(100), y=rand(100), Geom.point),
     layer(x=rand(100), y=rand(100), Geom.line))

plot(DataFrame(X1=rand(100), Y1=rand(100), X2=rand(100), Y2=rand(100)),
     layer(x=:X1, y=:Y1, Geom.point),
     layer(x=:X2, y=:Y2, Geom.line))

plot(layer(DataFrame(X1=rand(100), Y1=rand(100)), x=:X1, y=:Y1, Geom.point),
     layer(DataFrame(X1=rand(100), Y1=rand(100)), x=:X1, y=:Y1, Geom.line))

set_default_plot_size(24cm, 7cm)
plot( DataFrame(
        年代=reduce(vcat, [fill!(Array(Int32,7),1970 + x) for x in collect(10:10:40)])
       ,値1=randn(7 * 4)
       ,値2=randn(7 * 4)
       ,値3=randn(7 * 4))
     ,xgroup=:年代
     ,x=:値1
     ,y=:値2
     ,color=:値3,
     Geom.subplot_grid(Geom.point))