R - 從格子改變 bwplot 上的箱線圖

Question

我的任務是將使用圖形 package 的代碼更改為來自lattice package 的bwplot代碼，結果相同。

箱形圖：

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 package

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)