How can I draw grouped bar charts, segmented bar plot and spine plot using ggplot2?

Question

I'm trying to draw a grouped bar plot in r

Here is my code:

xtable <- xtabs(~ view + grade, data=hs)

xtable

barplot(xtable, beside = T, legend.text = T)

library(reshape2)
data.m <- melt(xtable, id.vars='view')

data.m
# plot
ggplot(data.m, aes(grade, value)) + geom_bar(aes(fill = view), 
   width = 0.4, position = "dodge", stat="identity") +  
   theme(legend.position="top", legend.title = 
   element_blank(),axis.title.x=element_blank(), 
   axis.title.y=element_blank())

View and grade are two properties of homes sold. Grade is a value between 0 to 13 showing the rank of a home, and view is 0 to 4 showing how good is the view of the home.

The usual barplot command in r works oaky. However, I liked a ggplot for it. I followed the answer of similar questions, but I get a stacked bar instead of a grouped one. Also, how can I generate a segmented bar plot and spine plot using the same data?

For grouped bar plot, check this: https://stackoverflow.com/questions/18158461/grouped-bar-plot-in-ggplot — yarnabrina, May 22 '19 at 09:01
I haven't tried your code yet. Can you please tell where is this `hs` data? — yarnabrina, May 22 '19 at 09:27
@yarnabrina I put them for download at https://drive.google.com/file/d/15P108cl1Aaz5XrJNGjjFbTOAiZUaPjs3/view?usp=sharing — Ahmad, May 22 '19 at 10:43

score 1 · Answer 1 · answered May 23 '19 at 04:36

Your code considers view as continuous, where it is not. Convert it to factor.

library(ggplot2)
library(reshape2)

hs <- read.csv(file = file.choose())

xtable <- xtabs(formula = (~ view + grade),
                data = hs)

data.m <- melt(data = xtable,
               id.vars='view')

ggplot(data = data.m,
       mapping = aes(x = grade,
                     y = value)) +
  geom_bar(mapping = aes(fill = factor(x = view)),
           position = "dodge",
           stat="identity")

This generates the following, which you can modify later to make it look nicer.

How can I draw grouped bar charts, segmented bar plot and spine plot using ggplot2?

1 Answers1