Plot[Tooltip[{Log2[x]-Floor[Log2[x]]}], {x, 1, 32},Filling->Axis, FillingStyle -> {Red, Blue}]