基于this question构建:
有没有一种方法可以创建一个直方图网格,其中的柱在任意值之上和之下的颜色不同(没有重叠的柱),而不需要参考ggplot()之外的环境?我可以用一个直方图来实现这一点,如下所示(使用中值作为说明):
set.seed(123)
value = stats::rnorm(100, mean = 0, sd = 1)
df = data.frame(value)
df %>%
{
ggplot(data = ., aes(x = value, fill = ifelse(value > median(value), "0", "1"))) +
geom_histogram(boundary = median(.$value), alpha = 0.5, position = "identity") +
theme(legend.position = "none")
}
根据分组变量,每个图使用不同的值,这可以对多面图进行吗?例如,这不起作用:
set.seed(456)
value = stats::rnorm(200, mean = 0, sd = 1)
group = c(rep(1,100), rep(2,100))
df = data.frame(value, group)
df %>%
dplyr::mutate(value = ifelse(group == 2, value + 1, value)) %>%
dplyr::group_by(group) %>%
dplyr::mutate(above_median = value > median(value)) %>%
{
ggplot(data = ., aes(x = value, fill = above_median)) +
facet_grid(rows = group) +
geom_histogram(boundary = median(.$value), alpha = 0.5, position = "identity") +
theme(legend.position = "none")
}
2条答案
按热度按时间f87krz0w1#
一种选择是使用多个
geom_histogram
图层添加直方图,即按组拆分数据,然后使用lapply
为每个组添加一个geom_histogram
:yi0zb3m42#
这就是我解决这个问题的方法,但是@stefan的答案更好(+1),
创建于2023年3月16日,使用reprex v2.0.2