cut
。ggplot(mtcars, aes(x = as.factor(cyl))) +
geom_bar(aes(fill = cut(stat(count), breaks = c(0, 8, 12, Inf)))) +
labs(fill = "Breaks")
显然,您需要根据您的需求/数据调整断点。
编辑
如果我们使用 geom_col
而不是 geom_bar
,我们需要将 fill = stat(count)
更改为 fill = value_column
(无论 value_column
是什么,但应与我们映射到 y
的列相同)。
例如:
df <- data.frame(trt = c("a", "b", "c"), outcome = c(2.3, 1.9, 3.2))
ggplot(df, aes(trt, outcome)) +
geom_col(aes(fill = cut(outcome, breaks = c(0, 2, 3, Inf)))) +
labs(fill = "Breaks")
cat
命令。 - Rui Barradas