r语言 mylike()