Shading в барах в BarChart в R

Question

я использую этот код, чтобы сделать перекрывающийся гистограмму в R.

#Random numbers 
h2<-rnorm(1000,4) 
h1<-rnorm(1000,6) 

# Histogram Colored (blue and red) 
hist(h1, col=rgb(1,0,0,0.5),xlim=c(0,10), ylim=c(0,200), main="Overlapping Histogram”, xlab="Variable”) 
hist(h2, col=rgb(0,0,1,0.5), add=T) 
box() 

Этот код производит этот сюжет:

overlapping histogram

Что я имею пытался выяснить, как я могу заставить тьму баров соответствовать значениям в моих данных. Другими словами, для переменной «h1», как я могу сделать большие значения, есть более темные цветные полосы?

Спасибо!

Answer 1

Было бы намного легче сделать, используя ggplot2. Но вы также можете попробовать сделать это следующим образом:

#Random numbers 

set.seed(11235) 

h1 <- rnorm(1000, 6) 
h2 <- rnorm(1000, 4) 

# Histogram Colored (blue and red), alpha value corresponds to freq. 

hist(h1, 
    col=rgb(1, 0, 0, hist(h1, plot = F)$density), 
    xlim = c(0, 10), 
    ylim = c(0, 200), 
    xlab='Variable', 
    main='Overlapping Histogram' 
    ) 
hist(h2, col = rgb(0, 0, 1, hist(h2, plot = F)$density), add = T) 
box() 

# Histogram Colored (blue and red), alpha value corresponds 
# to variable value. 

mynorm <- function(x){ 
    return((x-min(x))/(max(x)-min(x))) 
} 
hist(h1, 
    col=rgb(1, 0, 0, mynorm(hist(h1, plot = F)$mids)), 
    xlim = c(0, 10), 
    ylim = c(0, 200), 
    xlab='Variable', 
    main='Overlapping Histogram' 
) 
hist(h2, col = rgb(0, 0, 1, mynorm(hist(h2, plot = F)$mids)), add = T) 
box() 

Таким образом, вы просто использовать частоты | переменные-значения в качестве альфа-значений в RGB-цвета Спецификация.