如何在R中绘制具有不同颜色的直方图

Question

我在csv文件中有一个大约500个整数值的数据集，每个值在50-89之间。我试图在R中创建一个直方图，其中代表值50-65的条形是青铜色，66-74银和75-89金。我到目前为止的脚本如下：

dat1 <- read.csv("test2.csv", header=F)$V1
hist(dat1, main="Distribution of Player Ratings", xlim = c(0,99), breaks=c(seq(40,99,5)))

test2.csv的样本如下所示（非常简单）

69,
68,
67,
65,
65,
62,
59,
59,
54,

现在我的图表是（对不起，我是新的，所以我没有10个代表点） -

My Graph

为了达到前面解释的颜色指南，我需要做些什么？

注意 - 我之前发布过这个问题，但没有任何代码或我的数据集参考。

Answer 1

您需要在col方法中添加hist个参数，如下所示：

t<- c(69,68,67,65,65,62,59,59,54)
hist(t, main="Distribution of Player Ratings",xlim = c(0,99), 
       breaks=c(seq(40,99,5)), col = c("blue", "red", "gray", "green"))

见上面执行后我得到的图像：

现在您可以根据您的要求替换颜色值（名称或十六进制值，如＆＃34;＃FFFF00＆＃34;）。

Answer 2

在您之前的问题中，您提到了ggplot2，因此这里有一个ggplot2解决方案：

首先模拟您的数据集：

set.seed(123)
df <- data.frame(X = sample(50:89, 500, replace = T))

添加一个定义颜色标准的新变量：

df$group = ifelse(df$X < 66, "50-65", ifelse(df$X < 75, "66-74", "75-89"))

现在，加载ggplot2库以创建直方图

library(ggplot2)

ggplot(df, aes(X, fill = group)) + geom_histogram()

要提供自定义颜色，请使用scale_fill_manual：

ggplot(df, aes(X, fill = group)) + geom_histogram() +
    scale_fill_manual(values = c("50-65" = "#CD7F32",
                                 "66-74" = "#C0C0C0",
                                 "75-89" = "gold"))

这就是现在这个数字的样子：

虽然你包括了xlim = c(0,99)（在附图中看不到），但我不知道你为什么会这样做。如果您愿意，可以使用xlim添加+ xlim(0,99)参数。

要详细了解ggplot2，请查看here。

注意：您可以在geom_histogram中定义容器数或binwidth数。请参阅this了解更多