为值分配颜色并在R中绘制水平条 [英] Assign colours to values and plot horizontal bars in R

问题描述

具有3列的数据帧，我想将颜色红色分配给低于19.293的值，将蓝色分配给高于19.293的值。

with a data frame of 3 columns, i would like to assign the colour "red" to values below 19.293 and "blue" to values above 19.293.

dataframe123 <- data.frame(hmin1, hmin2, hmin3)

以下是数据框
hmin1中的值：

The following are the values in the data frame hmin1:

c(3.93999999999999, 6.13333333333333, 8.12727272727273, 9.94782608695652, 
11.6166666666667, 13.152, 14.5692307692308, 15.8814814814815, 
17.1, 18.2344827586207, 19.2933333333333, 20.2838709677419, 21.2125, 
22.0848484848485, 22.9058823529412, 23.68, 24.4111111111111, 
25.1027027027027, 25.7578947368421, 26.3794871794872, 26.97)

hmin2：

c(17.7688888888889, 17.9866666666667, 18.2044444444444, 18.4222222222222, 
18.64, 18.8577777777778, 19.0755555555556, 19.2933333333333, 
19.5111111111111, 19.7288888888889, 19.9466666666667, 20.1644444444444, 
20.3822222222222, 20.6, 20.8177777777778, NA, NA, NA, NA, NA, 
NA)

hmin3：

c(9.29333333333333, 10.2933333333333, 11.2933333333333, 12.2933333333333, 
13.2933333333333, 14.2933333333333, 15.2933333333333, 16.2933333333333, 
17.2933333333333, 18.2933333333333, 19.2933333333333, 20.2933333333333, 
21.2933333333333, 22.2933333333333, 23.2933333333333, 24.2933333333333, 
25.2933333333333, 26.2933333333333, 27.2933333333333, 28.2933333333333, 
29.2933333333333)

在分配了红色和蓝色之后，我打算将它们水平绘制为3条，其中这些条占据hmin1，hmin2和hmin3值的 范围 。

After assigning "red" and "blue", i intend to plot them as 3 bars horizontally, where the bars take on the range of values of hmin1, hmin2 and hmin3.

到目前为止，我一直在使用 barplot（），并且它输出堆叠值而不是 range ，使用以下代码：

So far, i have been using barplot() and it outputs stacked values instead of the range, using the following code:

dataframe123 <- as.matrix(dataframe123)
barplot(dataframe123, horiz = TRUE)

如何绘制范围 hmin1-3的值并根据此问题的第一句话对它们进行颜色编码？

How do i go about plotting the range of values for hmin1-3 and colour code them based on the first sentence in this question?

任何帮助将不胜感激。谢谢。

Any help would be appreciated. Thank you.

推荐答案

您可以使用 range 功能。

FullRange = range(dataframe123, na.rm=TRUE)
FullRange
[1]  3.94000 29.29333
BoxRanges = lapply(dataframe123, range, na.rm=TRUE)
BoxRanges
$hmin1
[1]  3.94 26.97
$hmin2
[1] 17.76889 20.81778
$hmin3
[1]  9.293333 29.293333

那，您可以通过制作一个空图然后绘制一些矩形来获得所需的条形图。

Once you have that, you can get the barplots that you are looking for by making an empty plot and then plotting some rectangles.

plot(NULL, xlim=FullRange, ylim=c(0,3),  yaxt="n", xlab="Value", ylab="")
abline(v=19.293)
axis(2, at=(0:2)+0.4, labels=c("hmin1", "hmin2","hmin3"), 
    lty=0, las=2)

for(i in 1:3) {
    polygon(c(BoxRanges[[i]][1], BoxRanges[[i]][1], 19.293, 19.293), 
        c(i-1,i-0.2,i-0.2,i-1), col="red")
    polygon(c(19.293, 19.293, BoxRanges[[i]][2], BoxRanges[[i]][2]), 
        c(i-1,i-0.2,i-0.2,i-1), col="blue")
}

这篇关于为值分配颜色并在R中绘制水平条的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！