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))