paper_data_sources.data

type;count
Other;1
Asking;15
Comm.;16
VCS;17
PM;18

plot.R

source('slr_chart_common.R')

data = read.table('paper_data_sources.data', header=TRUE, sep=";")

label_strings=c(
               'Other',
               'Asking (Surveys or Interviews)',
               'Communications',
               'Version Control System (VCS)',
               'Project Management Tools (PM)'
        )

data$ordered = factor(data$type, levels=data$type)
data$labels = factor(data$type, levels=data$type, labels=label_strings)

make_slr_chart('paper_data_sources.pdf', ggplot(data, aes(ordered, count, fill=labels)) +
      geom_bar(width=.5, stat="identity") +
      geom_text(aes(label=count),vjust=0) +
      scale_fill_discrete('Explanations') +
      xlab("Data Source") +
      theme(axis.text.x = element_text(size=15)),
      width=10
)