Есть ли способ построить несколько категориальных переменных Y в одном графике с одинаковой категориальной переменной X?

Question

В моем наборе данных переменная x является категориальной переменной, называемой «Агентство», которая имеет 3 переменные.Я пытаюсь построить несколько переменных Y под названием «Ограничение 1, Ограничение 2, ... Ограничение7», чтобы создать один график, который содержит все переменные y и переменную x внизу.Ниже приведен пример кода, который я использовал для получения отдельных гистограмм, но есть ли код, который позволяет мне объединить результаты всех 7 категориальных переменных Y в один макет?

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

counts7 <- table(dataset$Limitation1, dataset$Agency)

barplot(counts7,main="Limitation1 and Agency",                                                                                  
    xlab="HTA Agency", col=c("darkgrey","black")                                
    legend = rownames(counts), beside=TRUE)

Answer 1

Это поможет получить ваши данные и, возможно, более подробное объяснение того, что вы хотите, но здесь мы используем слегка измененную версию встроенного набора данных airquality. Использование melt() из reshape2 для преобразования из широкого в длинное представление (значительно упрощает табулирование) и barchart() из lattice для создания многоходового графика.

library(lattice)
library(reshape2)

airq <- airquality[, -6]
airq[,1:4] <- lapply(airq[,1:4], 
  function(x) cut(x, quantile(x, na.rm=TRUE), labels=1:4))

airq.tab <- table(melt(airq, id.vars="Month"))

barchart(airq.tab, stack=FALSE, layout=c(1, 4), horizontal=FALSE, xlab="Month")