小编Leo*_*Leo的帖子

我有一个相当大的(大约10万个观测值)数据集,类似于:

data <- data.frame(
                 ID = seq(1, 5, 1),
                 Values = c("1,2,3", "4", " ", "4,1,6,5,1,1,6", "0,0"), 
                 stringsAsFactors=F)
data
  ID        Values
1  1         1,2,3
2  2             4
3  3              
4  4 4,1,6,5,1,1,6
5  5           0,0

我想通过向值列拆分","与NA遗漏细胞:

ID v1 v2 v3 v4 v5 v6 v7
1  1  2  3  NA NA NA NA
2  4  NA NA NA NA NA NA
3  NA NA NA NA NA NA NA
4  4  1  6  5  1  1  6 …

我已经得到了聚类的结果,并决定使用晶格为每个聚类制作一个箱形图.接下来,我面临着建立所有集群箱图可接受的规模的需求.

找到一个解决方案,允许排除异常值并设置自由关系.

library(lattice)
trellis.device(new=FALSE, col=FALSE)

bwplot(value ~ variable | Cluster, data = test, 
       layout = c(2,2), 
       prepanel = function(x, y) {
               bp <- boxplot(split(y, x), plot = FALSE)
               ylim <- range(bp$stats)
               list(ylim = ylim) },
       scales = list(y = list(relation = "free")),
       do.out = F)

所以,我有很好的情节,但如果我手动设置每个情节的ylim,它会更好.例如,我的数据中只有整数值,而左上方群集图中的值0.5则没有意义.

那么,有没有办法在bwplot参数中设置多个ylims？