colnames(genotype) <- sub("\\.$", "", colnames(genotype))\\.$表示的是什么意思呢，是结尾符号.替换成什么吗