颜色代码未正确显示在堆叠条形图中

Question

我正在尝试绘制带有颜色代码作为填充的堆叠条形图。 但问题是堆栈中的颜色代码没有正确显示所有内容。 它为附近的多个数据堆栈显示一种颜色。

plot <- ggplot(data=data, aes(x=reorder(product, +Number), y=Number, fill=S_ID))+
  geom_bar(position='stack', stat="identity")

给出图表如下：

问题是例如第二大条包含：

S13 S13 S17 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S6 S58 S58

但它只显示两种颜色!!

这里是dput(data)的部分：

结构（列表（产品=结构（c（27L，33L，32L，17L，33L， 32L, 24L, 30L, 20L, 25L, 12L, 14L, 22L, 11L, 21L, 26L, 10L, 3L, 11L, 9L, 5L, 1L, 10L, 11L, 8L, 39L, 2L, 2L, 13L, 33L, 21L, 33L, .....), levels = c("DQX", "DQY", "DRS", "DSQ", "DSY", "DTB", "DXY", "DYB", "FPA", "KFM", "KRA", "KRD", ………… ), class = "factor"), S_ID = structure(1:65, levels = c("S1", “S12”、“S13”、“S14”、“S15”、“S17”、“S19”、“S20”、“S21”、“S23”、 “S24”、“S25”、“S27”、“S28”、“S3”、“S30”、“S31”、“S34”、“S36”、 “S37”、“S39”、“S40”、“S41”、“S42”、“S43”、“S44”、“S45”、“S46”、 ..................), class = "factor"), 数字 = c(1, 1, 2, 4, 1, 1, 1, 2, 10, 7, 2, 1, 3, 4, 8, 4, 1, 9, 3, 6, 3, 3, 1, 2, 2, 4, 3, 2, 8, 1, 7, 4, 2, 2, 2, 18, 4, 10, 2, 2, 1, 4, 1, 6, 1, 6, 2, 3, 1, 3, 3, 1, 2, 2, 7, 1, 1, 10, 2, 9, 3, 6, 1, 7, 2)), row.names = c(27L, 72L, 110L, 134L, 189L, 227L, 258L, 303L, 332L, 376L, 402L, 443L, 490L, 518L, 567L, 611L, 634L, 666L, 713L, 750L, 785L, 820L, 868L, 908L, 944L, 1014L, 1016L, 1055L, 1105L, 1164L, 1191L, 1242L, 1284L, 1319L, 1332L, 1397L, 1423L, 1460L, 1510L, 1552L, 1581L, 1628L, 1659L, 1712L, 1720L, 1785L, 1798L, 1852L, 1895L, 1944L, 1986L, 2026L, 2044L, 2085L, 2144L, 2166L, 2214L, 2227L, 2298L, 2318L, 2351L, 2386L, 2452L, 2474L, 2511L), class = "data.frame")