Folded column graph in R

Question

I would like to know (if possible) how to draw such a plot in R.

For example, 30 people (on the x-axis) work for almost 300-400 hours (on the Y-axis), and each of them allocates time in 6 specific actions indicated in color.

Sample data:

| People | Act 1 | Act 2 | Act 3 | Act 4 | Act 5 | Act 6 | |Person 1| 18 | 20 | 32 | 75 | 64 | 18 | |Person 1| 40 | 25 | 02 | 04 | 17 | 20 | |Person 2| 58 | 45 | 32 | 75 | 64 | 18 | |Person 3| 10 | 15 | 11 | 28 | 15 | 92 | |Person 1| 11 | 11 | 02 | 05 | 04 | 08 | 

I am using this code:

 plot(table(data$worker),col=unique(data$worker)) 

(this code gives me a different color for each bar)

but I can’t find a way to color each bar based on the criteria mentioned above.

Answer 1

You need a column of columnar columns that shows the absolute value (total number) of hours worked per person along the y axis, by type of activity.

First arrange your data set as follows:

 person hours.worked activity 1 18 1 1 20 2 ... 3 11 3 3 28 4 ... 1 4 5 1 8 6 

Then do the following:

 #reproducible example (same as OP data) df = structure(list(person = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 1L, 1L), hours.worked = c(18L, 20L, 32L, 75L, 64L,18L, 40L, 25L, 2L, 4L, 17L, 20L, 58L, 45L, 32L, 75L, 64L, 18L, 10L, 15L, 11L, 28L, 15L, 92L, 11L, 11L, 2L, 5L, 4L, 8L), activity = c(1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L, 1L, 2L, 3L, 4L, 5L, 6L)), .Names = c("person", "hours.worked", "activity"), class = "data.frame", row.names = c(NA, -30L)) df$person = factor(df$person,levels=c(1,2,3)) #control person order in x axis (left to right) df$activity = factor(df$activity,levels=c(6,5,4,3,2,1)) #control order of stacks within column (top to base) library(ggplot2) ggplot(data=df, aes(x=person,y=hours.worked,fill=activity)) + geom_col(position="stack") + scale_fill_manual(breaks = c(1,2,3,4,5,6), #control order of legend keys (top to bottom) values = c("#F564E3","#619CFF","#00BFC4","#00BA38","#B79F00","#F8766D")) #control fill of legend keys and columns stacks (surprisingly, this will honor the order of factor levels instead of order of 'breaks')