假设一个R数据帧（testData）包含三列（分别命名为DATE，FREQ_RECORDS和CRITERION）和成对的数据（列CRITERION包含值“正”或“负”。

testData = structure(list(DATE = structure(c(18140,18140,18170,18201,18201),class = "Date"),FREQ_RECORDS = c(57L,120L,302L,64L,40L,20L),CRITERION = structure(c(1L,2L,1L,2L),.Label = c("positive","negative"),class = "factor")),row.names = c(395L,756L,396L,757L,397L,758L),class = "data.frame")

我想通过ggplot2将数据可视化为在配对因子内（但不是跨）累积的躲避小节（即，最终小节的高度应为57 + 302 + 40 = 399） “正”，“负”为120 + 64 + 20 = 204）。

我错误地认为以下代码会产生这样的情节：

ggplot(data=testData,aes(x=DATE,y=cumsum(testData[,"FREQ_RECORDS"]),fill=CRITERION),width=1) + 
    geom_bar(stat="identity",position="dodge",alpha=0.5) + 
    theme_minimal()

为了获得所需的结果，上述代码有何不正确之处，我将如何对其进行更正？ 注意：我相信这是一个如何计算累计金额（即cumsum(testData[,"FREQ_RECORDS"]）的问题，但不确定细节。