计算数据帧列表中的出现次数，并将结果存储在R中的新数据帧中

Question

我有一个大约80个数据帧的列表，格式如下：

myTable1 <- "ID    GROUP 
     1     5     
     2     5         
     3     4.9        
     4     4.9   
     5     4.9   
     6     2.0"
Data <- read.table(text=myTable1, header = TRUE)

myTable2 <- "ID     GROUP
     1      4.9
     2      4.8
     3      4.6
     4      4.6
     5      4.6"
Data <- read.table(text=myTable2, header = TRUE)

数据来自不同的.csv文件。并且没有标题。我将路径存储在名为file_names的列表中，并读取如下文件：

data_list <- lapply(file_names, read.csv , header=FALSE, sep=",")

添加我使用的标题：

data_list <- lapply(df, function(df) {colnames(df) <-c("ID", "Group"); df})

每个数据框可以在列＃34; Group＆＃34;中包含不同的项目，例如myTable2不包含＆＃34; Group＆＃34;中的项目。值为2.0或5.列可能不具有相同的长度。

我想要的是计算列中每个项目的出现次数＆＃34; Group＆＃34;每个文件。要比较出现的次数，应按以下格式将数据存储在单独的数据框中：

Group   Table 1  Table 2
  5        2        0
 4.9       3        1
 4.8       0        1   
 4.7       0        0
 4.6       0        1
 2.0       1        0