r - R - 从格子改变 bwplot 上的箱线图

Question

我的任务是将使用图形包的代码更改为具有相同结果的bwplotfrom包。lattice

箱形图：

par(mai = c(1, 1, 1, 1), omi = c(0, 0, 0, 0))
set.seed(591)
xx1 <- rnorm(20, mean = 3, sd = 3.6)
xx2 <- rpois(40, lambda = 3.5)
xx3 <- rchisq(31, df = 5, ncp = 0)
box1 <- boxplot(xx1, xx2, xx3, names = c("Group-1", "Group-2", "Group-3"), cex = 0.7)

不幸的是，当我尝试更改它时，我无法将这 3 个图插入 1 个图表中。到目前为止我所做的一切：

library(lattice)
bwplot(xx1,ylab="Group-1")
bwplot(xx2,ylab="Group-2")
bwplot(xx3,ylab="Group-3")

Answer 1

您可以使用以下代码使用lattice包来执行此操作

library(dplyr)
df1 <- data.frame(xx1, levels ="Group-1")
df2 <- data.frame(xx2, levels ="Group-2")
df3 <- data.frame(xx3, levels ="Group-3")
colnames(df1) <- c("Data","Group")
colnames(df2) <- c("Data","Group")
colnames(df3) <- c("Data","Group")

df <- bind_rows(df1,df2,df3)

bwplot(Data~Group,df)