It seems that you just have alot of small values and few extremely large values. Hence, the color key is correct (See the histogram in the color key) but the low (grey) values just dominate the picture. You could try to plot the values on a logarithmic scale.
Maybe try something like:
heatmap.2(log2(as.matrix(data) + 1), col = hmcol, trace="none")