ggplot2 facet_wrap: используйте только метки оси x, существующие в каждой группе

У меня есть следующий набор данных:

subj <- c(rep(11,3),rep(12,3),rep(14,3),rep(15,3),rep(17,3),rep(18,3),rep(20,3))
group <- c(rep("u",3),rep("t",6),rep("u",6),rep("t",6))
time <- rep(1:3,7)
mean <- c(0.7352941, 0.8059701, 0.8823529, 0.9264706, 0.9852941, 0.9558824, 0.7941176, 0.8676471, 0.7910448, 0.7058824, 0.8382353, 0.7941176, 0.9411765, 0.9558824, 0.9852941, 0.7647059, 0.8088235, 0.7968750, 0.8088235, 0.8500000, 0.8412698)
df <- data.frame(subj,group,time,mean)
df$subj <- as.factor(df$subj)
df$time <- as.factor(df$time)

И теперь я создаю гистограмму с помощью ggplot2:

library(ggplot2)
qplot(x=subj, y=mean*100, fill=time, data=df, geom="bar",stat="identity",position="dodge") +
   facet_wrap(~ group)

введите здесь описание изображения

Как сделать так, чтобы метки оси x, которых нет в каждой грани, не отображались? Как мне получить равные расстояния между каждым subj (т.е. избавиться от больших промежутков)?


r plot ggplot2 axis-labels facet-wrap
person absurd    schedule 05.07.2015    source источник

Ответы (1)


arrow_upward
17
arrow_downward

Вы можете использовать scale="free":

ggplot(df, aes(x=subj, y=mean*100, fill=time)) +
  geom_bar(stat="identity", position="dodge") +
  facet_wrap(~ group, scale="free")

введите здесь описание изображения

Еще один вариант с немного другой эстетикой, использующий facet_grid. В отличие от графиков выше, здесь панели имеют разную ширину, но из-за "space="free_x" столбцы имеют одинаковую ширину.

ggplot(df, aes(x=subj, y=mean*100, fill=time)) +
  geom_bar(stat="identity", position="dodge") +
  facet_grid(~ group, scale="free", space="free_x")

введите здесь описание изображения

person Jota    schedule 05.07.2015
comment
Благодарю вас! Второе решение даже лучше для моих нужд. - person absurd; 06.07.2015