某品牌冷气机产品的重要缺陷数量概率分布调查结果及相关代码示例

某品牌冷气机产品的重要缺陷数量概率分布调查结果及相关代码示例

消费者协会经过调查发现，某品牌冷气机产品存在重要缺陷的数量具有特定的概率分布。在本文中，我们将探讨如何使用R语言来分析和可视化这个概率分布。下面是相关的代码示例：

# 导入必要的包
library(ggplot2)

# 假设调查结果如下所示，每个数量对应的概率分布
defect_counts <- c(0, 1, 2, 3, 4)
probabilities <- c(0.4, 0.3, 0.2, 0.08, 0.02)

# 创建数据框
data <- data.frame(Defects = defect_counts, Probability = probabilities)

# 打印数据框
print(data)

# 绘制柱状图
ggplot(data, aes(x = Defects, y = Probability)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  labs(x = "缺陷数量", y = "概率", title = "冷气机缺陷数量概率分布") +
  theme_minimal()

在上述代码中，我们首先定义了调查结果中可能的缺陷数量（defect_counts）和对应的概率分布（probabilities）。然后，我们使用这些数据创建了一个数据框（data），其中包含了缺陷数量和对应的概率。最后，利用ggplot2包绘制了一个柱状图，横轴表示缺陷数量，