library(dplyr)
library(xlsx)
library(reshape2)
setwd("C:\\Users\\Administrator\\Desktop")
data<- read.xlsx2("snp1.xlsx",1)
data <- data %>%
        melt(id.vars = c("rownames"))  %>%
        select(-2) %>%
        dcast(rownames~value,length,fill = NULL,drop=TRUE)




因为有缺失值所以分类中出现NA，你可以在数据清洗时，按自己意愿修改缺失部分。