使用ggplot的Barplot

Question

I have a data frame like

  Model1    Model2      Model3    Model4
      4          4          5         5
      4          4         NA        NA
      3          2          5         5
      2          2          3         3
      3          3          3         3
      3          3          4         4

I want to plot a barplot like

The x- axis will have the Model1,Model2,Model3 and Model4 and the bars will be the proportion of the scores in each column,ie, 6 bars for each Model (in the full data I have the scores from 0 to 5)

How can this be done without having to create a dataframe using rbind or creating a matrix? Any help will be appreciated.

Answer 1

You can't do it without changing the format of your data, but it isn't difficult to do so.

You can use the melt option of the reshape2 package.

I created a data frame of your data:

   df1<-data.frame("Model1"=c(4,4,3,2,3,3),
                   "Model2"=c(4,4,2,2,3,3),
                   "Model3"=c(5,NA,5,3,3,4),
                   "Model4"=c(5,NA,5,3,3,4))

  Model1 Model2 Model3 Model4
1      4      4      5      5
2      4      4     NA     NA
3      3      2      5      5
4      2      2      3      3
5      3      3      3      3
6      3      3      4      4

Next you can reshape the data using the reshape2 package:

library(reshape2)
df2<-melt(df1)

    variable value
1     Model1     4
2     Model1     4
3     Model1     3
4     Model1     2
5     Model1     3
6     Model1     3
7     Model2     4
8     Model2     4
9     Model2     2
10    Model2     2
11    Model2     3
12    Model2     3
13    Model3     5
14    Model3    NA
15    Model3     5
16    Model3     3
17    Model3     3
18    Model3     4
19    Model4     5
20    Model4    NA
21    Model4     5
22    Model4     3
23    Model4     3
24    Model4     4

Renamed the columns for ease:

names(df2)<-c("Model","Score")

Then calculate the proportions:

df3 <- as.data.frame(table(df2))
df3$prop<-df4$Freq/4*100

And finally, the plot:

ggplot(df3,aes(x=Model,y=prop,fill=as.factor(Score)))+
       geom_bar(stat="identity",position="dodge")+
       xlab("Models")+
       ylab("Prop. of Cases (%)")+
       ggtitle("Sample Data")+
       guides(fill=guide_legend(title="Scores"))+
       scale_fill_manual(values = c("2" = "lightblue", "3" = "mistyrose","4"="lightcyan","5"="lavender"))+
       theme_bw()