by(DF[3:5], DF$CODE_2, cor)
でいいんじゃないの?