r语言将频数表变为原始数据表

在R语言中，将频数表恢复为原始数据表一般有两种方法。

方法一是使用rep函数。假设我们有一个频数表，包含一个变量x和频数freq。我们可以使用rep函数，将变量x重复freq次，以便恢复原始数据表。具体代码如下：

# 假设我们有一个频数表freq_table
freq_table <- data.frame(x = c(1, 2, 3), freq = c(3, 4, 2))

# 创建一个空的向量
original_data <- c()

# 遍历频数表中的每一行
for (i in 1:nrow(freq_table)) {
  # 将变量x重复freq次，并添加到原始数据向量中
  original_data <- c(original_data, rep(freq_table$x[i], freq_table$freq[i]))
}

# 将原始数据向量转换为数据框
original_data <- data.frame(x = original_data)

方法二是使用dplyr包中的uncount函数。uncount函数可以根据频数表，将每个值展开为相应的重复次数。具体代码如下：

# 假设我们有一个频数表freq_table
freq_table <- data.frame(x = c(1, 2, 3), freq = c(3, 4, 2))

# 使用dplyr包中的uncount函数
library(dplyr)
original_data <- uncount(freq_table, freq)

# 将原始数据向量转换为数据框
original_data <- data.frame(x = original_data)

以上两种方法都可以将频数表恢复为原始数据表。方法一使用了基本的R函数rep，方法二使用了dplyr包中的uncount函数，可以根据自己的喜好和需要选择使用。