Настройка эстетики граненой гистограммы

редактировать: полное обновление, включая информацию из другого ответа, после получения данных (и сохранения их в текстовом файле с именем mlbtmp.txt) и еще нескольких экспериментов:

selection <- read.table("mlbtmp.txt",skip=1)
names(selection) <- c("row","League","Division","Position","Team")
## arrange order/recode factors
selection <- transform(selection,
       Team=factor(Team,levels=rev(levels(Team))),
                   Position=factor(Position,levels=c("P","I","C","O"),
                                  labels=c("Pitching","Infield",
                                    "Center","Outfield")))

Я поиграл с различными перестановками facet_grid, facet_wrap, scales, coord_flip и т. д. Некоторые работали, как и ожидалось, некоторые нет:

library(ggplot2)
p <- ggplot(data=selection, aes(x=Team, fill= Position))  +
  geom_bar(position="stack")
p + facet_grid(.~Division,scales="free_x") + coord_flip()  ## OK

## seems to fail with either "free_x" or "free_y"
p + facet_grid(Division~.,scales="free") + coord_flip()

## works but does not preserve 'count' axis:
p + facet_wrap(~Division,scales="free")

Я закончил с facet_wrap(...,scales="free") и использовал ylim для ограничения осей.

p + facet_wrap(~Division,scales="free") + coord_flip() +
  ylim(0,60) + opts(axis.text.y=theme_text(hjust=0))

В принципе, можно было бы использовать ..density.., ..ncount.., ..ndensity.. или любую другую статистику, вычисляемую stat_bin, вместо ..count.. по умолчанию, но я не смог найти подходящей комбинации.

Вместо этого (что часто является лучшим решением, когда вы застряли с преобразованиями «на лету» ggplot) я сам изменил данные:

## pull out Team identification within Division and League
stab <- unique(subset(selection,select=c(Team,Division,League)))
## compute proportions by team
s2 <- melt(ddply(selection,"Team",function(x) with(x,table(Position)/nrow(x))))
## fix names
s2 <- rename(s2,c(variable="Position",value="proportion"))
## merge Division/League info back to summarized data
s3 <- merge(s2,stab)

p2 <- ggplot(data=s3, aes(x=Team, fill= Position,y=proportion))  +
  geom_bar(position="stack")+scale_y_continuous(formatter="percent")+
  geom_hline(yintercept=0.5,linetype=3)+ facet_wrap(~Division,scales="free") +
  opts(axis.text.y=theme_text(hjust=0))+coord_flip()

Очевидно, что здесь можно было бы сделать немного больше прикрас, но это должно помочь вам в этом...

Заполнение некоторых пробелов в ответе @Ben Bolker...

Чтобы упорядочить команды по-разному, вам нужно сохранить этот столбец как фактор. Вероятно, не будет короткого и быстрого способа указать желаемый порядок, поскольку вы, скорее всего, захотите упорядочить команды в каждом дивизионе отдельно. Это означает, что вам нужно упорядочить все команды таким образом, чтобы каждое подмножество подразделений оставалось правильно упорядоченным. Что-то вроде (это схематично, не синтаксически правильно):

selection$Team <- factor(selection$Team,
    levels=c( (AL East teams in desired order), 
              (AL Central teams in desire order), etc))

В зависимости от того, какие другие данные вы рассчитали, может быть быстрый способ указать это, или вам, возможно, придется записать их вручную.

Выравнивание текста оси можно изменить с помощью

opts(axis.text.x=theme_text(hjust=1))

Немного отступив назад, обратите внимание, что с ggplot2 решение часто находится путем изменения ваших данных, которые используются для построения графика, а не самого графика. Это другой способ думать о вещах, но удобный, когда вы к нему привыкнете.