Box plot on Data Frames

gistfile1.jl

function dataframeplot(d::DataFrame,facsym,idsym)
    factors=sort(unique(d[facsym])) #We need this to do the boxpols
    numpoints=size(d,1)
    numfactors=length(factors)
    data=Array(Array{Float64},numfactors)
    for i=1:numfactors data[i]=[] end
    for i=1:numpoints
        idvar=d[idsym][i]
        fac=d[facsym][i]
        for j=1:numfactors
            if factors[j]==fac
                push!(data[j],idvar)
                break;
            end
        end
    end
    boxplot(data,0,"wo",labels=factors)
    xlabel(string(facsym))
    ylabel(string(idsym));
end