在R中计算每组表中的频率

# 创建一个包含组别和值的数据框
data <- data.frame(group = c("A", "A", "B", "B", "B", "C"),
                   value = c(1, 2, 1, 2, 3, 1))

# 使用split()函数将数据按照组别分组
grouped_data <- split(data$value, data$group)

# 使用lapply()函数计算每个组别的频率
frequency_tables <- lapply(grouped_data, table)

# 打印每个组别的频率表格
for (i in 1:length(frequency_tables)) {
  group <- names(frequency_tables)[i]
  print(paste("Group", group))
  print(frequency_tables[[i]])
}