如何用ggplot绘制净利润异常值对应的Deal分类柱状图

• 先确保你已经正确生成了异常值子集，而非一直用全量的data_2绘图。如果还没单独提取异常值数据，用以下代码创建子集（假设你已把Z分数存为z_netprofit列；若未提前计算，可直接在筛选时生成）：

  # 方式1：基于已计算的Z分数列筛选
  outlier_data <- data_2 %>% filter(z_netprofit < -3 | z_netprofit > 3)
  
  # 方式2：直接在筛选时计算Z分数
  outlier_data <- data_2 %>% filter(scale(netprofit) < -3 | scale(netprofit) > 3)
  

• 检查outlier_data的行数是否为64，验证筛选逻辑正确。
• 用异常值子集作为ggplot的数据源，替代全量的data_2：

  library(ggplot2)
  ggplot(outlier_data, aes(x = Deal)) + 
    geom_bar() +
    labs(title = "异常值样本的Deal分布", x = "Deal类型", y = "数量")
  

• 若不想单独创建子集，也可在geom_bar中直接指定筛选后的数据源：

  ggplot(data_2, aes(x = Deal)) +
    geom_bar(data = . %>% filter(z_netprofit < -3 | z_netprofit > 3))
  

内容的提问来源于stack exchange，提问作者Iron-Man 2020