Update: I'm still working on this; the root problem is that Order 9 & 10 have too many occurrences to distinguish by a discrete color palette. Next, I am going to be dividing those with the goal of creating facet_wraps by each for each Order.
Hi, thanks for the data and code. There's just a touch more to make it into a full-fledged reprex below. This is going to require more tinkering that I can do before I head off to bed here in Seattle, WA USA. I'll try to get back to it tomorrow. If it falls off my radar, just edit your post a little.
I like the small interval in the screenshot. I think that a lighter color palette will improve legibility. The compressed stacking may require something like a log transform to open up is my preliminary guess.
suppressPackageStartupMessages(library(ggplot2))
suppressPackageStartupMessages(library(scales))
kazex <-
structure(
list(
YEAR = c(
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L
),
Product = c(
"Petroleum oils or bituminous minerals > 70 % oil",
"Petroleum oils, oils from bitumin. materials, crude",
"Other crude minerals",
"Residual petroleum products, n.e.s., related mater.",
"Petroleum gases, other gaseous hydrocarbons, n.e.s.",
"Ball or roller bearings",
"Pig iron & spiegeleisen, sponge iron, powder & granu",
"Flat-rolled prod., iron, non-alloy steel, coated, clad",
"Flat-rolled products of alloy steel",
"Iron ore and concentrates",
"Ferrous waste, scrape; remelting ingots, iron, steel",
"Sulphur and unroasted iron pyrites",
"Flat-rolled prod., iron, non-alloy steel, not coated",
"Ingots, primary forms, of iron or steel; semi-finis.",
"Copper",
"Ores and concentrates of base metals, n.e.s.",
"Copper ores and concentrates; copper mattes, cemen",
"Manufactures of base metal, n.e.s.",
"Aluminium ores and concentrates (incl. alumina)",
"Gold, non-monetary (excluding gold ores and concentrates)",
"Meal and flour of wheat and flour of meslin",
"Wheat (including spelt) and meslin, unmilled",
"Zinc",
"Radio-actives and associated materials",
"Natural gas, whether or not liquefied",
"Electrical machinery & apparatus, n.e.s.",
"Aircraft & associated equipment; spacecraft, etc.",
"Tubes, pipes & hollow profiles, fittings, iron, steel",
"Coal, whether or not pulverized, not agglomerated",
"Residual petroleum products, n.e.s., related mater.",
"Petroleum oils or bituminous minerals > 70 % oil",
"Petroleum gases, other gaseous hydrocarbons, n.e.s.",
"Petroleum oils, oils from bitumin. materials, crude",
"Other crude minerals",
"Iron ore and concentrates",
"Ferrous waste, scrape; remelting ingots, iron, steel",
"Sulphur and unroasted iron pyrites",
"Pig iron & spiegeleisen, sponge iron, powder & granu",
"Flat-rolled prod., iron, non-alloy steel, not coated",
"Ingots, primary forms, of iron or steel; semi-finis.",
"Ball or roller bearings",
"Flat-rolled prod., iron, non-alloy steel, coated, clad",
"Flat-rolled products of alloy steel",
"Copper",
"Meal and flour of wheat and flour of meslin",
"Wheat (including spelt) and meslin, unmilled",
"Gold, non-monetary (excluding gold ores and concentrates)",
"Copper ores and concentrates; copper mattes, cemen",
"Manufactures of base metal, n.e.s.",
"Non-ferrous base metal waste and scrap, n.e.s.",
"Aluminium ores and concentrates (incl. alumina)",
"Ores and concentrates of base metals, n.e.s.",
"Radio-actives and associated materials",
"Natural gas, whether or not liquefied",
"Electrical machinery & apparatus, n.e.s.",
"Tubes, pipes & hollow profiles, fittings, iron, steel",
"Aircraft & associated equipment; spacecraft, etc.",
"Coke & semi-cokes of coal, lign., peat; retort carbon",
"Coal, whether or not pulverized, not agglomerated",
"Liquefied propane and butane"
),
Export = c(
1372686.455,
28125875.547,
81225.326,
279972.276,
33444.216,
96351.945,
1420761.85,
577914.585,
39790.575,
795650.888,
338749.019,
69763.087,
1030047.529,
327587.704,
2774753.829,
531876.982,
260366.854,
56920.456,
522493.466,
398898.941,
339222.406,
1170506.955,
1009023.697,
861280.967,
654776.104,
52598.13,
457163.028,
87312.682,
521783.504,
454573.286,
2002937.83,
50796.22,
43507922.969,
89414.102,
1279154.553,
585401.581,
513796.315,
2964476.143,
1327554.009,
630899.019,
115137.85,
695107.821,
50662.589,
2865999.942,
848429.826,
1458779.922,
554942.736,
357477.454,
72236.755,
47963.24,
493559.983,
754220.01,
1306960.584,
1083496.265,
52958.24,
192728.295,
703945.229,
68421.85,
842247.145,
844174.512
),
Product2 = c(
"Petroleum",
"Petroleum",
"Petroleum",
"Petroleum",
"Petroleum",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Copper",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Wheat_Flour",
"Wheat_Flour",
"Zinc",
"Radioactives",
"Natural_Gas",
"Machinery",
"Machinery",
"Machinery",
"Coal",
"Petroleum",
"Petroleum",
"Petroleum",
"Petroleum",
"Petroleum",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Iron_Steel",
"Copper",
"Wheat_Flour",
"Wheat_Flour",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Ores_metals",
"Radioactives",
"Natural_Gas",
"Machinery",
"Machinery",
"Machinery",
"Coal",
"Coal",
"LPG"
),
Export2 = c(
29893203.82,
29893203.82,
29893203.82,
29893203.82,
29893203.82,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
4696617.182,
2774753.829,
1770556.699,
1770556.699,
1770556.699,
1770556.699,
1770556.699,
1509729.361,
1509729.361,
1009023.697,
861280.967,
654776.104,
597073.84,
597073.84,
597073.84,
521783.504,
46105644.407,
46105644.407,
46105644.407,
46105644.407,
46105644.407,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
8162189.88,
2865999.942,
2307209.748,
2307209.748,
2280400.178,
2280400.178,
2280400.178,
2280400.178,
2280400.178,
2280400.178,
1306960.584,
1083496.265,
949631.764,
949631.764,
949631.764,
910668.995,
910668.995,
844174.512
),
Order = c(
10L,
10L,
10L,
10L,
10L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
8L,
7L,
7L,
7L,
7L,
7L,
6L,
6L,
5L,
4L,
3L,
2L,
2L,
2L,
1L,
10L,
10L,
10L,
10L,
10L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
9L,
8L,
7L,
7L,
6L,
6L,
6L,
6L,
6L,
6L,
5L,
4L,
3L,
3L,
3L,
2L,
2L,
1L
)
),
row.names = c(NA,-60L),
class = c("grouped_df",
"tbl_df", "tbl", "data.frame"),
groups = structure(
list(
YEAR = c(
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2007L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L,
2008L
),
Product2 = c(
"Coal",
"Copper",
"Iron_Steel",
"Machinery",
"Natural_Gas",
"Ores_metals",
"Petroleum",
"Radioactives",
"Wheat_Flour",
"Zinc",
"Coal",
"Copper",
"Iron_Steel",
"LPG",
"Machinery",
"Natural_Gas",
"Ores_metals",
"Petroleum",
"Radioactives",
"Wheat_Flour"
),
.rows = list(
29L,
15L,
6:14,
26:28,
25L,
16:20,
1:5,
24L,
21:22,
23L,
58:59,
44L,
35:43,
60L,
55:57,
54L,
47:52,
30:34,
53L,
45:46
)
),
row.names = c(NA,-20L),
class = c("tbl_df", "tbl", "data.frame"),
.drop = TRUE
)
)
ggplot(kazex,
aes(
x = Order,
y = Export2 / 1000000,
fill = Product,
colour = Product2
)) +
geom_bar(stat = "identity") + coord_flip() +
facet_wrap( ~ YEAR, scales = "free", drop = T) +
theme(legend.position = "none") +
geom_text(
aes(label = Product2),
angle = 0,
vjust = .3,
hjust = -.1,
size = 3
) +
scale_y_continuous(limits = c(0, 350))

Created on 2020-04-09 by the reprex package (v0.3.0)