R 使用虚拟变量在x轴上的ggplot2创建条形图，并为条形图提供y值

我的数据集有两个变量来描述我的观察结果：

变量“1978年收入”

“治疗状态”（在治疗组或对照组中）的虚拟变量0或1

我现在的目标是创建一个条形图，描述1978年治疗组和对照组的平均收入。 我现在的代码是：

chart1=ggplot（data=NSW，aes（x=treatment，y=income））+geom\u bar（stat='identity'）

我得到的是：

我将代码改为：

chart1=ggplot（数据=NSW，aes（x=治疗，y=平均（收入））+geom_bar（stat='identity'）

将生成此条形图：

我只是对如何告诉R我希望两条线在y轴上“停止”感到困惑，在y轴上描述了两组人各自的平均收入

编辑： 这就是最终结果的样子（很抱歉我画得不好）： 图表的标题是：1978年的平均收入——治疗组和对照组

希望这里有人能帮我。 谢谢

注：不要混淆，在两个条形图中，收入的变量名称都标为“re78”。

这就是你想要的吗

# Load libraries
library(ggplot)

# Create some fake data
income <- runif(n = 10, min = 0, max = 30000)
cohort <- factor(sample(x = 0:1, size = 10, replace = TRUE),
                    labels = c("control", "treatment"))
NSW <- data.frame(income, cohort)

# Plot the data
chart1 = ggplot(data = NSW, aes(x = cohort, y = income)) +
  geom_bar(stat = "summary", fun = "mean") +
  scale_y_continuous(labels=scales::dollar_format(),
                     expand = c(0, 0), name = "Mean Income")
chart1

#加载库
图书馆（ggplot）
#制造一些假数据
收入这对我来说毫无意义：“我只是不知道如何告诉R，我希望两条线在y轴上‘停止’，在y轴上描述两组的各自平均收入。”更新了我的原始帖子。希望我的画能让它更清楚。再次感谢！请使用
dput
或我们可以复制和使用的东西添加数据。还显示共享数据的预期输出。了解和了解。