гистограмма со стеком и рядом в г

Question

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

Вот данные икод, с которым я играл:

brown <- c(5,4,3)
green <- c(4,7,8)
blue <- c(4,7,2)
dark <- data.frame(brown=brown, green=green, blue=blue)
barplot( as.matrix(t(dark)), col = c("brown", "green", "blue"), beside = TRUE)

brownL <- c(3,1,2)
greenL <- c(2,2,4)
blueL <- c(3,2,1)
light <- data.frame(brownL =brownL, greenL =greenL, blueL =blueL)
barplot( as.matrix(t(light)), col = c("pink", "lightgreen", "lightblue"), add=TRUE)

Есть ли решение для базового R для этого?

Answer 1

Вам нужно сделать одну добавку к сюжету и нарисовать поверх нее темный цвет.

brown <- c(5, 4, 3)
green <- c(4, 7, 8)
blue <- c(4, 7, 2)
dark <- data.frame(brown = brown, green = green, blue = blue)

brownL <- c(3, 1, 2)
greenL <- c(2, 2, 4)
blueL <- c(3, 2, 1)
light <- data.frame(brownL = brownL, greenL = greenL, blueL = blueL)

barplot(as.matrix(t(light + dark)),col = c("pink", "lightgreen", "lightblue"), beside = TRUE)
barplot(as.matrix(t(dark)), col = c("brown", "green", "blue"), beside = TRUE, add = TRUE)

Answer 2

Попробуйте это:

barplot( as.matrix(t(dark)), col = c("brown", "green", "blue"), beside = TRUE)
barplot( as.matrix(t(light)),col = c("pink", "lightgreen", "lightblue"), beside = TRUE, add=TRUE)