0

I need to plot the ratios of 2 categories over 4 groups in order of a nice easy understandable comparison.

i did this so far and got 2 plots: 

x <- c(0.50, 0.53, 0.49, 0.47)
names(x) <- c("Mütter über Söhne", "Mütter über Töchter", "Väter über Söhne", 
              "Väter über Töchter")
barplot(x, xlab= "Gruppe", ylab = "Anteil Wörter abstrakt-logisch ", main = 
        "abstrakt-logisch")

x1 <- c(0.51, 0.54, 0.46, 0.49)
names(x1) <- c("Mütter über Söhne", "Mütter über Töchter", "Väter über Söhne", "Väter über Töchter")
barplot(x1, xlab= "Gruppe", ylab = "Anteil Wörter kreativ-verbal ", main = "kreativ-verbal")

I want to compare the ratios of words in 2 categories over 4 groups. so first ratio from category 1 (0.50) compared to first ratio of category 2 (0.51) over the group "Mütter über Söhne". i also need a naming for x-axis = "groups" and y-axis = "ratios of words". it should look something like that:

enter image description here

Can someone help me with that?

Sal-laS
  • 11,016
  • 25
  • 99
  • 169
Laura Ataraxia
  • 11
  • 3
  • Thanks alot!!! this looks great! if theres a way to erase the grid in the backround behind the bars, then it would be perfect. otherwise i can totally use this like that in my masterthesis. – Laura Ataraxia Aug 25 '18 at 12:25
  • @Maurits Evers but i think, my answer was good as well :( – Sal-laS Aug 26 '18 at 14:47

2 Answers2

1

If you are not familiar with ggplot2, you can use this basic way.

x1 <- c(0.50, 0.53, 0.49, 0.47)
x2 <- c(0.51, 0.54, 0.46, 0.49)
group <- c("group1", "group2", "group3", "group4")

plot.new()
plot.window(xlim = c(1, 20), ylim = c(0, 0.6))
abline(h = 0:6/10, col = "grey")
barplot(rbind(x1, x2), beside = T, space = c(0.5, 2), axes = F,
        col = c("grey10", "grey"), xlab = "groups", ylab = "ratios of words",
        names.arg = group, add = T)
legend(x = "topright", legend = c("category 1", "category 2"),
       fill = c("grey10", "grey"), box.col = NA)
mtext(0:6/10, side = 2, at = 0:6/10)

space is specified by two numbers, where the first is the space between bars in the same group, and the second the space between the groups.

enter image description here

Darren Tsai
  • 32,117
  • 5
  • 21
  • 51
  • this is not related what PO has asked. You first need to define the dataset, in right way and your `rbind` does not do that – Sal-laS Aug 25 '18 at 10:47
  • wow thanks!! that looks great! is there a way to name the different colours of the bars (black = category 1, grey = cateogory 2) and also the x- and y-axis? – Laura Ataraxia Aug 25 '18 at 10:51
  • this is not still the proper dataset. You have not considered `group` in your dataset. – Sal-laS Aug 25 '18 at 11:16
  • Maybe my answer is heavy and primitive, but I don't think it's wrong. The data provided is vector, so I use a vector way to do visualization. Defining a dataset and groups is necessary in ggplot2 instead of everywhere. – Darren Tsai Aug 25 '18 at 12:17
  • @LauraAtaraxia I update my answer. – Darren Tsai Aug 25 '18 at 13:17
1

Here is the correct answer of yours. You need to first define your dataset in a proper way:

dt<-data.frame(
  group= c("Mütter über Söhne", "Mütter über Töchter", "Väter über Söhne", "Väter über Töchter"),
  category=c("category1","category1","category1","category1",    "category2","category2","category2","category2"),
  ratio= c(0.50, 0.53, 0.49, 0.47,  0.51, 0.54, 0.46, 0.49))

head(dt)

And then use the ggplot to draw it

    library(ggplot2)


ggplot(data=dt, aes(x=group, y=ratio, fill=category)) +
  geom_bar(stat="identity", position=position_dodge())+
  scale_fill_brewer(palette="Paired")+                #Remove background
  theme(axis.line = element_line(colour = "black"),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank())

and the final output is:

enter image description here

Sal-laS
  • 11,016
  • 25
  • 99
  • 169