Specific spaces between bars in a barplot - ggplot2 - R

Question

I have a simple bargraph like the following

a<-data.frame(x=c(\"total\",\"male\",\"female\",\"low education\",
            \"mid education\",\"high educ         


        

Answer 1

a<-data.frame(x=c("total","male","female","low education","mid education","high education","working","not working"),y=c(80,30,50,20,40,20,65,35))
a$x<-as.character(a$x)
a$x<-factor(a$x,levels=unique(a$x))

a$rel = c("a", "a", "a", "b", "b", "b", "c", "c") # set groups
ggplot(a, aes(rel, y, fill = factor(x))) + 
  geom_bar(stat = "identity", width = 0.5, position = position_dodge(0.7))

Answer 2

If you are specifying scale_x_discrete (or y) you can simply add in a "" wherever you want a space to appear in the limits and labels statements. This is similar to the first answer but you don't have to add zero values to your dataset.

e.g. This dataset only has 8 bars but they are grouped into two groups of four.

scale_x_discrete( limits=c("BMayC","UMayC","BMayN","UMayN","","BJuneC","UJuneC","BJuneN","UJuneN"), labels=c("BMayC","UMayC", "BMayN","UMayN","","BJuneC","UJuneC","BJuneN","UJuneN"))

Answer 3

I don't know of a way to set different distances between bars in a barplot. However, you can add bars with height 0 and no label between the groups as follows:

a<-data.frame(x=c("total","a","male","female","b","low education",
                  "mid education","high education","c","working","not working"),
              y=c(80,0,30,50,0,20,40,20,0,65,35))
a$x<-factor(a$x,levels=unique(a$x))


ggplot(a,aes(x,y)) + 
   geom_bar(stat="identity",fill="orange",width=0.4) +
   coord_flip() +
   theme_bw() +
   scale_x_discrete(breaks=a$x[nchar(as.character(a$x))!=1])

Some remarks:

• a$x is a character from the start, so there is no need to call as.character on it.
• It only works, if the each "empty" bar has a different label. That's why I chose three different letters.
• scale_x_discrete is used to suppress the labels and tick marks.

The result looks as follows: