r语言如何绘制帕累托图

在R语言中，可以使用ggplot2包来绘制帕累托图。以下是一个简单的例子：

假设我们有一个数据框df，其中包含产品类别和每个类别的销售额。我们想要绘制一个帕累托图，显示每个类别的销售额占总销售额的比例。

首先，我们需要计算总销售额和每个类别的销售额占比。可以使用以下代码：

# 计算总销售额
total <- sum(df$sales)

# 计算每个类别的销售额占比
df$percent <- df$sales / total
df <- df[order(df$percent, decreasing = TRUE), ]
df$cumulative <- cumsum(df$percent)

这将在数据框中添加一个"percent"列和一个"cumulative"列，"percent"列包含每个类别的销售额占比，"cumulative"列包含每个类别的累计销售额占比。

接下来，我们可以使用ggplot2包绘制帕累托图。以下是绘制帕累托图的代码：

library(ggplot2)

ggplot(df, aes(x=reorder(category,-percent), y=percent)) +
  geom_bar(stat="identity", fill="blue") +
  geom_line(aes(y=cumulative), color="red", group=1) +
  scale_y_continuous(labels = scales::percent_format()) +
  labs(title = "帕累托图", x = "类别", y = "销售额占比") +
  theme_classic()

这将创建一个帕累托图，其中每个类别的销售额占比用蓝色柱状图表示，累计销售额占比用红色线条表示。图表还包括类别名称和销售额占比的标签。

注意，我们使用了reorder函数来按销售额占比对类别进行排序。这将确保帕累托图中的类别按从高到低的顺序排列。

帕累托图的输出结果如下图所示：