Commit 1b2046e9 authored by Greg Sutcliffe's avatar Greg Sutcliffe

WIP contributor data

parent 707ceb23
......@@ -202,3 +202,12 @@ grid.arrange(content_manage,content_types,repo_types,would_types,ncol=2)
note "local other" contains 3 votes for createrepo/yum, but largely is text like "my own scripts". Lack of "createrepo / yum" answers seems a win for Katello. GitLab seems mostly used as a Docker registry. Puppet answers were unclear, they could be "Puppet modules used to manage repos" or possibly "I manage Puppet modules as content".
## Contributors
contributors: `r contribute[contribute$value == 'Yes',]$perc %>% round(2)`
blocked: `r contribute[contribute$value == "I'd like to, but I need help getting started",]$perc %>% round(2)`
```{r contribute}
print(contribute_areas)
grid.arrange(activities_2017,activities_2018)
```
\ No newline at end of file
This source diff could not be displayed because it is too large. You can view the blob instead.
......@@ -178,3 +178,9 @@ solutions:
note "local other" contains 3 votes for createrepo/yum, but largely is text like "my own scripts". Lack of "createrepo / yum" answers seems a win for Katello. GitLab seems mostly used as a Docker registry. Puppet answers were unclear, they could be "Puppet modules used to manage repos" or possibly "I manage Puppet modules as content".
## Contributors
contributors: 37.5
blocked: 28.75
![](InitialAnalysis_files/figure-html/contribute-1.svg)<!-- -->![](InitialAnalysis_files/figure-html/contribute-2.svg)<!-- -->
This diff is collapsed.
This source diff could not be displayed because it is too large. You can view the blob instead.
# Do you contribute? ------------------------------------------------------
contribute = as_tibble(raw_csv$Do.you.contribute.to.Foreman.in.some.way.) %>%
filter(value != '') %>%
group_by(value) %>%
count() %>%
ungroup() %>%
mutate(perc = n / sum(n)*100)
# Contribute areas --------------------------------------------------------
data = raw_csv$What.areas.of.Foreman.do.you.currently.contribute.to..or.would.like.to.get.started.on.
c_a = as.factor(unlist(strsplit(as.character(data),split = ";"))) %>%
fct_lump(n=8) %>%
fct_count %>%
mutate(perc = n/sum(n)*100)
contribute_areas = ggplot(c_a, aes(x = reorder(f, -perc), y = perc, fill = f)) +
geom_bar(stat = 'identity') +
labs(x = "", y = "Percent") +
scale_x_discrete(breaks=c("Packaging",
"Other",
"Translating",
"Foreman-installer (puppet modules, kafo, etc)",
"Ruby code for Foreman / smart-proxy",
"Maintain / contribute to a plugin",
"Release Candidate Testing",
"I'm not sure what I want to contribute to",
"Bug Reporting / Triage"),
labels=c("Packaging",
"Other",
"Translating",
"Installer",
"Ruby code",
"Plugins",
"RC Tests",
"Unsure",
"Bugs")) +
ggtitle("Areas of Help") +
theme(legend.position = "none")
# Contribute Activities ---------------------------------------------------
process_new = function(q,label) {
as.character(raw_csv[[q]]) %>%
fct_count() %>%
mutate(type = label) %>%
mutate(perc = n/sum(n)*100, year = as.factor(2018))
}
process_old = function(q,label) {
as.character(old_csv[[q]]) %>%
fct_count() %>%
mutate(type = label) %>%
mutate(perc = n/sum(n)*100, year = as.factor(2017))
}
data = rbind(
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Finding.developer.documentation.','Finding Docs'),
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Setting.up.a.development.environment.','Setting Up Dev Env'),
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Reporting.issues.','Reporting Issues'),
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Monitoring.issues...pull.requests.','Tracking Issues/PRs'),
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Getting.help.when.stuck.','Getting Help'),
process_new('Rate.the.following.activities..where.applicable..for.ease.of.use..Getting.feedback.on.code.designs...new.ideas.','Feedback on RFCs'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Finding.developer.documentation.','Finding Docs'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Setting.up.a.development.environment.','Setting Up Dev Env'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Reporting.issues.','Reporting Issues'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Monitoring.issues...pull.requests.','Tracking Issues/PRs'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Getting.help.when.stuck.','Getting Help'),
process_old('Rate.the.following.activities..where.applicable..for.ease.of.use..Getting.feedback.on.code.designs...new.ideas.','Feedback on RFCs')
) %>% filter(!is.na(f))
activities = ggplot(data,aes(x=f,y=perc,label=year,alpha=fct_relevel(year,'2017','2018'),fill=type)) +
geom_bar(stat='identity',position='dodge') +
scale_alpha_manual(values=c(0.5, 1)) +
facet_wrap( ~ type) +
scale_y_continuous(breaks=seq(0, 30, 5)) +
labs(x = "", y = "Percent") +
ggtitle("Ease of ...") +
theme(legend.title = element_blank())
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment