r - R图未显示正确的数据

Question

下午好，

我正在 R 中创建一个图表，按索赔状态（即已结算、未结、无效等）显示索赔金额。该图不显示数据表中的数据，而是提取未出现在数据表中的数字。

代码如下：

tempL <- setDT(All_Data)

temp1 <- tempL

temp1 <- subset(temp1,temp1$Data == "Claims")

temp1$YM1_DATE <- lubridate::ymd(paste0(year_month = temp1$Incident.Year.Month, day = "01"))

temp1$YM1_DATE <- as.Date(temp1$YM1_DATE, format = "%Y-%m-%d")

temp1$YM1_DATE <- ifelse(temp1$YM1_DATE > Latest_Date2, 0, temp1$YM1_DATE)

temp1 <- temp1[temp1$YM1_DATE != 0,]

temp1$YM1_DATE <- as.Date(temp1$YM1_DATE, format = "%Y-%m-%d", origin = "1970-01-01")

MAX_MON <- max(temp1$YM1_DATE)

temp1 <- temp1[YM1_DATE >= (MAX_MON %m-% months (rollmonths)), lapply(.SD,sum), by = list(YM1_DATE,ClaimStatus),
               .SDcols = c("ClaimCount")]

ClaimStatusGraph <- ggplot() + 
  geom_line(data = temp1, aes (x = YM1_DATE, y = ClaimCount, group = ClaimStatus, color = ClaimStatus), size = 0.75) + 
  scale_color_brewer("Blues") + 
  ggtitle("Claim Status") + 
  scale_y_continuous() + 
  scale_x_date(breaks = "months", date_labels = "%Y-%m") + 
  theme_bw() + 
  theme(axis.title.x = element_blank(), legend.title = element_blank(), panel.border = element_blank(),
        axis.line.y = element_line(color = 'black'), axis.line.x = element_line(color = 'black'),
        legend.position = "right", axis.text.x = element_text(angle = 90))

ClaimStatus_Graph 

这将创建一个与数据集不相关的图表，例如，在图表上被拒绝的是 20 而不是 61。

如果这有帮助，我可以添加图像。任何帮助是极大的赞赏。

dput(temp1) 给出以下内容：

structure(list(YM1_DATE = structure(c(17775, 17775, 17805, 17836, 17956, 17956, 17956, 17836, 17956, 17836, 17805, 17836, 17987, 17987, 17987, 17987, 17866, 17866, 17866, 17987, 18017, 18017, 18017, 18017, 18017, 17805, 17866, 17866, 18048, 18048, 18048, 18048, 18048, 18078, 18078, 18078, 18078, 18078, 17897, 17897, 17897, 17897, 18109, 18109, 18109, 18109, 18109, 18140, 18140, 18140, 18140, 18140, 18170, 18170, 18170, 18170, 18170, 18201, 18201, 18201, 18201, 18201, 17928, 17928, 17928, 17928, 17928, 17956), class = " Date"), ClaimStatus = c("Declined", "Void", "Declined", "Declined", "Settled", "InActive", "Void", "Settled", "Declined", "InActive", "Settled ", "无效", "拒绝", "已解决",“开放”、“无效”、“无效”、“已拒绝”、“已结算”、“无效”、“已拒绝”、“开放”、“已结算”、“无效”、“无效”、“无效”、“无效” ”、“恢复”、“拒绝”、“已结算”、“开放”、“无效”、“无效”、“结算”、“拒绝”、“开放”、“无效”、“无效”、“结算”、 “已拒绝”、“无效”、“无效”、“未完成”、“已结算”、“已拒绝”、“无效”、“无效”、“已结算”、“开放”、“已拒绝”、“无效”、“无效” ", "打开", "已结算", "已拒绝", "无效",“InActive”、“Open”、“Settled”、“Declined”、“InActive”、“Void”、“Declined”、“Settled”、“InActive”、“Open”、“Void”、“Open”）、ClaimCount = c(2, 1, 9, 23, 213, 61, 6, 49, 91, 19, 21, 2, 93, 198, 100, 5, 46, 48, 68, 1, 129, 83, 241, 5 , 6, 6, 5, 1, 100, 316, 112, 15, 3, 336, 134, 129, 8, 8, 91, 63, 33, 5, 175, 238, 113, 6, 13, 219, 113 , 100, 9, 8, 145, 218, 68, 11, 3, 392, 110, 61, 9, 11, 92, 152, 53, 1, 5, 1)), row.names = c(NA, - 68L), 类 = c("data.table", "data.frame"), .internal.selfref = )无效”，“打开”），ClaimCount = c(2, 1, 9, 23, 213, 61, 6, 49, 91, 19, 21, 2, 93, 198, 100, 5, 46, 48, 68, 1, 129, 83, 241, 5, 6, 6, 5, 1, 100, 316, 112, 15, 3, 336, 134, 129, 8, 8, 91, 63, 33, 5, 175, 238, 113, 6, 13, 219, 113, 100, 9, 8, 145, 218, 68, 11, 3, 392, 110, 61, 9, 11, 92, 152, 53, 1, 5, 1)), row.names = c(NA, -68L), class = c("data.table", "data.frame"), .internal.selfref = )无效”，“打开”），ClaimCount = c(2, 1, 9, 23, 213, 61, 6, 49, 91, 19, 21, 2, 93, 198, 100, 5, 46, 48, 68, 1, 129, 83, 241, 5, 6, 6, 5, 1, 100, 316, 112, 15, 3, 336, 134, 129, 8, 8, 91, 63, 33, 5, 175, 238, 113, 6, 13, 219, 113, 100, 9, 8, 145, 218, 68, 11, 3, 392, 110, 61, 9, 11, 92, 152, 53, 1, 5, 1)), row.names = c(NA, -68L), class = c("data.table", "data.frame"), .internal.selfref = )

谢谢

标签： rggplot2