Сюжет коробки, двигайте коробки ближе друг к другу - PullRequest
Новая
       6

Сюжет коробки, двигайте коробки ближе друг к другу

0 голосов
/ 07 июня 2018

Я сделал коробочную диаграмму геометрическими средствами со следующим кодом 

bp.vals <- function(x, probs=c(0.05, 0.25, 0.75, .95)) {
    r <- quantile(x, probs=probs, na.rm=TRUE)
    r = c(r[1:2], exp(mean(log(x))), r[3:4])
    names(r) <- c("ymin", "lower", "middle", "upper", "ymax")
    r
}
ggplot(data_7m, aes(x=factor(BCG), y= IPVtype1_7m, fill=Group, width=0.4)) + 
     scale_fill_manual(values = c("dark grey", "light grey")) +
     stat_summary(fun.data=bp.vals, geom="boxplot", show.legend=F) + 
     labs(x="", y="GMC(IU/mL)")

Я хотел бы переместить боксы ближе друг к другу, но не могу заставить его работать.Я пробовал пробел, положение и функцию par ().

Кто-нибудь знает, как это сделать?
График геометрического среднего

1 Ответ

0 голосов
/ 19 апреля 2019

Вместо воспроизводимого примера увеличьте параметр ширины.Параметр ширины обычно используется с geom_bar (например, geom_bar(stat="identity", width=0.9) и geom_boxplot (geom_boxplot(width=0.9)). 

ggplot(data_7m, aes(x=factor(BCG), y=IPVtype1_7m, fill=Group) + 
     geom_bar(stat="identity", width=0.9) +
     scale_fill_manual(values = c("dark grey", "light grey")) +
     labs(x="", y="GMC(IU/mL)"
...