有没有办法在同一张图中绘制具有相同分类X变量的多个分类Y变量？

Question

在我的数据集中，x变量是一个名为“ Agency”的分类变量，它具有3个变量。我正在尝试绘制多个名为“限制1，限制2，...限制7”的Y变量，以制作一个包含所有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")