Barplot使用Lattice Package for VADeaths内置数据集

Question

我目前正在Katakoda培训中进行R可视化。我坚持一个阻碍我继续前进的问题。

下面是一个问题：将内置数据集VADeath转换为带有3列的dataframe-table VADeathRate（第1个：范围，第2个：个体类型，第3个：频率）。 [不要重命名列名。它们将默认为var1，var2，Freq]使用数据框 - VADeathRate根据Var1，Freq创建条形图。基于Var2拆分布局并将其绘制在相同的单行布局上。

我试着查看手册和课程资料。要么我没有正确理解这个问题，要么就是我遗漏了一些东西。我写的代码是：

require(lattice) 
VADeathRate <- as.data.frame.table(VADeaths)
barchart(Freq ~ Var1 | Var2,data = VADeathRate,layout= 
(c(4,1)),xlab="Age Group",ylab="Frequency",col=c(1,2,3,4,5))

Output from R Studio

Answer 1

经过多次反复试验，我得出了答案：

library(lattice)  VADeathRate <- as.data.frame.table(VADeaths)
barchart(Var1 ~ Freq | Var2, data = VADeathRate,
         groups = Var2, main = "Bar Chart in R EXample",
         ylab = "Var1",  stack = TRUE,
         auto.key = list(space = "right"),
         scales = list(x = list(rot = 45)),
         layout = c(4,1))