如何可視化數字列表？

Question

我的號碼清單：

vector = c(0.1, 0.25, 0.1, 0.05, 0.05, 0.15, 0.15, 0.15) 

我希望顯示這個列表如下。我想繪製一個帶有8個內部小方框的矩形框，每個方框都用與列表中相關數值相關的RGB值填充顏色。例如，R = 0，G = 0，並且B = value_from_list。

Answer 1

library(ggplot2) 
myVector <- c(0.1, 0.25, 0.1, 0.05, 0.05, 0.15, 0.15, 0.15) 
ggplot(data.frame(x = 1:8, y = 0), aes(x, y)) + 
    geom_tile(fill = rgb(0, 0, myVector)) + 
    coord_fixed() + 
    theme_void() 

Answer 2

#DATA 
mylist = c(0.1, 0.25, 0.1, 0.05, 0.05, 0.15, 0.15, 0.15) 

L = length(mylist) 

#create empty plot 
plot(c(1, L+1, L+1, 1), y = c(0, 0, 1, 1), type = "l", ann = FALSE, axes = FALSE, asp = 1) 

#draw polygons 
sapply(1:L, function(i) 
    polygon(x = c(i, i+1, i+1, i), 
      y = c(0, 0, 1, 1), 
      col = rgb(red = 0, green = 0, blue = mylist[i])))