我正在制作一个相当广泛的图像,列出目标练习的连续培训课程。
目前,这不是很有帮助的图形,我需要将图像包裹成几行,以使每个训练集的数据更加可见。到目前为止,我一直在通过引入第二个变量来管理这个,该变量表示训练集所属的行。缺点是现在我在每一行上方都有一个条带,几乎没有任何用途。
这样做的另一种方法是将每一行生成为一个单独的图形并使用gridExtra
's合并它们grid.arrange
。
我正在寻找其他(优雅的)方法将宽图形包装到多行。如果可能的话,我希望在每个方面都没有条带。欢迎所有建议。
这是我用来生成这些图像的代码。
library(ggplot2)
library(reshape2)
st <- 23 # number of training sets
sk <- 10 # number of shots per training set
dt <- sample(7:10, size = st * sk, prob = c(0.005, 0.15, 0.195, 0.65), replace = TRUE)
rslt <- as.data.frame(matrix(dt, nrow = 10))
names(rslt) <- paste("trening", seq_len(ncol(rslt)), sep = "")
rsltm <- melt(rslt, variable.name = "trening", value.name = "rezultat")
rsltm$trening <- ordered(rsltm$trening)
n <- 5 # number of trainings per row
st.vrst <- round(st/n)
vrsta <- paste("vrsta", seq_len(st.vrst), sep = "")
rsltm$vrsta <- rep(vrsta, each = sk * n, length.out = nrow(rsltm))
rm(vrsta)
# wide figure
ggplot(rsltm, aes(x = trening, y = rezultat)) +
geom_dotplot(binaxis = "y", stackdir = "center", show_guide = FALSE) +
scale_fill_manual(values = rep("red", st)) +
theme_bw()
# wrapped figure
ggplot(rsltm, aes(x = trening, y = rezultat, fill = trening)) +
geom_dotplot(binaxis = "y", stackdir = "center", show_guide = FALSE) +
scale_fill_manual(values = rep("red", st)) +
facet_wrap(~vrsta, nrow = st.vrst, scales = "free_x") +
theme_bw()