如何用R语言制作频数分布表及绘制条形图，帕累托图

制作频数分布表可以使用R语言中的table()函数，绘制条形图可以使用barplot()函数，绘制帕累托图可以使用ggplot2包中的geom_point()和geom_line()函数。

下面以一个例子来说明具体操作步骤：

假设有一个数据集，其中包含100个样本，每个样本的取值范围为1到10之间，现在要制作频数分布表并绘制条形图和帕累托图。

首先，我们生成一个包含100个样本的随机数据集：

set.seed(123)
data <- sample(1:10, 100, replace = TRUE)

然后，我们可以使用table()函数制作频数分布表：

freq_table <- table(data)

可以使用print()函数查看频数分布表：

print(freq_table)

输出结果如下：

data
 1  2  3  4  5  6  7  8  9 10 
 9  9  7  9  9  8  8 12 10  9 

接下来，我们可以使用barplot()函数绘制条形图：

barplot(freq_table, main = "Frequency Distribution", xlab = "Value", ylab = "Frequency")

运行以上代码后，会生成一张名为“Frequency Distribution”的条形图，并在x轴和y轴上标注相应的值和频数。

最后，我们可以使用ggplot2包中的geom_point()和geom_line()函数绘制帕累托图：

library(ggplot2)
cum_freq <- cumsum(freq_table)
percent <- cum_freq/sum(freq_table) * 100
pareto_data <- data.frame(x = names(freq_table), y = percent)
ggplot(pareto_data, aes(x = x, y = y)) +
  geom_point() +
  geom_line() +
  ylab("Cumulative Percentage") +
  ggtitle("Pareto Chart")

运行以上代码后，会生成一张名为“Pareto Chart”的帕累托图，并在y轴上标注累积百分比。