Присвойте цвета значениям и постройте горизонтальные полосы в R - PullRequest
Новая
       28

Присвойте цвета значениям и постройте горизонтальные полосы в R

0 голосов
/ 04 марта 2019

с фреймом данных из 3 столбцов, я хотел бы назначить цвет "красный" для значений ниже 19,293 и "синий" для значений выше 19,293.

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

Ниже приведены значения во фрейме данных 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.

До сих пор я использовал barplot(), и он выводит суммированные значения вместо диапазона , используя следующий код: 

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

Как мне поступитьо графике диапазона значений для hmin1-3 и цветового кодирования их на основе первого предложения в этом вопросе?

Любая помощь будет признательна.Спасибо.

1 Ответ

0 голосов
/ 04 марта 2019

Вы можете получить нужные диапазоны, используя функцию 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

Когда у вас есть это, вы можете получить искомые диаграммы, сделав пустой график, а затем нанеся несколько прямоугольников. 

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")
}

Two-sided barplot

...