add r code

add r code, lattice bwplot for 15m standardized data