使用 R 中的 abline 函数具有不同颜色的直方图

Question

我想用不同的颜色和图例绘制直方图。

假设以下数据：

df1<- rnorm(300,60,5)

我使用以下代码来获取直方图和使用 abline 函数的线条：

df1<-data.frame(df1)
attach(df1)
hist(M,at=seq(0,100, 2))
abline(v=80, col="blue")
abline(v=77, col="red")
abline(v=71, col="red")
abline(v=68, col="blue")
abline(v=63, col="blue")
abline(v=58, col="blue")
abline(v=54, col="blue")
abline(v=51, col="blue")
abline(v=457, col="blue")

现在我想得到以下情节。我想删除这些线条，但我无法做到。所以我不需要有线条。

Answer 1

这是使用ggplot2、dplyr 和tidyr 的一种方法。

首先您需要设置颜色。我用mutate 和case_when 做到这一点。对于绘图本身，重要的是要记住，如果直方图箱未对齐，您可以在同一条柱上获得不同的颜色。为避免这种情况，您可以使用binwidth=1。

library(ggplot2)
library(dplyr)
library(tidyr)

df1 <- data.frame(data1=rnorm(300,60,5))
df1 <- df1 %>%
  mutate(color_name=case_when(data1<60              ~ "red",
                              data1>=60 & data1 <63 ~ "blue",
                              TRUE                  ~ "cyan")) 

ggplot(df1,aes(x=data1, fill=color_name)) +
  geom_histogram(binwidth = 1, boundary = 0, position="dodge") +
  scale_fill_identity(guide = "legend")

评论中的其他请求

使用case_when 四种颜色：

df1 <- data.frame(data1=rnorm(300,60,5))
df1 <- df1 %>%
  mutate(color_name=case_when(data1<60              ~ "red",
                              data1>=60 & data1 <63 ~ "blue",
                              data1>=63 & data1 <65 ~ "orange",
                              TRUE                  ~ "cyan")) 
ggplot(df1,aes(x=data1, fill=color_name)) +
  geom_histogram(binwidth = 1, boundary = 0, position="dodge") +
  scale_fill_identity(guide = "legend")