如何在R中使用循环来统计出现的频率？

# 创建一个包含待统计数据的向量
data <- c(1, 2, 3, 2, 1, 3, 4, 2, 1, 3)

# 创建一个空的频率统计结果的列表
freq <- list()

# 使用循环遍历数据
for (i in data) {
  # 判断元素是否已经在频率统计结果中
  if (i %in% names(freq)) {
    # 如果已存在，则将对应的计数器加1
    freq[[as.character(i)]] <- freq[[as.character(i)]] + 1
  } else {
    # 如果不存在，则创建一个新的计数器并初始化为1
    freq[[as.character(i)]] <- 1
  }
}

# 输出每个元素及其对应的频率
for (i in names(freq)) {
  cat("元素", i, "出现的频率为", freq[[i]], "\n")
}