求助：如何按行对数据框进行频数统计，并生成新的数据表

数据格式如下，希望按行进行统计每个值出现的频数，最终生成一个二维表。

原始数据格式：

rownames	B73.AGPv3	X100462248	X100462250
146943	G	T	T
146945	A	C	C
146987	C	A	A
146994	A	A	A
146995	C	A	A

希望得到的结果：

rownames	A	T	G	C
146943		2	1
146945	1			2
146987	2			1
146994	3
146995	2			1

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，你可以在数据清洗时，按自己意愿修改缺失部分。

1. library(tidyverse)
   
2. read.table("clipboard", header = TRUE) %>%
   
3.   gather(type1, type2, 2:ncol(.)) %>%
   
4.   select(-2) %>%
   
5.   count(rownames, type2) %>%
   
6.   spread(type2, n)

复制代码