Технически, у вас есть черная рамка вокруг каждого бара.Однако для каждого cut
у вас есть множество баров, по одному для каждого значения carat
.Если то, что вы хотите, это черная граница вокруг каждой стопки баров, то я бы порекомендовал построить сначала с рамкой, а затем без границы:
diamonds %>%
select(carat, cut) %>%
distinct() %>%
ggplot() +
geom_bar(aes(x=factor(cut), y=factor(carat)),
stat = "identity", color = "black", size = 1) +
geom_bar(aes(x=factor(cut), y=factor(carat), fill=factor(carat)),
stat = "identity") +
theme(legend.position = "none")
Дает: