错误：美学必须是长度1或与数据（10）相同：x，y

Question

我正在尝试绘制使用＆＃34; Aggregate＆＃34;汇总的数据。 R中的命令。我可以查看聚合表，但无法绘制它。我得到的错误是＆＃34;错误：美学必须是长度1或与数据（10）相同：x，y＆＃34;。我是R的新手，请帮忙解决这个问题。以下是我正在使用的代码：

# House.value has value of houses and CY is calendar year.
test.sum = aggregate(x=House.value,by=list(CY), FUN=sum)
# plot aggregate of house values by calendar year.
ggplot(test.sum, aes(x=AY,y=IPD_CA))+geom_bar(stat="identity")

下面是我试图绘制的表格

    CY  House Value
1   CY_12_13_H1 32680.07
2   CY_12_13_H2 38263.38
3   CY_13_14_H1 33587.79
4   CY_13_14_H2 31814.85
5   CY_14_15_H1 30571.6
6   CY_14_15_H2 39100.51
7   CY_14_15_H1 30571.6
8   CY_14_15_H2 39100.51
9   CY_15_16_H1 39526.53
10  CY_15_16_H2 42059.63
11  CY_16_17_H1 41808.05
12  CY_16_17_H2 40468.84