Hi Christopher
Also, it needs to be a number that I can put in a plot for a journal.
In that case, printer resolution is the limitation, not Mathematica
ArrayPlot[
{RandomInteger[1, 2000]},
Frame -> False,
ImageSize -> 2000]
Try looking for patterns or anomalies in the data and visualize that rather than the raw data.