Preventing ColorFunction bleed in ListLinePlot

Question

Given this dataset (~2100 year precipitation estimates in New Mexico, based on tree-ring data, courtesy of NOAA and Henri Grissino-Mayer)

MALPAIS[1] = ToExpression@StringSplit[#, " "] & /@ 
 StringSplit[
  StringTake[
   Import["ftp://ftp.ncdc.noaa.gov/pub/data/paleo/treering/\
reconstructions/newmexico/malpais_recon.txt"], 18669 ;; 44215], "\n"]

The following:

ListLinePlot[#, Frame -> True, Axes -> False, Filling -> Axis, 
       AspectRatio -> 1/5, ImageSize -> 1000, 
       ColorFunction -> Function[{x, y}, If[y < 0, Red, Blue]], 
       ColorFunctionScaling -> False] & @(MALPAIS[1] - 
       15.3146`)

Results in color-bleed (note, I switched colors from above):

Presumably due to interpolation, since it it's also there in smaller time windows:

Is there any option to prevent this?

Answer 1

FillingStyle is the clue here:

GraphicsColumn@{
   ListLinePlot[#[[;; 50]], 
       Frame -> True, Axes -> False,Filling -> Axis, AspectRatio -> 1/5, 
       ImageSize -> 1000, ColorFunction -> Function[{x, y}, If[y < 0, Red, Blue]],
       ColorFunctionScaling -> False],
    ListLinePlot[#[[;; 50]], 
       Frame -> True, Axes -> False, Filling -> Axis, AspectRatio -> 1/5, 
       ImageSize -> 1000, FillingStyle -> {Red, Blue},   
       ColorFunction -> Function[{x, y}, If[y < 0, Red, Blue]], 
       ColorFunctionScaling -> False]
} &@(MALPAIS[1] - 15.3146`)

Whole scale (now with ColorFunction removed and without style):

ListLinePlot[#[[;; -1]], Frame -> True, Axes -> False, 
    Filling -> Axis, AspectRatio -> 1/5, ImageSize -> 1000, 
    FillingStyle -> {Red, Blue}, PlotStyle -> None]} &@(MALPAIS[1] - 
   15.3146`

Arbitrary function to determine separation between blue and red (requested per comment):

ListLinePlot[{#[[;; 50]], Table[{x, Sin[x/4]}, {x, #[[;; 50, 1]]}]}, 
   Frame -> True, Axes -> False, Filling -> {2}, AspectRatio -> 1/5, 
   ImageSize -> 1000, FillingStyle -> {Red, Blue}, 
   PlotStyle -> None] &@(MALPAIS[1] - 15.3146`)