asitav
/
limesurveyresult
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Survey result template
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
1 Branch
0 Tags
2.2 MiB
Branch: master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'master'
${ noResults }
limesurveyresult/finrep.html

987 lines
2.1 MiB
Raw Permalink Normal View History

added basic chart and auto data import
4 years ago
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="generator" content="pandoc" />
<meta http-equiv="X-UA-Compatible" content="IE=EDGE" />
<meta name="author" content="Asitav Sen" />
<title>Finance Transformation Survey Result</title>
<script>/*! jQuery v1.11.3 | (c) 2005, 2015 jQuery Foundation, Inc. | jquery.org/license */
!function(a,b){"object"==typeof module&&"object"==typeof module.exports?module.exports=a.document?b(a,!0):function(a){if(!a.document)throw new Error("jQuery requires a window with a document");return b(a)}:b(a)}("undefined"!=typeof window?window:this,function(a,b){var c=[],d=c.slice,e=c.concat,f=c.push,g=c.indexOf,h={},i=h.toString,j=h.hasOwnProperty,k={},l="1.11.3",m=function(a,b){return new m.fn.init(a,b)},n=/^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,o=/^-ms-/,p=/-([\da-z])/gi,q=function(a,b){return b.toUpperCase()};m.fn=m.prototype={jquery:l,constructor:m,selector:"",length:0,toArray:function(){return d.call(this)},get:function(a){return null!=a?0>a?this[a+this.length]:this[a]:d.call(this)},pushStack:function(a){var b=m.merge(this.constructor(),a);return b.prevObject=this,b.context=this.context,b},each:function(a,b){return m.each(this,a,b)},map:function(a){return this.pushStack(m.map(this,function(b,c){return a.call(b,c,b)}))},slice:function(){return this.pushStack(d.apply(this,arguments))},first:function(){return this.eq(0)},last:function(){return this.eq(-1)},eq:function(a){var b=this.length,c=+a+(0>a?b:0);return this.pushStack(c>=0&&b>c?[this[c]]:[])},end:function(){return this.prevObject||this.constructor(null)},push:f,sort:c.sort,splice:c.splice},m.extend=m.fn.extend=function(){var a,b,c,d,e,f,g=arguments[0]||{},h=1,i=arguments.length,j=!1;for("boolean"==typeof g&&(j=g,g=arguments[h]||{},h++),"object"==typeof g||m.isFunction(g)||(g={}),h===i&&(g=this,h--);i>h;h++)if(null!=(e=arguments[h]))for(d in e)a=g[d],c=e[d],g!==c&&(j&&c&&(m.isPlainObject(c)||(b=m.isArray(c)))?(b?(b=!1,f=a&&m.isArray(a)?a:[]):f=a&&m.isPlainObject(a)?a:{},g[d]=m.extend(j,f,c)):void 0!==c&&(g[d]=c));return g},m.extend({expando:"jQuery"+(l+Math.random()).replace(/\D/g,""),isReady:!0,error:function(a){throw new Error(a)},noop:function(){},isFunction:function(a){return"function"===m.type(a)},isArray:Array.isArray||function(a){return"array"===m.type(a)},isWindow:function(a){return null!=a&&a==a.window},isNumeric:function(a){return!m.isArray(a)&&a-parseFloat(a)+1>=0},isEmptyObject:function(a){var b;for(b in a)return!1;return!0},isPlainObject:function(a){var b;if(!a||"object"!==m.type(a)||a.nodeType||m.isWindow(a))return!1;try{if(a.constructor&&!j.call(a,"constructor")&&!j.call(a.constructor.prototype,"isPrototypeOf"))return!1}catch(c){return!1}if(k.ownLast)for(b in a)return j.call(a,b);for(b in a);return void 0===b||j.call(a,b)},type:function(a){return null==a?a+"":"object"==typeof a||"function"==typeof a?h[i.call(a)]||"object":typeof a},globalEval:function(b){b&&m.trim(b)&&(a.execScript||function(b){a.eval.call(a,b)})(b)},camelCase:function(a){return a.replace(o,"ms-").replace(p,q)},nodeName:function(a,b){return a.nodeName&&a.nodeName.toLowerCase()===b.toLowerCase()},each:function(a,b,c){var d,e=0,f=a.length,g=r(a);if(c){if(g){for(;f>e;e++)if(d=b.apply(a[e],c),d===!1)break}else for(e in a)if(d=b.apply(a[e],c),d===!1)break}else if(g){for(;f>e;e++)if(d=b.call(a[e],e,a[e]),d===!1)break}else for(e in a)if(d=b.call(a[e],e,a[e]),d===!1)break;return a},trim:function(a){return null==a?"":(a+"").replace(n,"")},makeArray:function(a,b){var c=b||[];return null!=a&&(r(Object(a))?m.merge(c,"string"==typeof a?[a]:a):f.call(c,a)),c},inArray:function(a,b,c){var d;if(b){if(g)return g.call(b,a,c);for(d=b.length,c=c?0>c?Math.max(0,d+c):c:0;d>c;c++)if(c in b&&b[c]===a)return c}return-1},merge:function(a,b){var c=+b.length,d=0,e=a.length;while(c>d)a[e++]=b[d++];if(c!==c)while(void 0!==b[d])a[e++]=b[d++];return a.length=e,a},grep:function(a,b,c){for(var d,e=[],f=0,g=a.length,h=!c;g>f;f++)d=!b(a[f],f),d!==h&&e.push(a[f]);return e},map:function(a,b,c){var d,f=0,g=a.length,h=r(a),i=[];if(h)for(;g>f;f++)d=b(a[f],f,c),null!=d&&i.push(d);else for(f in a)d=b(a[f],f,c),null!=d&&i.push(d);return e.apply([],i)},guid:1,proxy:function(a,b){var c,e,f;return"string"==typeof b&&(f=a[b],b=a,a=f),m.isFunction(a)?(c=d.call(arguments,2),e=function(){return a.apply(b||this,c.concat(d.call(arguments)))},e.guid=a.guid=a.guid||m.guid++,e):void 0},now:function(){return+new Date},support:k}),m.each(
return!0}function Q(a,b,d,e){if(m.acceptData(a)){var f,g,h=m.expando,i=a.nodeType,j=i?m.cache:a,k=i?a[h]:a[h]&&h;if(k&&j[k]&&(e||j[k].data)||void 0!==d||"string"!=typeof b)return k||(k=i?a[h]=c.pop()||m.guid++:h),j[k]||(j[k]=i?{}:{toJSON:m.noop}),("object"==typeof b||"function"==typeof b)&&(e?j[k]=m.extend(j[k],b):j[k].data=m.extend(j[k].data,b)),g=j[k],e||(g.data||(g.data={}),g=g.data),void 0!==d&&(g[m.camelCase(b)]=d),"string"==typeof b?(f=g[b],null==f&&(f=g[m.camelCase(b)])):f=g,f}}function R(a,b,c){if(m.acceptData(a)){var d,e,f=a.nodeType,g=f?m.cache:a,h=f?a[m.expando]:m.expando;if(g[h]){if(b&&(d=c?g[h]:g[h].data)){m.isArray(b)?b=b.concat(m.map(b,m.camelCase)):b in d?b=[b]:(b=m.camelCase(b),b=b in d?[b]:b.split(" ")),e=b.length;while(e--)delete d[b[e]];if(c?!P(d):!m.isEmptyObject(d))return}(c||(delete g[h].data,P(g[h])))&&(f?m.cleanData([a],!0):k.deleteExpando||g!=g.window?delete g[h]:g[h]=null)}}}m.extend({cache:{},noData:{"applet ":!0,"embed ":!0,"object ":"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"},hasData:function(a){return a=a.nodeType?m.cache[a[m.expando]]:a[m.expando],!!a&&!P(a)},data:function(a,b,c){return Q(a,b,c)},removeData:function(a,b){return R(a,b)},_data:function(a,b,c){return Q(a,b,c,!0)},_removeData:function(a,b){return R(a,b,!0)}}),m.fn.extend({data:function(a,b){var c,d,e,f=this[0],g=f&&f.attributes;if(void 0===a){if(this.length&&(e=m.data(f),1===f.nodeType&&!m._data(f,"parsedAttrs"))){c=g.length;while(c--)g[c]&&(d=g[c].name,0===d.indexOf("data-")&&(d=m.camelCase(d.slice(5)),O(f,d,e[d])));m._data(f,"parsedAttrs",!0)}return e}return"object"==typeof a?this.each(function(){m.data(this,a)}):arguments.length>1?this.each(function(){m.data(this,a,b)}):f?O(f,a,m.data(f,a)):void 0},removeData:function(a){return this.each(function(){m.removeData(this,a)})}}),m.extend({queue:function(a,b,c){var d;return a?(b=(b||"fx")+"queue",d=m._data(a,b),c&&(!d||m.isArray(c)?d=m._data(a,b,m.makeArray(c)):d.push(c)),d||[]):void 0},dequeue:function(a,b){b=b||"fx";var c=m.queue(a,b),d=c.length,e=c.shift(),f=m._queueHooks(a,b),g=function(){m.dequeue(a,b)};"inprogress"===e&&(e=c.shift(),d--),e&&("fx"===b&&c.unshift("inprogress"),delete f.stop,e.call(a,g,f)),!d&&f&&f.empty.fire()},_queueHooks:function(a,b){var c=b+"queueHooks";return m._data(a,c)||m._data(a,c,{empty:m.Callbacks("once memory").add(function(){m._removeData(a,b+"queue"),m._removeData(a,c)})})}}),m.fn.extend({queue:function(a,b){var c=2;return"string"!=typeof a&&(b=a,a="fx",c--),arguments.length<c?m.queue(this[0],a):void 0===b?this:this.each(function(){var c=m.queue(this,a,b);m._queueHooks(this,a),"fx"===a&&"inprogress"!==c[0]&&m.dequeue(this,a)})},dequeue:function(a){return this.each(function(){m.dequeue(this,a)})},clearQueue:function(a){return this.queue(a||"fx",[])},promise:function(a,b){var c,d=1,e=m.Deferred(),f=this,g=this.length,h=function(){--d||e.resolveWith(f,[f])};"string"!=typeof a&&(b=a,a=void 0),a=a||"fx";while(g--)c=m._data(f[g],a+"queueHooks"),c&&c.empty&&(d++,c.empty.add(h));return h(),e.promise(b)}});var S=/[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,T=["Top","Right","Bottom","Left"],U=function(a,b){return a=b||a,"none"===m.css(a,"display")||!m.contains(a.ownerDocument,a)},V=m.access=function(a,b,c,d,e,f,g){var h=0,i=a.length,j=null==c;if("object"===m.type(c)){e=!0;for(h in c)m.access(a,b,h,c[h],!0,f,g)}else if(void 0!==d&&(e=!0,m.isFunction(d)||(g=!0),j&&(g?(b.call(a,d),b=null):(j=b,b=function(a,b,c){return j.call(m(a),c)})),b))for(;i>h;h++)b(a[h],c,g?d:d.call(a[h],h,b(a[h],c)));return e?a:j?b.call(a):i?b(a[0],c):f},W=/^(?:checkbox|radio)$/i;!function(){var a=y.createElement("input"),b=y.createElement("div"),c=y.createDocumentFragment();if(b.innerHTML=" <link/><table></table><a href='/a'>a</a><input type='checkbox'/>",k.leadingWhitespace=3===b.firstChild.nodeType,k.tbody=!b.getElementsByTagName("tbody").length,k.htmlSerialize=!!b.getElementsByTagName("link").length,k.html5Clone="<:nav></:nav>"!==y.createElement("nav").cloneNode(!0).outerHTML,a.type="checkbox",a.checked=!0,c.appendChild(a),k.appendChecked=a.checked,b.innerHTML="<textarea>x</tex
return new Za.prototype.init(a,b,c,d,e)}m.Tween=Za,Za.prototype={constructor:Za,init:function(a,b,c,d,e,f){this.elem=a,this.prop=c,this.easing=e||"swing",this.options=b,this.start=this.now=this.cur(),this.end=d,this.unit=f||(m.cssNumber[c]?"":"px")},cur:function(){var a=Za.propHooks[this.prop];return a&&a.get?a.get(this):Za.propHooks._default.get(this)},run:function(a){var b,c=Za.propHooks[this.prop];return this.options.duration?this.pos=b=m.easing[this.easing](a,this.options.duration*a,0,1,this.options.duration):this.pos=b=a,this.now=(this.end-this.start)*b+this.start,this.options.step&&this.options.step.call(this.elem,this.now,this),c&&c.set?c.set(this):Za.propHooks._default.set(this),this}},Za.prototype.init.prototype=Za.prototype,Za.propHooks={_default:{get:function(a){var b;return null==a.elem[a.prop]||a.elem.style&&null!=a.elem.style[a.prop]?(b=m.css(a.elem,a.prop,""),b&&"auto"!==b?b:0):a.elem[a.prop]},set:function(a){m.fx.step[a.prop]?m.fx.step[a.prop](a):a.elem.style&&(null!=a.elem.style[m.cssProps[a.prop]]||m.cssHooks[a.prop])?m.style(a.elem,a.prop,a.now+a.unit):a.elem[a.prop]=a.now}}},Za.propHooks.scrollTop=Za.propHooks.scrollLeft={set:function(a){a.elem.nodeType&&a.elem.parentNode&&(a.elem[a.prop]=a.now)}},m.easing={linear:function(a){return a},swing:function(a){return.5-Math.cos(a*Math.PI)/2}},m.fx=Za.prototype.init,m.fx.step={};var $a,_a,ab=/^(?:toggle|show|hide)$/,bb=new RegExp("^(?:([+-])=|)("+S+")([a-z%]*)$","i"),cb=/queueHooks$/,db=[ib],eb={"*":[function(a,b){var c=this.createTween(a,b),d=c.cur(),e=bb.exec(b),f=e&&e[3]||(m.cssNumber[a]?"":"px"),g=(m.cssNumber[a]||"px"!==f&&+d)&&bb.exec(m.css(c.elem,a)),h=1,i=20;if(g&&g[3]!==f){f=f||g[3],e=e||[],g=+d||1;do h=h||".5",g/=h,m.style(c.elem,a,g+f);while(h!==(h=c.cur()/d)&&1!==h&&--i)}return e&&(g=c.start=+g||+d||0,c.unit=f,c.end=e[1]?g+(e[1]+1)*e[2]:+e[2]),c}]};function fb(){return setTimeout(function(){$a=void 0}),$a=m.now()}function gb(a,b){var c,d={height:a},e=0;for(b=b?1:0;4>e;e+=2-b)c=T[e],d["margin"+c]=d["padding"+c]=a;return b&&(d.opacity=d.width=a),d}function hb(a,b,c){for(var d,e=(eb[b]||[]).concat(eb["*"]),f=0,g=e.length;g>f;f++)if(d=e[f].call(c,b,a))return d}function ib(a,b,c){var d,e,f,g,h,i,j,l,n=this,o={},p=a.style,q=a.nodeType&&U(a),r=m._data(a,"fxshow");c.queue||(h=m._queueHooks(a,"fx"),null==h.unqueued&&(h.unqueued=0,i=h.empty.fire,h.empty.fire=function(){h.unqueued||i()}),h.unqueued++,n.always(function(){n.always(function(){h.unqueued--,m.queue(a,"fx").length||h.empty.fire()})})),1===a.nodeType&&("height"in b||"width"in b)&&(c.overflow=[p.overflow,p.overflowX,p.overflowY],j=m.css(a,"display"),l="none"===j?m._data(a,"olddisplay")||Fa(a.nodeName):j,"inline"===l&&"none"===m.css(a,"float")&&(k.inlineBlockNeedsLayout&&"inline"!==Fa(a.nodeName)?p.zoom=1:p.display="inline-block")),c.overflow&&(p.overflow="hidden",k.shrinkWrapBlocks()||n.always(function(){p.overflow=c.overflow[0],p.overflowX=c.overflow[1],p.overflowY=c.overflow[2]}));for(d in b)if(e=b[d],ab.exec(e)){if(delete b[d],f=f||"toggle"===e,e===(q?"hide":"show")){if("show"!==e||!r||void 0===r[d])continue;q=!0}o[d]=r&&r[d]||m.style(a,d)}else j=void 0;if(m.isEmptyObject(o))"inline"===("none"===j?Fa(a.nodeName):j)&&(p.display=j);else{r?"hidden"in r&&(q=r.hidden):r=m._data(a,"fxshow",{}),f&&(r.hidden=!q),q?m(a).show():n.done(function(){m(a).hide()}),n.done(function(){var b;m._removeData(a,"fxshow");for(b in o)m.style(a,b,o[b])});for(d in o)g=hb(q?r[d]:0,d,n),d in r||(r[d]=g.start,q&&(g.end=g.start,g.start="width"===d||"height"===d?1:0))}}function jb(a,b){var c,d,e,f,g;for(c in a)if(d=m.camelCase(c),e=b[d],f=a[c],m.isArray(f)&&(e=f[1],f=a[c]=f[0]),c!==d&&(a[d]=f,delete a[c]),g=m.cssHooks[d],g&&"expand"in g){f=g.expand(f),delete a[d];for(c in f)c in a||(a[c]=f[c],b[c]=e)}else b[d]=e}function kb(a,b,c){var d,e,f=0,g=db.length,h=m.Deferred().always(function(){delete i.elem}),i=function(){if(e)return!1;for(var b=$a||fb(),c=Math.max(0,j.startTime+j.duration-b),d=c/j.duration||0,f=1-d,g=0,i=j.tweens.length;i>g;g++)j.tweens[g].run(f);return h.notifyWith(a,[j,f,c]),1>f&&i?c:(h.resolveWith(a,[j]),!1)},j=h
</script>
<meta name="viewport" content="width=device-width, initial-scale=1" />
<style type="text/css">@font-face {
font-family: 'Source Sans Pro';
font-style: normal;
font-weight: 300;
src: url(data:application/x-font-truetype;base64,AAEAAAARAQAABAAQR0RFRgNEA3IAAG+kAAAAQEdQT1PXveeXAABv5AAAGWRHU1VC8WfWVwAAiUgAAADgT1MvMlpQkwsAAGZkAAAAYGNtYXDzMPm1AABmxAAAAeZjdnQgDXMAuAAAamwAAAAoZnBnbQZZnDcAAGisAAABc2dhc3D//wADAABvnAAAAAhnbHlm4G/pBAAAARwAAF8kaGVhZP4Fs/YAAGJEAAAANmhoZWEHlAOiAABmQAAAACRobXR4l6Yq6AAAYnwAAAPEbG9jYV5idvoAAGBgAAAB5G1heHADCwJJAABgQAAAACBuYW1lIvc8kwAAapQAAAHKcG9zdGxQSG8AAGxgAAADOXByZXAtaIB5AABqIAAAAEsABQBeAAACGgKUAAMABgAJAA8AFQBnALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAIvG7kAAgAEPlm6AAUAAgAAERI5ugAGAAIAABESOboABwACAAAREjm6AAgAAgAAERI5uQAKAAH0ugANAAIAABESObgAABC5ABIAAfQwMRMhESETAxEhEQMTLwEjDwETPwEhHwFeAbz+RMCTAWCRfF07BD1foDVW/uRXNgKU/WwBVAEE/fwCBP78/tOkaWmkAU1cm5tcAAIACAAAAgYCkwAJABEAVAC4AABFWLgADi8buQAOABA+WbgAAEVYuAAMLxu5AAwABD5ZuAAARVi4ABEvG7kAEQAEPlm6AAUADAAOERI5ugALAAwADhESObgACy+5AAkAAfQwMQEnLgEnIw4BDwEXIQcjEzMTIwF8KhQkEQQRJBQq9/77Ti7oLugwAQl7O2w9PWw7eyfiApP9bQAAAAMAYQAAAhUCkwARABoAIwBbALgAAEVYuAAALxu5AAAAED5ZuAAARVi4ABEvG7kAEQAEPlm6ACEAAAARERI5uAAhL7oACAAhABIREjm4AAAQuQAZAAH0uAAhELkAGgAB9LgAERC5ACMAAfQwMRMzMhYVFAYHFR4BFRQOAisBEzI2NTQmKwEVEzI2NTQmKwERYbJkdjs6SVQjQFo4v6BmWF5bd4VjcW5mhQKTTVM0TQ8EC09FMEgwGAFxQUJAOfz+tUpQR0X+2gAAAQA3//QCDwKfACEAOQC4AABFWLgABS8buQAFABA+WbgAAEVYuAAdLxu5AB0ABD5ZuAAFELkADAAB9LgAHRC5ABYAAfQwMRM0PgIzMhYXBy4BIyIOAhUUHgIzMjY3Fw4BIyIuAjcpSmg/OVgaHBpILTZXPSAgPFU1M08kHCZeQD1mSSgBS05+WS8wHx4eJSpNbkVFb04rKCkdLDIwWX8AAAIAYQAAAiUCkwAMABkANQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAMLxu5AAwABD5ZuQANAAH0uAAAELkAFwAB9DAxEzMyHgIVFA4CKwE3Mj4CNTQuAisBEWGZTHFKJCRKcEyalENhPh4ePmFDZgKTLlZ4S0t7Vy8nK05rQUBqTCr9uwAAAAABAGEAAAHUApMACwBNALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm4AAAQuQADAAH0ugAHAAAACxESObgABy+5AAUAAfS4AAsQuQAIAAH0MDETIRUhFSEVIREhFSFhAWn+xQEI/vgBRf6NApMo+Sj+3igAAQBhAAAByAKTAAkAQwC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAJLxu5AAkABD5ZuAAAELkAAwAB9LoABwAAAAkREjm4AAcvuQAFAAH0MDETIRUhESEVIREjYQFn/scBCf73LgKTKP76KP7DAAAAAAEAN//0AhUCnwAnAE0AuAAARVi4AAUvG7kABQAQPlm4AABFWLgAIy8buQAjAAQ+WbgABRC5AA4AAfS4ACMQuQAYAAH0ugAfAAUAIxESObgAHy+5AB0AAfQwMRM0PgIzMh4CFwcuASMiDgIVFB4CMzI2NzUjNTMRDgEjIi4CNypNa0IhNiwjDRsaSDY5Wj8iID1ZOC1PGJ7KH2NCP2hKKQFLTn5ZLw4XHA4eHCcqTW5FRW9OKxoYzSf++yEqMFl/AAEAYQAAAh4CkwALAEkAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACy8buQALAAQ+WboACQAAAAsREjm4AAkvuQADAAH0uAAAELgABNC4AAsQuAAH0DAxEzMRIREzESMRIREjYS4BYS4u/p8uApP+3wEh/W0BSv62AAEAYQAAAI8CkwADACUAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgAAy8buQADAAQ+WTAxEzMRI2EuLgKT/W0AAAABACn/9AFvApMAEQArALgAAEVYuAAHLxu5AAcAED5ZuAAARVi4AA4vG7kADgAEPlm5AAMAAfQwMTceATMyNjURMxEUDgIjIiYnTBg9Kjw6LhInPi03UhlsKiRJUQHb/iAoRTQeMi8AAAEAYQAAAiQCkwAMAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgABC8buQAEABA+WbgAAEVYuAAMLxu5AAwABD5ZuAAARVi4AAgvG7kACAAEPlm6AAIAAAAMERI5ugAJAAQACBESOTAxEzMRMwEzBxMjAwcVI2EuAgE/N9LvNdqGLgKT/pIBbvT+YQF8meMAAAEAYQAAAb8CkwAFACsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgABS8buQAFAAQ+WbkAAgAB9DAxEzMRIRUhYS4BMP6iApP9lSgAAAABAGEAAAJhApMAGQBvALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAYvG7kABgAQPlm4AABFWLgAGS8buQAZAAQ+WbgAAEVYuAAJLxu5AAkABD5ZugADAAYACRESOboADgAGAAkREjm6ABEAGQAGERI5ugAUAAAAGRESOTAxEzMTFzM3EzMRIxE0NjcjBwMjAycjHgEVESNhQYo0BDKKQS0EAgQ0jSmONAQCBCsCk/59kpIBg/1tAbEpXyqR/nYBipEqXyn+TwAAAAEAYQAAAhsCkwATAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACC8buQAIABA+WbgAAEVYuAATLxu5ABMABD5ZuAAARVi4AAsvG7kACwAEPlm6AAQACwAIERI5ugAOAAAAExESOTAxEzMBFzMuATURMxEjAScjHgEVESNhMAEWSgQCBCww/upKBAIELAKT/i+DMGAwAZT9bQHRgzBbMP5nAAAAAgA3//QCVgKfABMAJwA1ALgAAEVYuAAKLxu5AAoAED5ZuAAARVi4AAAvG7kAAAAEPlm5ABQAAfS4AAoQuQAeAAH0MDEFIi4CNTQ+AjMyHgIVFA4CJzI+AjU0LgIjIg4CFRQeAgFGO2RIKChIZDs8ZEgoKEhkPDJSOyAgO1IyMlM6ICA6UwwxWn9OTn1ZLy9ZfU5Of1oxKitPb0VEbk0qKk1uREVvTysAAgBhAAACAAKTAAwAFwBDALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAwvG7kADAAEPlm6AAoAAAAMERI5uAAKL7kADQAB9LgAABC5ABYAAfQwMRMzMh4CFRQGKwERIxMyNjU0LgIrARFhtDdXPSB8b4YuqWViGTFLMnsCkxMsRjNhX/7lAUJIUSo3Ig7+1gAAAgA3/2UCWAKfABMANABLALgAAEVYuAAkLxu5ACQAED5ZuAAARVi4ABovG7kAGgAEPlm7ADEAAQAXAAQruAAaELkABQAB9LgAJBC5AA8AAfS4ABoQuAAu0DAxExQeAjMyPgI1NC4CIyIOAgEOASMiJicuAzU0PgIzMh4CFRQOAgceATMyNjdnIDpTMjJSOyAgO1IyMlM6IAHxDSsZU28ZNlpBJChIZDs8ZEgoJEFbNxdXPhcfDQFMRXFPLCxPcUVEbk0qKk1u/eAEB1I+BTVZekpOfVkvL1l9Tkp6WTUFMjQFBAAAAgBhAAACAwKTAAgAGABUALgAAEVYuAAOLxu5AA4AED5ZuAAARVi4AAwvG7kADAAEPlm4AABFWLgACS8buQ
}
@font-face {
font-family: 'Source Sans Pro';
font-style: normal;
font-weight: 400;
src: url(data:application/x-font-truetype;base64,AAEAAAARAQAABAAQR0RFRgNEA3IAAG5oAAAAQEdQT1PUveN5AABuqAAAGXBHU1VC8WfWVwAAiBgAAADgT1MvMlq0lFsAAGUsAAAAYGNtYXDzMPm1AABljAAAAeZjdnQgDZkA+gAAaTQAAAAoZnBnbQZZnDcAAGd0AAABc2dhc3D//wADAABuYAAAAAhnbHlmIymUiAAAARwAAF3saGVhZP4Us+IAAGEMAAAANmhoZWEHowOhAABlCAAAACRobXR4pqgmOgAAYUQAAAPEbG9jYTiIUNQAAF8oAAAB5G1heHADCwJAAABfCAAAACBuYW1lIro8MAAAaVwAAAHGcG9zdGxQSG8AAGskAAADOXByZXCWBPrrAABo6AAAAEsABQBZAAACNQKUAAMABgAJAA8AFQBnALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAIvG7kAAgAEPlm6AAUAAgAAERI5ugAGAAIAABESOboABwACAAAREjm6AAgAAgAAERI5uQAKAAH0ugANAAIAABESObgAABC5ABIAAfQwMRMhESETJxEhEQcTLwEjDwETPwEjHwFZAdz+JMB/AVh+Ukk0BDZKhDFC60IyApT9bAFU6P4yAc7o/uaEZ2eEAUled3deAAAAAAIAAwAAAh0CkAAJABEAVAC4AABFWLgADi8buQAOABA+WbgAAEVYuAAMLxu5AAwABD5ZuAAARVi4ABEvG7kAEQAEPlm6AAUADAAOERI5ugALAAwADhESObgACy+5AAkAAfQwMQEnLgEnIw4BDwEXIwcjEzMTIwFxHxIgEAQPIBIf2u8/Vd5e3lkBC2Q3bTk5bTdkQ8gCkP1wAAAAAAMAWgAAAiQCkAATABwAJQBbALgAAEVYuAAALxu5AAAAED5ZuAAARVi4ABMvG7kAEwAEPlm6ACMAAAATERI5uAAjL7oACgAjABQREjm4AAAQuQAbAAH0uAAjELkAHAAB9LgAExC5ACUAAfQwMRMzMh4CFRQGBxUeARUUDgIrARMyNjU0JisBFRMyNjU0JisBFVrDMlM7ITg6SFAkQlw30bRVSU1NZXJVXlxXcgKQEiY9KzFPDwQLTkQwSDAYAXg6NzYv1v7KP0M9OfgAAAEANP/0AhsCnAAhADkAuAAARVi4AAUvG7kABQAQPlm4AABFWLgAHS8buQAdAAQ+WbgABRC5AAwAAfS4AB0QuQAWAAH0MDETND4CMzIWFwcuASMiDgIVFB4CMzI2NxcOASMiLgI0LE5rPzxaHS8aPyovTDYeHTRLLzBHIC8nYj8+aU0rAUhPflgvMSA1HCElRWI9PmNGJiYjMy0yLld/AAACAFoAAAI0ApAACgATADUAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACi8buQAKAAQ+WbkACwAB9LgAABC5ABEAAfQwMRMzMhYVFA4CKwE3MjY1NCYrARFapJieKE5ySqiec3Nzc0sCkKidTntVLUSKfX2E/fgAAAABAFoAAAHeApAACwBNALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm4AAAQuQADAAH0ugAHAAAACxESObgABy+5AAUAAfS4AAsQuQAIAAH0MDETIRUhFTMVIxUhFSFaAXr+2fn5ATH+fAKQRs5H7kcAAAAAAQBaAAAB1AKQAAkAQwC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAJLxu5AAkABD5ZuAAAELkAAwAB9LoABwAAAAkREjm4AAcvuQAFAAH0MDETIRUhFTMVIxEjWgF6/tn6+lMCkEbeRv7aAAAAAQA0//QCJgKcACUATQC4AABFWLgABS8buQAFABA+WbgAAEVYuAAhLxu5ACEABD5ZuAAFELkADAAB9LgAIRC5ABYAAfS6AB0ABQAhERI5uAAdL7kAGwAB9DAxEzQ+AjMyFhcHLgEjIg4CFRQeAjMyNjc1IzUzEQ4BIyIuAjQtUW5CRFsdLxlBMjJQOB8dN1E1Iz8Ui9cgaUJBbE4sAUhPflgvMx41GiMlRWI9PmNGJhUSq0X+7CErLld/AAABAFoAAAIyApAACwBJALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm6AAkAAAALERI5uAAJL7kAAwAB9LgAABC4AATQuAALELgAB9AwMRMzESERMxEjESERI1pTATFUVP7PUwKQ/u0BE/1wATX+ywABAFoAAACtApAAAwAlALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAMvG7kAAwAEPlkwMRMzESNaU1MCkP1wAAAAAQAf//QBiQKQABAAKwC4AABFWLgABy8buQAHABA+WbgAAEVYuAAOLxu5AA4ABD5ZuQADAAH0MDE3HgEzMjY1ETMRFA4CIyInWxY4IzU0VBUrRTB7OocnI0FLAcf+MSpLOCBpAAEAWgAAAj8CkAAMAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgABC8buQAEABA+WbgAAEVYuAAMLxu5AAwABD5ZuAAARVi4AAgvG7kACAAEPlm6AAIAAAAMERI5ugAJAAQACBESOTAxEzMRMwEzBxMjAwcVI1pTAwERXs3tXcRxUwKQ/rcBSfr+agFVhdAAAAEAWgAAAcwCkAAFACsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgABS8buQAFAAQ+WbkAAgAB9DAxEzMRIRUhWlMBH/6OApD9t0cAAAABAFoAAAJ9ApAAGQBvALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAYvG7kABgAQPlm4AABFWLgAGS8buQAZAAQ+WbgAAEVYuAAJLxu5AAkABD5ZugADAAYACRESOboADgAGAAkREjm6ABEAGQAGERI5ugAUAAAAGRESOTAxEzMTFzM3EzMRIxE0NjcjBwMjAycjHgEVESNaYn8wBC5+Yk8HBAQ1fi9/NAQDCE0CkP6ghoYBYP1wAWksaiyS/qkBV5Isaiz+lwAAAAEAWgAAAi0CkAATAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACC8buQAIABA+WbgAAEVYuAATLxu5ABMABD5ZuAAARVi4AAsvG7kACwAEPlm6AAQACwAIERI5ugAOAAAAExESOTAxEzMTFzMuATURMxEjAycjHgEVESNaVu1HBAMHT1buRwQEB08CkP5kiDJrNAFT/XABnYcyZzT+qQACADT/9AJlApwAEwAnADUAuAAARVi4AAovG7kACgAQPlm4AABFWLgAAC8buQAAAAQ+WbkAFAAB9LgAChC5AB4AAfQwMQUiLgI1ND4CMzIeAhUUDgInMj4CNTQuAiMiDgIVFB4CAUw+Z0opKUpnPj5nSykpS2c+LEczHBwzRywsRzMcHDNHDDBZf09PfVcuL1d9Tk9/WTBJJkdjPj1iRCUlRGI9PmNHJgACAFoAAAIVApAADgAXAEMAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgADi8buQAOAAQ+WboADAAAAA4REjm4AAwvuQAPAAH0uAAAELkAFgAB9DAxEzMyHgIVFA4CKwERIxMyNjU0JisBEVrJNlo/IyNAWTZ2U79WU1RVbAKQFC1KNjRMMhn+/AFIQUZHN/77AAACADT/XAJzApwAEwA0AEsAuAAARVi4ACQvG7kAJAAQPlm4AABFWLgAGi8buQAaAAQ+WbsAMQABABcABCu4ABoQuQAFAAH0uAAkELkADwAB9LgAGhC4AC7QMDETFB4CMzI+AjU0LgIjIg4CAQ4BIyImJy4DNTQ+AjMyHgIVFA4CBx4BMzI2N4ocM0csLEczHBwzRywsRzMcAekPMh1beh02WD8iKUpnPj5nSykhPVY0F1Q2FiEOAUs/ZUgmJkhlPz1iRCUlRGL94wUKV0QHNlh3SE99Vy4vV31OR3VXNwksKgYEAAACAFoAAAIgApAACAAYAFQAuAAARVi4AA4vG7kADgAQPlm4AABFWLgADC8buQAMAAQ+WbgAAEVYuAAJLxu5AAkABD5ZuwABAAEACgAEK7gADhC5AAgAAfS6AB
}
@font-face {
font-family: 'Source Sans Pro';
font-style: normal;
font-weight: 700;
src: url(data:application/x-font-truetype;base64,AAEAAAARAQAABAAQR0RFRgNEA3IAAG3kAAAAQEdQT1Pl+8B5AABuJAAAGVZHU1VC8WfWVwAAh3wAAADgT1MvMlvgllUAAGSUAAAAYGNtYXDzMPm1AABk9AAAAeZjdnQgDdkBaQAAaJwAAAAoZnBnbQZZnDcAAGbcAAABc2dhc3D//wADAABt3AAAAAhnbHlm8iwszwAAARwAAF1UaGVhZP4ts7AAAGB0AAAANmhoZWEHuwObAABkcAAAACRobXR4wFMeHQAAYKwAAAPEbG9jYRMoKywAAF6QAAAB5G1heHADCwJCAABecAAAACBuYW1lJBs+oAAAaMQAAAHccG9zdGxQSG8AAGqgAAADOXByZXBFzLadAABoUAAAAEsABQBQAAACYgKUAAMABgAJAA8AFQBnALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAIvG7kAAgAEPlm6AAUAAgAAERI5ugAGAAIAABESOboABwACAAAREjm6AAgAAgAAERI5uQAKAAH0ugANAAIAABESObgAABC5ABIAAfQwMRMhESETJxEhEQcXLwEjDwETPwEjHwFQAhL97sFfAU1eCicpBCknVCogmB8rApT9bAFUuv6NAXO6+U1iYk0BQ187O18AAv/6AAACQwKMAAkAEQBUALgAAEVYuAAOLxu5AA4AED5ZuAAARVi4AAwvG7kADAAEPlm4AABFWLgAES8buQARAAQ+WboABQAMAA4REjm6AAsADAAOERI5uAALL7kACQAB9DAxAScuAScjDgEPARcjByMTMxMjAWEPDhoNBAwZDhCpxyiWzLHMnAEOPDFuMzRtMTxzmwKM/XQAAAAAAwBNAAACPAKMABUAHgAmAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgAFS8buQAVAAQ+WboAJAAAABUREjm4ACQvugAMACQAFhESObgAABC5AB0AAfS4ACQQuQAeAAH0uAAVELkAJgAB9DAxEzMyHgIVFA4CBxUeARUUDgIrARMyNjU0JisBFRMyNTQmKwEVTd8zV0ElDRoqHEZHJ0VcNfLYNjEyNEZTeTw9UwKMDyY+LxYsJh4HBA1KQjJILxcBhSslJSCV/u1ZKyerAAAAAAEALv/0AjACmAAfADkAuAAARVi4AAUvG7kABQAQPlm4AABFWLgAGy8buQAbAAQ+WbgABRC5AAwAAfS4ABsQuQAUAAH0MDETND4CMzIWFwcuASMiDgIVFBYzMjY3Fw4BIyIuAi4yVXE/PWMhURkzIiI7LBlWSCg8GFEpaT0/cFQwAUJRf1guMyJbFxodNk4xZW8gGlkwMCtUfQAAAAIATQAAAkwCjAAMABkANQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAMLxu5AAwABD5ZuQANAAH0uAAAELkAFwAB9DAxEzMyHgIVFA4CKwE3Mj4CNTQuAisBEU24S3hWLi5UdUjArypEMBsbMEQqHAKMJk96VFR8USh3FjFQOzpPLxT+YgAAAAABAE0AAAHvAowACwBNALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm4AAAQuQADAAH0ugAHAAAACxESObgABy+5AAUAAfS4AAsQuQAIAAH0MDETIRUhFTMVIxUhFSFNAZj++97eAQ/+XgKMfIN7lnwAAAAAAQBNAAAB6AKMAAkAQwC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAJLxu5AAkABD5ZuAAAELkAAwAB9LoABwAAAAkREjm4AAcvuQAFAAH0MDETIRUhFTMVIxUjTQGb/vji4pMCjHyXfP0AAAAAAQAu//QCRAKYACMATQC4AABFWLgABS8buQAFABA+WbgAAEVYuAAfLxu5AB8ABD5ZuAAFELkADAAB9LgAHxC5ABQAAfS6ABsABQAfERI5uAAbL7kAGQAB9DAxEzQ+AjMyFhcHLgEjIg4CFRQWMzI2NzUjNTMRDgEjIi4CLjNXdUJFZSBRGDUqJj8uGVtcFCYMbO4jckVCc1YxAUJRf1guNCFbFxodNk4xZW8KCnB4/tQhLitUfQAAAAEATQAAAlUCjAALAEkAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACy8buQALAAQ+WboACQAAAAsREjm4AAkvuQADAAH0uAAAELgABNC4AAsQuAAH0DAxEzMVMzUzESMRIxEjTZPhlJThkwKM+/v9dAEQ/vAAAQBNAAAA4AKMAAMAJQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAADLxu5AAMABD5ZMDETMxEjTZOTAoz9dAAAAAEAEP/0AbMCjAARACsAuAAARVi4AAcvG7kABwAQPlm4AABFWLgADi8buQAOAAQ+WbkAAwAB9DAxNx4BMzI2NREzERQOAiMiJid0EjAZKCmTGTNPNktlIrQhIDFBAaf+TS9UPiQ6PAAAAQBNAAACbAKMAAwAWwC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAELxu5AAQAED5ZuAAARVi4AAwvG7kADAAEPlm4AABFWLgACC8buQAIAAQ+WboAAgAAAAwREjm6AAkABAAIERI5MDETMxEzEzMDEyMDBxUjTZMEwqLF6aGfTJMCjP71AQv+/P54ARNkrwAAAQBNAAAB4gKMAAUAKwC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAFLxu5AAUABD5ZuQACAAH0MDETMxEhFSFNkwEC/msCjP3wfAAAAAEATQAAAq0CjAAdAG8AuAAARVi4AAAvG7kAAAAQPlm4AABFWLgABi8buQAGABA+WbgAAEVYuAAdLxu5AB0ABD5ZuAAARVi4AAkvG7kACQAEPlm6AAMABgAJERI5ugAQAAYACRESOboAEwAdAAYREjm6ABYAAAAdERI5MDETMxMXMzcTMxEjNTQ+AjcjDwEjLwEjHgMdASNNnG0nBCdqm4kEBgYDBDZkO2Q0BAMGBQSHAoz+23JyASX9dO8YOjs5GJf9/ZcYOTs6GO8AAAEATQAAAkwCjAATAFsAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACC8buQAIABA+WbgAAEVYuAATLxu5ABMABD5ZuAAARVi4AAsvG7kACwAEPlm6AAQACwAIERI5ugAOAAAAExESOTAxEzMTFzMuAT0BMxEjAycjHgEdASNNl6pABAUNjJeqQAQFDYwCjP68kDSAOub9dAFFjjZ8OucAAAACAC7/9AJ+ApgAEwAfADUAuAAARVi4AAovG7kACgAQPlm4AABFWLgAAC8buQAAAAQ+WbkAFAAB9LgAChC5ABoAAfQwMQUiLgI1ND4CMzIeAhUUDgInMjY1NCYjIgYVFBYBVkJtTisrTm1CQm1OKytObUJDTk5DQ05ODC9YflBQfVUtLVZ9T1B+WC9/c2Nibm5iY3MAAgBNAAACOgKMAA4AFgBDALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AA4vG7kADgAEPlm6AAwAAAAOERI5uAAML7kADwAB9LgAABC5ABUAAfQwMRMzMh4CFRQOAisBFSMTMjU0JisBFU3uNV1FKClGXDRbk+V4PTtSAowVMVE7OVQ2Gt0BUmgzKsUAAAACAC7/TgKgApgACwAqAEsAuAAARVi4ABwvG7kAHAAQPlm4AABFWLgAEi8buQASAAQ+WbsAJwABAA8ABCu4ABIQuQADAAH0uAAcELkACQAB9LgAEhC4ACTQMDETFBYzMjY1NCYjIgYBDgEjIiYnLgM1ND4CMzIeAhUUBgceATMyNjfFTkNDTk5DQ04B2xI7JmiPIzRVPCArTm1CQm1OK3BfF04qFSUOAUlpdHRpYm5u/bgJDGBNCzdWcUVQfVUtLVZ9T4SqGyIbBwUAAAACAE0AAAJTAowACAAYAFQAuAAARVi4AA4vG7kADgAQPlm4AABFWLgADC8buQAMAAQ+WbgAAEVYuAAJLxu5AAkABD5ZuwABAAEACgAEK7gADhC5AAgAAfS6ABcAAQAKERI5MDETMzI2NTQmKwETJyMVIxEzMh4CFRQGBxPgTD
}
@font-face {
font-family: 'Source Sans Pro';
font-style: italic;
font-weight: 400;
src: url(data:application/x-font-truetype;base64,AAEAAAARAQAABAAQR0RFRgNEA3IAAG18AAAAQEdQT1Oz7r2nAABtvAAAFhxHU1VCjb2NzgAAg9gAAABwT1MvMlq1lDoAAGQ0AAAAYGNtYXDzMPm1AABklAAAAeZjdnQgDZkA+gAAaDwAAAAoZnBnbQZZnDcAAGZ8AAABc2dhc3D//wADAABtdAAAAAhnbHlmQB3ERQAAARwAAFz4aGVhZP3Ms+oAAGAYAAAANmhoZWEIGwb0AABkEAAAACRobXR4lfkiLwAAYFAAAAPAbG9jYezv1iYAAF40AAAB4m1heHADCgJaAABeFAAAACBuYW1lJDg+sQAAaGQAAAHccG9zdNT1lfMAAGpAAAADMXByZXCXBvrrAABn8AAAAEsABQAkAAACbgKUAAMABgAJAA8AFQBxALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAIvG7kAAgAEPlm6AAQAAgAAERI5ugAFAAIAABESOboABwACAAAREjm6AAgAAgAAERI5uQAKAAH0ugAOAAIAABESObgAABC5ABEAAfS6ABUAAgAAERI5MDETIQMhEwM3FxMHAzMvASMHEzcjHwEzpgHIgv44sl6poWCr4fksHwRHoFrlKBwEApT9bAI//irr6wHW6/7kiGVlAR1/f10AAv/LAAAB1QKQAAkAEQBUALgAAEVYuAAOLxu5AA4AED5ZuAAARVi4ABEvG7kAEQAEPlm4AABFWLgADC8buQAMAAQ+WboABQAMAA4REjm6AAsADAAOERI5uAALL7kACQAB9DAxAScuAScjDgEPARcjByMBMxMjAWwKBQkEBBozHDrJ6GlWAWRaTFEBCXA0aTk5ZzZwPM0CkP1wAAAAAwAjAAACIAKQABMAHAAlAFcAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgAEy8buQATAAQ+WboAIwAAABMREjm4ACMvuQAcAAH0ugAJABwAIxESObgAABC5ABoAAfS4ABMQuQAdAAH0MDETMzIWFRQOAg8BHgEVFA4CKwETMjY1NCYrAQcTMjY1NCYrAQOmr19sGSo0GwEzRilKZDrS9l5aREtbLDNebk1JdDQCkElIITcqHAYEDEE4N08zGQF2RjgtMt3+x0RNMj3/AAAAAQA5//QCLQKcACEAOQC4AABFWLgABS8buQAFABA+WbgAAEVYuAAdLxu5AB0ABD5ZuAAFELkADAAB9LgAHRC5ABYAAfQwMTc0PgIzMhYXBy4BIyIOAhUUHgIzMjY3Fw4BIyIuAjkxWX1MOVAYNhQ1JjteQiQTKEAsKEMgIyRcPDhXOx/9TZV1SDcqKSAnPmJ5PC1LNh8gGzIgLCdGYQAAAAIAIwAAAjYCkAAKABUANQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAKLxu5AAoABD5ZuQALAAH0uAAAELkAEwAB9DAxEzMyFhUUDgIrATcyPgI1NCYrAQOmeomNMVuEU7CwQGZIJmZkNmoCkId5WZRpOkAxV3pJXmj97wABACMAAAIQApAACwBNALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm4AAAQuQACAAH0ugAGAAsAABESObgABi+5AAQAAfS4AAsQuQAJAAH0MDETIQchBzMHIwchByGmAWoN/uMq8Q7vMwEmDv6OApBB1UL2QgAAAAEAIwAAAhACkAAJAEMAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgACS8buQAJAAQ+WbgAABC5AAIAAfS6AAYAAAAJERI5uAAGL7kABAAB9DAxEyEHIQczByMDI6YBag3+4y3xDfA8TgKQQeRC/tcAAAABADn/9AI7ApwAJQBNALgAAEVYuAAFLxu5AAUAED5ZuAAARVi4ACEvG7kAIQAEPlm4AAUQuQAMAAH0uAAhELkAFgAB9LoAGgAFACEREjm4ABovuQAcAAH0MDE3ND4CMzIWFwcuASMiDgIVFB4CMzI2PwEjNzMDDgEjIi4COTFagVE7URk3EzcoPmJFJBMqQi8kOBQliA3OOSRdOTtbPh/9TpV1RzcqKSAnPmJ5PCxLOB8XEbVA/uQeJSZFYgAAAAABACMAAAJpApAACwBJALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAsvG7kACwAEPlm6AAgAAAALERI5uAAIL7kAAgAB9LgAABC4AATQuAALELgAB9AwMRMzAyETMwMjEyEDI6ZOOAEoOE2DTj/+2D5OApD+6wEV/XABOP7IAAAAAAEAIwAAAPQCkAADACUAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgAAi8buQACAAQ+WTAxEzMDI6ZOg04CkP1wAAAB//7/9AHIApAAEgArALgAAEVYuAAQLxu5ABAAED5ZuAAARVi4AAUvG7kABQAEPlm5AAwAAfQwMSUOAyMiJic3HgEzMjY3EzMDAWoIIjJEKztRFTMOOCoyPg1cTl64Kkg1HTcuKyQpSkIBzf4oAAAAAQAjAAACVwKQAAwASQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAMLxu5AAwABD5ZugACAAAADBESObgAABC4AATQuAAMELgACNC6AAkABAAIERI5MDETMwMzATMHEyMDDwEjpk5BAwFJWPaVUX6JLU4CkP68AUT8/mwBYobcAAABACMAAAGSApAABQArALgAAEVYuAAALxu5AAAAED5ZuAAARVi4AAQvG7kABAAEPlm5AAIAAfQwMRMzAyEHIaZOdgEUDf6eApD9skIAAQAjAAACvAKQABkAXQC4AABFWLgAAC8buQAAABA+WbgAAEVYuAAZLxu5ABkABD5ZuAAAELgABtC4ABkQuAAJ0LoAAwAGAAkREjm6AA0ACQAGERI5ugARABkAABESOboAFAAAABkREjkwMRMzExczNxMzAyMTPgE3IwcDIwMnIw4BBwMjpl05FgRGw12DS0wJGgwET8EsPRYEBg4ISkkCkP6eiIgBYv1wAXItaSuS/qQBXJItZy3+jgAAAAABACMAAAJmApAAEwBFALgAAEVYuAAALxu5AAAAED5ZuAAARVi4ABMvG7kAEwAEPlm4AAvQuAAAELgACNC6AAQACwAIERI5ugAOAAAAExESOTAxEzMTFzM+ATcTMwMjAycjDgEHAyOmTpYqBAYNC0VLg02UKwQGDwpGSwKQ/lyJMW0zAVz9cAGjjTNqMv6fAAACADz/9AJeApwAEwAlADkAuAAARVi4AAovG7kACgAQPlm4AABFWLgAAC8buQAAAAQ+WbgAChC5ABQAAfS4AAAQuQAeAAH0MDEFIi4CNTQ+AjMyHgIVFA4CEyIOAhUUHgIzMj4CNTQmAR83VTkeL1R1RzdVOR4vVHYSNVc+IhIlOic1Vz4iSgwnSGY+S5FzRidIZT5LknNGAmU8YHY6ME84Hz1gdjlhdQACACMAAAItApAADgAXAEcAuAAARVi4AAAvG7kAAAAQPlm4AABFWLgADS8buQANAAQ+WboACwAAAA0REjm4AAsvuAAAELkAFQAB9LgACxC5ABcAAfQwMRMzMh4CFRQOAisBAyMTMjY1NCYrAQOmuS5MNh4rTGk/aTRO7mZpTEhlNQKQEic8KzxYORv++AFHUE85M/71AAAAAAIAPP9eAl4CnAARAC8ASwC4AABFWLgAHy8buQAfABA+WbgAAEVYuAAXLxu5ABcABD5ZuwAUAAEALAAEK7gAFxC5AAUAAfS4AB8QuQANAAH0uAAXELgAKdAwMRMUHgIzMj4CNTQmIyIOAgEGIyImJy4BNTQ+AjMyHgIVFA4CBx4BMzI2N4sSJTonNVc+IkpONVc+IgGBISBUeBlUVi9UdUc3VTkeK05tQhFUNQ8aDgENME84Hz1gdjlhdTxgdv4iC0tRE45sS5FzRidIZT5IjXBKBiwqBAMAAAIAIwAAAicCkAAIABoAVAC4AABFWLgAGi8buQAaABA+WbgAAEVYuAAYLxu5ABgABD5ZuAAARVi4ABUvG7kAFQAEPlm7AAAAAQAWAAQruAAaELkABwAB9LoAEwAWAA
}
html{font-family:sans-serif;-ms-text-size-adjust:100%;-webkit-text-size-adjust:100%}body{margin:0}article,aside,details,figcaption,figure,footer,header,hgroup,main,menu,nav,section,summary{display:block}audio,canvas,progress,video{display:inline-block;vertical-align:baseline}audio:not([controls]){display:none;height:0}[hidden],template{display:none}a{background-color:transparent}a:active,a:hover{outline:0}abbr[title]{border-bottom:1px dotted}b,strong{font-weight:bold}dfn{font-style:italic}h1{font-size:2em;margin:0.67em 0}mark{background:#ff0;color:#000}small{font-size:80%}sub,sup{font-size:75%;line-height:0;position:relative;vertical-align:baseline}sup{top:-0.5em}sub{bottom:-0.25em}img{border:0}svg:not(:root){overflow:hidden}figure{margin:1em 40px}hr{-webkit-box-sizing:content-box;-moz-box-sizing:content-box;box-sizing:content-box;height:0}pre{overflow:auto}code,kbd,pre,samp{font-family:monospace, monospace;font-size:1em}button,input,optgroup,select,textarea{color:inherit;font:inherit;margin:0}button{overflow:visible}button,select{text-transform:none}button,html input[type="button"],input[type="reset"],input[type="submit"]{-webkit-appearance:button;cursor:pointer}button[disabled],html input[disabled]{cursor:default}button::-moz-focus-inner,input::-moz-focus-inner{border:0;padding:0}input{line-height:normal}input[type="checkbox"],input[type="radio"]{-webkit-box-sizing:border-box;-moz-box-sizing:border-box;box-sizing:border-box;padding:0}input[type="number"]::-webkit-inner-spin-button,input[type="number"]::-webkit-outer-spin-button{height:auto}input[type="search"]{-webkit-appearance:textfield;-webkit-box-sizing:content-box;-moz-box-sizing:content-box;box-sizing:content-box}input[type="search"]::-webkit-search-cancel-button,input[type="search"]::-webkit-search-decoration{-webkit-appearance:none}fieldset{border:1px solid #c0c0c0;margin:0 2px;padding:0.35em 0.625em 0.75em}legend{border:0;padding:0}textarea{overflow:auto}optgroup{font-weight:bold}table{border-collapse:collapse;border-spacing:0}td,th{padding:0}@media print{*,*:before,*:after{background:transparent !important;color:#000 !important;-webkit-box-shadow:none !important;box-shadow:none !important;text-shadow:none !important}a,a:visited{text-decoration:underline}a[href]:after{content:" (" attr(href) ")"}abbr[title]:after{content:" (" attr(title) ")"}a[href^="#"]:after,a[href^="javascript:"]:after{content:""}pre,blockquote{border:1px solid #999;page-break-inside:avoid}thead{display:table-header-group}tr,img{page-break-inside:avoid}img{max-width:100% !important}p,h2,h3{orphans:3;widows:3}h2,h3{page-break-after:avoid}.navbar{display:none}.btn>.caret,.dropup>.btn>.caret{border-top-color:#000 !important}.label{border:1px solid #000}.table{border-collapse:collapse !important}.table td,.table th{background-color:#fff !important}.table-bordered th,.table-bordered td{border:1px solid #ddd !important}}@font-face{font-family:'Glyphicons Halflings';src:url(data:application/vnd.ms-fontobject;base64,n04AAEFNAAACAAIABAAAAAAABQAAAAAAAAABAJABAAAEAExQAAAAAAAAAAIAAAAAAAAAAAEAAAAAAAAAJxJ/LAAAAAAAAAAAAAAAAAAAAAAAACgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzAAAADgBSAGUAZwB1AGwAYQByAAAAeABWAGUAcgBzAGkAbwBuACAAMQAuADAAMAA5ADsAUABTACAAMAAwADEALgAwADAAOQA7AGgAbwB0AGMAbwBuAHYAIAAxAC4AMAAuADcAMAA7AG0AYQBrAGUAbwB0AGYALgBsAGkAYgAyAC4ANQAuADUAOAAzADIAOQAAADgARwBMAFkAUABIAEkAQwBPAE4AUwAgAEgAYQBsAGYAbABpAG4AZwBzACAAUgBlAGcAdQBsAGEAcgAAAAAAQlNHUAAAAAAAAAAAAAAAAAAAAAADAKncAE0TAE0ZAEbuFM3pjM/SEdmjKHUbyow8ATBE40IvWA3vTu8LiABDQ+pexwUMcm1SMnNryctQSiI1K5ZnbOlXKmnVV5YvRe6RnNMFNCOs1KNVpn6yZhCJkRtVRNzEufeIq7HgSrcx4S8h/v4vnrrKc6oCNxmSk2uKlZQHBii6iKFoH0746ThvkO1kJHlxjrkxs+LWORaDQBEtiYJIR5IB9Bi1UyL4Rmr0BNigNkMzlKQmnofBHviqVzUxwdMb3NdCn69hy+pRYVKGVS/1tnsqv4LL7wCCPZZAZPT4aCShHjHJVNuXbmMrY5LeQaGnvAkXlVrJgKRAUdFjrWEah9XebPeQMj7KS7DIBAFt8ycgC5PLGUOHSE3ErGZCiViNLL5ZARfywnCoZaKQCu6NuFX42AEeKtKUGnr/Cm2Cy8tpFhBPMW5Fxi4Qm4TkDWh4IWFDClhU2hRWosUWqcKLlgyXB+lSHaWaHiWlBAR8SeSgSPCQxdVQgzUixWKSTrIQEbU94viDctkvX+VSjJuUmV8L4CXShI11esnp0pjWNZIyxKHS4wVQ2ime1P4RnhvGw0aDN1OLAXGERsB7buFpFGGBAre4QEQR0HOIO5oYH305G+KspT/FupEGGa
</style>
<script>/*!
* Bootstrap v3.3.5 (http://getbootstrap.com)
* Copyright 2011-2015 Twitter, Inc.
* Licensed under the MIT license
*/
if("undefined"==typeof jQuery)throw new Error("Bootstrap's JavaScript requires jQuery");+function(a){"use strict";var b=a.fn.jquery.split(" ")[0].split(".");if(b[0]<2&&b[1]<9||1==b[0]&&9==b[1]&&b[2]<1)throw new Error("Bootstrap's JavaScript requires jQuery version 1.9.1 or higher")}(jQuery),+function(a){"use strict";function b(){var a=document.createElement("bootstrap"),b={WebkitTransition:"webkitTransitionEnd",MozTransition:"transitionend",OTransition:"oTransitionEnd otransitionend",transition:"transitionend"};for(var c in b)if(void 0!==a.style[c])return{end:b[c]};return!1}a.fn.emulateTransitionEnd=function(b){var c=!1,d=this;a(this).one("bsTransitionEnd",function(){c=!0});var e=function(){c||a(d).trigger(a.support.transition.end)};return setTimeout(e,b),this},a(function(){a.support.transition=b(),a.support.transition&&(a.event.special.bsTransitionEnd={bindType:a.support.transition.end,delegateType:a.support.transition.end,handle:function(b){return a(b.target).is(this)?b.handleObj.handler.apply(this,arguments):void 0}})})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var c=a(this),e=c.data("bs.alert");e||c.data("bs.alert",e=new d(this)),"string"==typeof b&&e[b].call(c)})}var c='[data-dismiss="alert"]',d=function(b){a(b).on("click",c,this.close)};d.VERSION="3.3.5",d.TRANSITION_DURATION=150,d.prototype.close=function(b){function c(){g.detach().trigger("closed.bs.alert").remove()}var e=a(this),f=e.attr("data-target");f||(f=e.attr("href"),f=f&&f.replace(/.*(?=#[^\s]*$)/,""));var g=a(f);b&&b.preventDefault(),g.length||(g=e.closest(".alert")),g.trigger(b=a.Event("close.bs.alert")),b.isDefaultPrevented()||(g.removeClass("in"),a.support.transition&&g.hasClass("fade")?g.one("bsTransitionEnd",c).emulateTransitionEnd(d.TRANSITION_DURATION):c())};var e=a.fn.alert;a.fn.alert=b,a.fn.alert.Constructor=d,a.fn.alert.noConflict=function(){return a.fn.alert=e,this},a(document).on("click.bs.alert.data-api",c,d.prototype.close)}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.button"),f="object"==typeof b&&b;e||d.data("bs.button",e=new c(this,f)),"toggle"==b?e.toggle():b&&e.setState(b)})}var c=function(b,d){this.$element=a(b),this.options=a.extend({},c.DEFAULTS,d),this.isLoading=!1};c.VERSION="3.3.5",c.DEFAULTS={loadingText:"loading..."},c.prototype.setState=function(b){var c="disabled",d=this.$element,e=d.is("input")?"val":"html",f=d.data();b+="Text",null==f.resetText&&d.data("resetText",d[e]()),setTimeout(a.proxy(function(){d[e](null==f[b]?this.options[b]:f[b]),"loadingText"==b?(this.isLoading=!0,d.addClass(c).attr(c,c)):this.isLoading&&(this.isLoading=!1,d.removeClass(c).removeAttr(c))},this),0)},c.prototype.toggle=function(){var a=!0,b=this.$element.closest('[data-toggle="buttons"]');if(b.length){var c=this.$element.find("input");"radio"==c.prop("type")?(c.prop("checked")&&(a=!1),b.find(".active").removeClass("active"),this.$element.addClass("active")):"checkbox"==c.prop("type")&&(c.prop("checked")!==this.$element.hasClass("active")&&(a=!1),this.$element.toggleClass("active")),c.prop("checked",this.$element.hasClass("active")),a&&c.trigger("change")}else this.$element.attr("aria-pressed",!this.$element.hasClass("active")),this.$element.toggleClass("active")};var d=a.fn.button;a.fn.button=b,a.fn.button.Constructor=c,a.fn.button.noConflict=function(){return a.fn.button=d,this},a(document).on("click.bs.button.data-api",'[data-toggle^="button"]',function(c){var d=a(c.target);d.hasClass("btn")||(d=d.closest(".btn")),b.call(d,"toggle"),a(c.target).is('input[type="radio"]')||a(c.target).is('input[type="checkbox"]')||c.preventDefault()}).on("focus.bs.button.data-api blur.bs.button.data-api",'[data-toggle^="button"]',function(b){a(b.target).closest(".btn").toggleClass("focus",/^focus(in)?$/.test(b.type))})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.carousel"),f=a.extend({},c.DEFAULTS,d.data(),"object"==typeof b&&b),g="string"==typeof b?b:f.slide;e||d.data("bs.carousel",e=new c(this,f)),"number"==type
d.trigger("activate.bs.scrollspy")},b.prototype.clear=function(){a(this.selector).parentsUntil(this.options.target,".active").removeClass("active")};var d=a.fn.scrollspy;a.fn.scrollspy=c,a.fn.scrollspy.Constructor=b,a.fn.scrollspy.noConflict=function(){return a.fn.scrollspy=d,this},a(window).on("load.bs.scrollspy.data-api",function(){a('[data-spy="scroll"]').each(function(){var b=a(this);c.call(b,b.data())})})}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.tab");e||d.data("bs.tab",e=new c(this)),"string"==typeof b&&e[b]()})}var c=function(b){this.element=a(b)};c.VERSION="3.3.5",c.TRANSITION_DURATION=150,c.prototype.show=function(){var b=this.element,c=b.closest("ul:not(.dropdown-menu)"),d=b.data("target");if(d||(d=b.attr("href"),d=d&&d.replace(/.*(?=#[^\s]*$)/,"")),!b.parent("li").hasClass("active")){var e=c.find(".active:last a"),f=a.Event("hide.bs.tab",{relatedTarget:b[0]}),g=a.Event("show.bs.tab",{relatedTarget:e[0]});if(e.trigger(f),b.trigger(g),!g.isDefaultPrevented()&&!f.isDefaultPrevented()){var h=a(d);this.activate(b.closest("li"),c),this.activate(h,h.parent(),function(){e.trigger({type:"hidden.bs.tab",relatedTarget:b[0]}),b.trigger({type:"shown.bs.tab",relatedTarget:e[0]})})}}},c.prototype.activate=function(b,d,e){function f(){g.removeClass("active").find("> .dropdown-menu > .active").removeClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",!1),b.addClass("active").find('[data-toggle="tab"]').attr("aria-expanded",!0),h?(b[0].offsetWidth,b.addClass("in")):b.removeClass("fade"),b.parent(".dropdown-menu").length&&b.closest("li.dropdown").addClass("active").end().find('[data-toggle="tab"]').attr("aria-expanded",!0),e&&e()}var g=d.find("> .active"),h=e&&a.support.transition&&(g.length&&g.hasClass("fade")||!!d.find("> .fade").length);g.length&&h?g.one("bsTransitionEnd",f).emulateTransitionEnd(c.TRANSITION_DURATION):f(),g.removeClass("in")};var d=a.fn.tab;a.fn.tab=b,a.fn.tab.Constructor=c,a.fn.tab.noConflict=function(){return a.fn.tab=d,this};var e=function(c){c.preventDefault(),b.call(a(this),"show")};a(document).on("click.bs.tab.data-api",'[data-toggle="tab"]',e).on("click.bs.tab.data-api",'[data-toggle="pill"]',e)}(jQuery),+function(a){"use strict";function b(b){return this.each(function(){var d=a(this),e=d.data("bs.affix"),f="object"==typeof b&&b;e||d.data("bs.affix",e=new c(this,f)),"string"==typeof b&&e[b]()})}var c=function(b,d){this.options=a.extend({},c.DEFAULTS,d),this.$target=a(this.options.target).on("scroll.bs.affix.data-api",a.proxy(this.checkPosition,this)).on("click.bs.affix.data-api",a.proxy(this.checkPositionWithEventLoop,this)),this.$element=a(b),this.affixed=null,this.unpin=null,this.pinnedOffset=null,this.checkPosition()};c.VERSION="3.3.5",c.RESET="affix affix-top affix-bottom",c.DEFAULTS={offset:0,target:window},c.prototype.getState=function(a,b,c,d){var e=this.$target.scrollTop(),f=this.$element.offset(),g=this.$target.height();if(null!=c&&"top"==this.affixed)return c>e?"top":!1;if("bottom"==this.affixed)return null!=c?e+this.unpin<=f.top?!1:"bottom":a-d>=e+g?!1:"bottom";var h=null==this.affixed,i=h?e:f.top,j=h?g:b;return null!=c&&c>=e?"top":null!=d&&i+j>=a-d?"bottom":!1},c.prototype.getPinnedOffset=function(){if(this.pinnedOffset)return this.pinnedOffset;this.$element.removeClass(c.RESET).addClass("affix");var a=this.$target.scrollTop(),b=this.$element.offset();return this.pinnedOffset=b.top-a},c.prototype.checkPositionWithEventLoop=function(){setTimeout(a.proxy(this.checkPosition,this),1)},c.prototype.checkPosition=function(){if(this.$element.is(":visible")){var b=this.$element.height(),d=this.options.offset,e=d.top,f=d.bottom,g=Math.max(a(document).height(),a(document.body).height());"object"!=typeof d&&(f=e=d),"function"==typeof e&&(e=d.top(this.$element)),"function"==typeof f&&(f=d.bottom(this.$element));var h=this.getState(g,b,e,f);if(this.affixed!=h){null!=this.unpin&&this.$element.css("top","");var i="affix"+(h?"-"+h:""),j=a.Event(i+".bs.affix");if(this.$element.trigger(j),j.isDefaultPrevented())return;this.affi
<script>/**
* @preserve HTML5 Shiv 3.7.2 | @afarkas @jdalton @jon_neal @rem | MIT/GPL2 Licensed
*/
// Only run this code in IE 8
if (!!window.navigator.userAgent.match("MSIE 8")) {
!function(a,b){function c(a,b){var c=a.createElement("p"),d=a.getElementsByTagName("head")[0]||a.documentElement;return c.innerHTML="x<style>"+b+"</style>",d.insertBefore(c.lastChild,d.firstChild)}function d(){var a=t.elements;return"string"==typeof a?a.split(" "):a}function e(a,b){var c=t.elements;"string"!=typeof c&&(c=c.join(" ")),"string"!=typeof a&&(a=a.join(" ")),t.elements=c+" "+a,j(b)}function f(a){var b=s[a[q]];return b||(b={},r++,a[q]=r,s[r]=b),b}function g(a,c,d){if(c||(c=b),l)return c.createElement(a);d||(d=f(c));var e;return e=d.cache[a]?d.cache[a].cloneNode():p.test(a)?(d.cache[a]=d.createElem(a)).cloneNode():d.createElem(a),!e.canHaveChildren||o.test(a)||e.tagUrn?e:d.frag.appendChild(e)}function h(a,c){if(a||(a=b),l)return a.createDocumentFragment();c=c||f(a);for(var e=c.frag.cloneNode(),g=0,h=d(),i=h.length;i>g;g++)e.createElement(h[g]);return e}function i(a,b){b.cache||(b.cache={},b.createElem=a.createElement,b.createFrag=a.createDocumentFragment,b.frag=b.createFrag()),a.createElement=function(c){return t.shivMethods?g(c,a,b):b.createElem(c)},a.createDocumentFragment=Function("h,f","return function(){var n=f.cloneNode(),c=n.createElement;h.shivMethods&&("+d().join().replace(/[\w\-:]+/g,function(a){return b.createElem(a),b.frag.createElement(a),'c("'+a+'")'})+");return n}")(t,b.frag)}function j(a){a||(a=b);var d=f(a);return!t.shivCSS||k||d.hasCSS||(d.hasCSS=!!c(a,"article,aside,dialog,figcaption,figure,footer,header,hgroup,main,nav,section{display:block}mark{background:#FF0;color:#000}template{display:none}")),l||i(a,d),a}var k,l,m="3.7.2",n=a.html5||{},o=/^<|^(?:button|map|select|textarea|object|iframe|option|optgroup)$/i,p=/^(?:a|b|code|div|fieldset|h1|h2|h3|h4|h5|h6|i|label|li|ol|p|q|span|strong|style|table|tbody|td|th|tr|ul)$/i,q="_html5shiv",r=0,s={};!function(){try{var a=b.createElement("a");a.innerHTML="<xyz></xyz>",k="hidden"in a,l=1==a.childNodes.length||function(){b.createElement("a");var a=b.createDocumentFragment();return"undefined"==typeof a.cloneNode||"undefined"==typeof a.createDocumentFragment||"undefined"==typeof a.createElement}()}catch(c){k=!0,l=!0}}();var t={elements:n.elements||"abbr article aside audio bdi canvas data datalist details dialog figcaption figure footer header hgroup main mark meter nav output picture progress section summary template time video",version:m,shivCSS:n.shivCSS!==!1,supportsUnknownElements:l,shivMethods:n.shivMethods!==!1,type:"default",shivDocument:j,createElement:g,createDocumentFragment:h,addElements:e};a.html5=t,j(b)}(this,document);
};
</script>
<script>/*! Respond.js v1.4.2: min/max-width media query polyfill * Copyright 2013 Scott Jehl
* Licensed under https://github.com/scottjehl/Respond/blob/master/LICENSE-MIT
* */
// Only run this code in IE 8
if (!!window.navigator.userAgent.match("MSIE 8")) {
!function(a){"use strict";a.matchMedia=a.matchMedia||function(a){var b,c=a.documentElement,d=c.firstElementChild||c.firstChild,e=a.createElement("body"),f=a.createElement("div");return f.id="mq-test-1",f.style.cssText="position:absolute;top:-100em",e.style.background="none",e.appendChild(f),function(a){return f.innerHTML='&shy;<style media="'+a+'"> #mq-test-1 { width: 42px; }</style>',c.insertBefore(e,d),b=42===f.offsetWidth,c.removeChild(e),{matches:b,media:a}}}(a.document)}(this),function(a){"use strict";function b(){u(!0)}var c={};a.respond=c,c.update=function(){};var d=[],e=function(){var b=!1;try{b=new a.XMLHttpRequest}catch(c){b=new a.ActiveXObject("Microsoft.XMLHTTP")}return function(){return b}}(),f=function(a,b){var c=e();c&&(c.open("GET",a,!0),c.onreadystatechange=function(){4!==c.readyState||200!==c.status&&304!==c.status||b(c.responseText)},4!==c.readyState&&c.send(null))};if(c.ajax=f,c.queue=d,c.regex={media:/@media[^\{]+\{([^\{\}]*\{[^\}\{]*\})+/gi,keyframes:/@(?:\-(?:o|moz|webkit)\-)?keyframes[^\{]+\{(?:[^\{\}]*\{[^\}\{]*\})+[^\}]*\}/gi,urls:/(url\()['"]?([^\/\)'"][^:\)'"]+)['"]?(\))/g,findStyles:/@media *([^\{]+)\{([\S\s]+?)$/,only:/(only\s+)?([a-zA-Z]+)\s?/,minw:/\([\s]*min\-width\s*:[\s]*([\s]*[0-9\.]+)(px|em)[\s]*\)/,maxw:/\([\s]*max\-width\s*:[\s]*([\s]*[0-9\.]+)(px|em)[\s]*\)/},c.mediaQueriesSupported=a.matchMedia&&null!==a.matchMedia("only all")&&a.matchMedia("only all").matches,!c.mediaQueriesSupported){var g,h,i,j=a.document,k=j.documentElement,l=[],m=[],n=[],o={},p=30,q=j.getElementsByTagName("head")[0]||k,r=j.getElementsByTagName("base")[0],s=q.getElementsByTagName("link"),t=function(){var a,b=j.createElement("div"),c=j.body,d=k.style.fontSize,e=c&&c.style.fontSize,f=!1;return b.style.cssText="position:absolute;font-size:1em;width:1em",c||(c=f=j.createElement("body"),c.style.background="none"),k.style.fontSize="100%",c.style.fontSize="100%",c.appendChild(b),f&&k.insertBefore(c,k.firstChild),a=b.offsetWidth,f?k.removeChild(c):c.removeChild(b),k.style.fontSize=d,e&&(c.style.fontSize=e),a=i=parseFloat(a)},u=function(b){var c="clientWidth",d=k[c],e="CSS1Compat"===j.compatMode&&d||j.body[c]||d,f={},o=s[s.length-1],r=(new Date).getTime();if(b&&g&&p>r-g)return a.clearTimeout(h),h=a.setTimeout(u,p),void 0;g=r;for(var v in l)if(l.hasOwnProperty(v)){var w=l[v],x=w.minw,y=w.maxw,z=null===x,A=null===y,B="em";x&&(x=parseFloat(x)*(x.indexOf(B)>-1?i||t():1)),y&&(y=parseFloat(y)*(y.indexOf(B)>-1?i||t():1)),w.hasquery&&(z&&A||!(z||e>=x)||!(A||y>=e))||(f[w.media]||(f[w.media]=[]),f[w.media].push(m[w.rules]))}for(var C in n)n.hasOwnProperty(C)&&n[C]&&n[C].parentNode===q&&q.removeChild(n[C]);n.length=0;for(var D in f)if(f.hasOwnProperty(D)){var E=j.createElement("style"),F=f[D].join("\n");E.type="text/css",E.media=D,q.insertBefore(E,o.nextSibling),E.styleSheet?E.styleSheet.cssText=F:E.appendChild(j.createTextNode(F)),n.push(E)}},v=function(a,b,d){var e=a.replace(c.regex.keyframes,"").match(c.regex.media),f=e&&e.length||0;b=b.substring(0,b.lastIndexOf("/"));var g=function(a){return a.replace(c.regex.urls,"$1"+b+"$2$3")},h=!f&&d;b.length&&(b+="/"),h&&(f=1);for(var i=0;f>i;i++){var j,k,n,o;h?(j=d,m.push(g(a))):(j=e[i].match(c.regex.findStyles)&&RegExp.$1,m.push(RegExp.$2&&g(RegExp.$2))),n=j.split(","),o=n.length;for(var p=0;o>p;p++)k=n[p],l.push({media:k.split("(")[0].match(c.regex.only)&&RegExp.$2||"all",rules:m.length-1,hasquery:k.indexOf("(")>-1,minw:k.match(c.regex.minw)&&parseFloat(RegExp.$1)+(RegExp.$2||""),maxw:k.match(c.regex.maxw)&&parseFloat(RegExp.$1)+(RegExp.$2||"")})}u()},w=function(){if(d.length){var b=d.shift();f(b.href,function(c){v(c,b.href,b.media),o[b.href]=!0,a.setTimeout(function(){w()},0)})}},x=function(){for(var b=0;b<s.length;b++){var c=s[b],e=c.href,f=c.media,g=c.rel&&"stylesheet"===c.rel.toLowerCase();e&&g&&!o[e]&&(c.styleSheet&&c.styleSheet.rawCssText?(v(c.styleSheet.rawCssText,e,f),o[e]=!0):(!/^([a-zA-Z:]*\/\/)/.test(e)&&!r||e.replace(RegExp.$1,"").split("/")[0]===a.location.host)&&("//"===e.substring(0,2)&&(e=a.location.protocol+e),d.push({href:e,media:f})))}w()};x(),c.update=x,c.getEmVal
};
</script>
<style>h1 {font-size: 34px;}
h1.title {font-size: 38px;}
h2 {font-size: 30px;}
h3 {font-size: 24px;}
h4 {font-size: 18px;}
h5 {font-size: 16px;}
h6 {font-size: 12px;}
code {color: inherit; background-color: rgba(0, 0, 0, 0.04);}
pre:not([class]) { background-color: white }</style>
<script>
/**
* jQuery Plugin: Sticky Tabs
*
* @author Aidan Lister <aidan@php.net>
* adapted by Ruben Arslan to activate parent tabs too
* http://www.aidanlister.com/2014/03/persisting-the-tab-state-in-bootstrap/
*/
(function($) {
"use strict";
$.fn.rmarkdownStickyTabs = function() {
var context = this;
// Show the tab corresponding with the hash in the URL, or the first tab
var showStuffFromHash = function() {
var hash = window.location.hash;
var selector = hash ? 'a[href="' + hash + '"]' : 'li.active > a';
var $selector = $(selector, context);
if($selector.data('toggle') === "tab") {
$selector.tab('show');
// walk up the ancestors of this element, show any hidden tabs
$selector.parents('.section.tabset').each(function(i, elm) {
var link = $('a[href="#' + $(elm).attr('id') + '"]');
if(link.data('toggle') === "tab") {
link.tab("show");
}
});
}
};
// Set the correct tab when the page loads
showStuffFromHash(context);
// Set the correct tab when a user uses their back/forward button
$(window).on('hashchange', function() {
showStuffFromHash(context);
});
// Change the URL when tabs are clicked
$('a', context).on('click', function(e) {
history.pushState(null, null, this.href);
showStuffFromHash(context);
});
return this;
};
}(jQuery));
window.buildTabsets = function(tocID) {
// build a tabset from a section div with the .tabset class
function buildTabset(tabset) {
// check for fade and pills options
var fade = tabset.hasClass("tabset-fade");
var pills = tabset.hasClass("tabset-pills");
var navClass = pills ? "nav-pills" : "nav-tabs";
// determine the heading level of the tabset and tabs
var match = tabset.attr('class').match(/level(\d) /);
if (match === null)
return;
var tabsetLevel = Number(match[1]);
var tabLevel = tabsetLevel + 1;
// find all subheadings immediately below
var tabs = tabset.find("div.section.level" + tabLevel);
if (!tabs.length)
return;
// create tablist and tab-content elements
var tabList = $('<ul class="nav ' + navClass + '" role="tablist"></ul>');
$(tabs[0]).before(tabList);
var tabContent = $('<div class="tab-content"></div>');
$(tabs[0]).before(tabContent);
// build the tabset
var activeTab = 0;
tabs.each(function(i) {
// get the tab div
var tab = $(tabs[i]);
// get the id then sanitize it for use with bootstrap tabs
var id = tab.attr('id');
// see if this is marked as the active tab
if (tab.hasClass('active'))
activeTab = i;
// remove any table of contents entries associated with
// this ID (since we'll be removing the heading element)
$("div#" + tocID + " li a[href='#" + id + "']").parent().remove();
// sanitize the id for use with bootstrap tabs
id = id.replace(/[.\/?&!#<>]/g, '').replace(/\s/g, '_');
tab.attr('id', id);
// get the heading element within it, grab it's text, then remove it
var heading = tab.find('h' + tabLevel + ':first');
var headingText = heading.html();
heading.remove();
// build and append the tab list item
var a = $('<a role="tab" data-toggle="tab">' + headingText + '</a>');
a.attr('href', '#' + id);
a.attr('aria-controls', id);
var li = $('<li role="presentation"></li>');
li.append(a);
tabList.append(li);
// set it's attributes
tab.attr('role', 'tabpanel');
tab.addClass('tab-pane');
tab.addClass('tabbed-pane');
if (fade)
tab.addClass('fade');
// move it into the tab content div
tab.detach().appendTo(tabContent);
});
// set active tab
$(tabList.children('li')[activeTab]).addClass('active');
var active = $(tabContent.children('div.section')[activeTab]);
active.addClass('active');
if (fade)
active.addClass('in');
if (tabset.hasClass("tabset-sticky"))
tabset.rmarkdownStickyTabs();
}
// convert section divs with the .tabset class to tabsets
var tabsets = $("div.section.tabset");
tabsets.each(function(i) {
buildTabset($(tabsets[i]));
});
};
</script>
<script>
window.initializeCodeFolding = function(show) {
// handlers for show-all and hide all
$("#rmd-show-all-code").click(function() {
$('div.r-code-collapse').each(function() {
$(this).collapse('show');
});
});
$("#rmd-hide-all-code").click(function() {
$('div.r-code-collapse').each(function() {
$(this).collapse('hide');
});
});
// index for unique code element ids
var currentIndex = 1;
// select all R code blocks
var rCodeBlocks = $('pre.r, pre.python, pre.bash, pre.sql, pre.cpp, pre.stan, pre.julia, pre.foldable');
rCodeBlocks.each(function() {
// create a collapsable div to wrap the code in
var div = $('<div class="collapse r-code-collapse"></div>');
var showThis = (show || $(this).hasClass('fold-show')) && !$(this).hasClass('fold-hide');
if (showThis) div.collapse('show');
var id = 'rcode-643E0F36' + currentIndex++;
div.attr('id', id);
$(this).before(div);
$(this).detach().appendTo(div);
// add a show code button right above
var showCodeText = $('<span>' + (showThis ? 'Hide' : 'Code') + '</span>');
var showCodeButton = $('<button type="button" class="btn btn-default btn-xs btn-secondary btn-sm code-folding-btn pull-right float-right"></button>');
showCodeButton.append(showCodeText);
showCodeButton
.attr('data-toggle', 'collapse')
.attr('data-target', '#' + id)
.attr('aria-expanded', showThis)
.attr('aria-controls', id);
var buttonRow = $('<div class="row"></div>');
var buttonCol = $('<div class="col-md-12"></div>');
buttonCol.append(showCodeButton);
buttonRow.append(buttonCol);
div.before(buttonRow);
// update state of button on show/hide
div.on('hidden.bs.collapse', function () {
showCodeText.text('Code');
});
div.on('show.bs.collapse', function () {
showCodeText.text('Hide');
});
});
}
</script>
<script>// Hide empty <a> tag within highlighted CodeBlock for screen reader accessibility (see https://github.com/jgm/pandoc/issues/6352#issuecomment-626106786) -->
// v0.0.1
// Written by JooYoung Seo (jooyoung@psu.edu) and Atsushi Yasumoto on June 1st, 2020.
document.addEventListener('DOMContentLoaded', function() {
const codeList = document.getElementsByClassName("sourceCode");
for (var i = 0; i < codeList.length; i++) {
var linkList = codeList[i].getElementsByTagName('a');
for (var j = 0; j < linkList.length; j++) {
if (linkList[j].innerHTML === "") {
linkList[j].setAttribute('aria-hidden', 'true');
}
}
}
});
</script>
<style type="text/css">
code{white-space: pre-wrap;}
span.smallcaps{font-variant: small-caps;}
span.underline{text-decoration: underline;}
div.column{display: inline-block; vertical-align: top; width: 50%;}
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
ul.task-list{list-style: none;}
</style>
<style type="text/css">
code {
white-space: pre;
}
.sourceCode {
overflow: visible;
}
</style>
<style type="text/css" data-origin="pandoc">
code.sourceCode > span { display: inline-block; line-height: 1.25; }
code.sourceCode > span { color: inherit; text-decoration: inherit; }
code.sourceCode > span:empty { height: 1.2em; }
.sourceCode { overflow: visible; }
code.sourceCode { white-space: pre; position: relative; }
div.sourceCode { margin: 1em 0; }
pre.sourceCode { margin: 0; }
@media screen {
div.sourceCode { overflow: auto; }
}
@media print {
code.sourceCode { white-space: pre-wrap; }
code.sourceCode > span { text-indent: -5em; padding-left: 5em; }
}
pre.numberSource code
{ counter-reset: source-line 0; }
pre.numberSource code > span
{ position: relative; left: -4em; counter-increment: source-line; }
pre.numberSource code > span > a:first-child::before
{ content: counter(source-line);
position: relative; left: -1em; text-align: right; vertical-align: baseline;
border: none; display: inline-block;
-webkit-touch-callout: none; -webkit-user-select: none;
-khtml-user-select: none; -moz-user-select: none;
-ms-user-select: none; user-select: none;
padding: 0 4px; width: 4em;
color: #aaaaaa;
}
pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-left: 4px; }
div.sourceCode
{ background-color: #f8f8f8; }
@media screen {
code.sourceCode > span > a:first-child::before { text-decoration: underline; }
}
code span.al { color: #ef2929; } /* Alert */
code span.an { color: #8f5902; font-weight: bold; font-style: italic; } /* Annotation */
code span.at { color: #c4a000; } /* Attribute */
code span.bn { color: #0000cf; } /* BaseN */
code span.cf { color: #204a87; font-weight: bold; } /* ControlFlow */
code span.ch { color: #4e9a06; } /* Char */
code span.cn { color: #000000; } /* Constant */
code span.co { color: #8f5902; font-style: italic; } /* Comment */
code span.cv { color: #8f5902; font-weight: bold; font-style: italic; } /* CommentVar */
code span.do { color: #8f5902; font-weight: bold; font-style: italic; } /* Documentation */
code span.dt { color: #204a87; } /* DataType */
code span.dv { color: #0000cf; } /* DecVal */
code span.er { color: #a40000; font-weight: bold; } /* Error */
code span.ex { } /* Extension */
code span.fl { color: #0000cf; } /* Float */
code span.fu { color: #000000; } /* Function */
code span.im { } /* Import */
code span.in { color: #8f5902; font-weight: bold; font-style: italic; } /* Information */
code span.kw { color: #204a87; font-weight: bold; } /* Keyword */
code span.op { color: #ce5c00; font-weight: bold; } /* Operator */
code span.ot { color: #8f5902; } /* Other */
code span.pp { color: #8f5902; font-style: italic; } /* Preprocessor */
code span.sc { color: #000000; } /* SpecialChar */
code span.ss { color: #4e9a06; } /* SpecialString */
code span.st { color: #4e9a06; } /* String */
code span.va { color: #000000; } /* Variable */
code span.vs { color: #4e9a06; } /* VerbatimString */
code span.wa { color: #8f5902; font-weight: bold; font-style: italic; } /* Warning */
.sourceCode .row {
width: 100%;
}
.sourceCode {
overflow-x: auto;
}
.code-folding-btn {
margin-right: -30px;
}
</style>
<script>
// apply pandoc div.sourceCode style to pre.sourceCode instead
(function() {
var sheets = document.styleSheets;
for (var i = 0; i < sheets.length; i++) {
if (sheets[i].ownerNode.dataset["origin"] !== "pandoc") continue;
try { var rules = sheets[i].cssRules; } catch (e) { continue; }
for (var j = 0; j < rules.length; j++) {
var rule = rules[j];
// check if there is a div.sourceCode rule
if (rule.type !== rule.STYLE_RULE || rule.selectorText !== "div.sourceCode") continue;
var style = rule.style.cssText;
// check if color or background-color is set
if (rule.style.color === '' && rule.style.backgroundColor === '') continue;
// replace div.sourceCode by a pre.sourceCode rule
sheets[i].deleteRule(j);
sheets[i].insertRule('pre.sourceCode{' + style + '}', j);
}
}
})();
</script>
<style type="text/css">
.main-container {
max-width: 940px;
margin-left: auto;
margin-right: auto;
}
img {
max-width:100%;
}
.tabbed-pane {
padding-top: 12px;
}
.html-widget {
margin-bottom: 20px;
}
button.code-folding-btn:focus {
outline: none;
}
summary {
display: list-item;
}
pre code {
padding: 0;
}
</style>
<!-- tabsets -->
<style type="text/css">
.tabset-dropdown > .nav-tabs {
display: inline-table;
max-height: 500px;
min-height: 44px;
overflow-y: auto;
border: 1px solid #ddd;
border-radius: 4px;
}
.tabset-dropdown > .nav-tabs > li.active:before {
content: "";
font-family: 'Glyphicons Halflings';
display: inline-block;
padding: 10px;
border-right: 1px solid #ddd;
}
.tabset-dropdown > .nav-tabs.nav-tabs-open > li.active:before {
content: "";
border: none;
}
.tabset-dropdown > .nav-tabs.nav-tabs-open:before {
content: "";
font-family: 'Glyphicons Halflings';
display: inline-block;
padding: 10px;
border-right: 1px solid #ddd;
}
.tabset-dropdown > .nav-tabs > li.active {
display: block;
}
.tabset-dropdown > .nav-tabs > li > a,
.tabset-dropdown > .nav-tabs > li > a:focus,
.tabset-dropdown > .nav-tabs > li > a:hover {
border: none;
display: inline-block;
border-radius: 4px;
background-color: transparent;
}
.tabset-dropdown > .nav-tabs.nav-tabs-open > li {
display: block;
float: none;
}
.tabset-dropdown > .nav-tabs > li {
display: none;
}
</style>
<!-- code folding -->
<style type="text/css">
.code-folding-btn { margin-bottom: 4px; }
</style>
</head>
<body>
<div class="container-fluid main-container">
<div id="header">
<div class="btn-group pull-right float-right">
<button type="button" class="btn btn-default btn-xs btn-secondary btn-sm dropdown-toggle" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"><span>Code</span> <span class="caret"></span></button>
<ul class="dropdown-menu dropdown-menu-right" style="min-width: 50px;">
<li><a id="rmd-show-all-code" href="#">Show All Code</a></li>
<li><a id="rmd-hide-all-code" href="#">Hide All Code</a></li>
</ul>
</div>
<h1 class="title toc-ignore">Finance Transformation Survey Result</h1>
<h4 class="author">Asitav Sen</h4>
<h4 class="date">23/02/2021</h4>
</div>
<div id="intro" class="section level2">
<h2>Intro</h2>
<p>Here’s the report you asked for.</p>
</div>
<div id="data-extraction" class="section level2">
<h2>Data Extraction</h2>
<p>Data extracted directly from ODK central and cleaned.</p>
<div class="sourceCode" id="cb1"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1"></a>form_tables &lt;-<span class="st"> </span>ruODK<span class="op">::</span><span class="kw">odata_service_get</span>()</span>
<span id="cb1-2"><a href="#cb1-2"></a>data &lt;-<span class="st"> </span>ruODK<span class="op">::</span><span class="kw">odata_submission_get</span>()</span>
<span id="cb1-3"><a href="#cb1-3"></a></span>
<span id="cb1-4"><a href="#cb1-4"></a>data&lt;-</span>
<span id="cb1-5"><a href="#cb1-5"></a><span class="st"> </span>data<span class="op">%&gt;%</span></span>
<span id="cb1-6"><a href="#cb1-6"></a><span class="st"> </span><span class="kw">select</span>(<span class="op">-</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">3</span>,<span class="dv">4</span><span class="op">:</span><span class="dv">7</span>,<span class="dv">130</span><span class="op">:</span><span class="dv">131</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-7"><a href="#cb1-7"></a><span class="st"> </span><span class="kw">pivot_longer</span>(<span class="kw">c</span>(<span class="dv">2</span><span class="op">:</span><span class="dv">123</span>),<span class="st">&quot;Questions&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb1-8"><a href="#cb1-8"></a><span class="st"> </span><span class="kw">separate</span>(Questions, <span class="dt">into =</span> <span class="kw">c</span>(<span class="st">&quot;Status&quot;</span>,<span class="st">&quot;State&quot;</span>,<span class="st">&quot;group_1&quot;</span>,<span class="st">&quot;group_2&quot;</span>,<span class="st">&quot;sub_group_1&quot;</span>,<span class="st">&quot;sub_group_2&quot;</span>,<span class="st">&quot;sub_group_3&quot;</span>,</span>
<span id="cb1-9"><a href="#cb1-9"></a> <span class="st">&quot;sub_group_4&quot;</span>,<span class="st">&quot;sub_group_5&quot;</span>,<span class="st">&quot;question&quot;</span>), <span class="dt">sep=</span><span class="st">&quot;_&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb1-10"><a href="#cb1-10"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">question=</span><span class="ot">NA</span>)<span class="op">%&gt;%</span></span>
<span id="cb1-11"><a href="#cb1-11"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">question=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;[Q*]&quot;</span>,sub_group_<span class="dv">5</span>, <span class="dt">ignore.case =</span> T),sub_group_<span class="dv">5</span>,question))<span class="op">%&gt;%</span></span>
<span id="cb1-12"><a href="#cb1-12"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">question=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;[Q*]&quot;</span>,sub_group_<span class="dv">4</span>, <span class="dt">ignore.case =</span> T),sub_group_<span class="dv">4</span>,question))<span class="op">%&gt;%</span></span>
<span id="cb1-13"><a href="#cb1-13"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">question=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;[Q*]&quot;</span>,sub_group_<span class="dv">3</span>, <span class="dt">ignore.case =</span> T),sub_group_<span class="dv">3</span>,question))<span class="op">%&gt;%</span></span>
<span id="cb1-14"><a href="#cb1-14"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">question=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;[Q*]&quot;</span>,sub_group_<span class="dv">2</span>, <span class="dt">ignore.case =</span> T),sub_group_<span class="dv">2</span>,question))<span class="op">%&gt;%</span></span>
<span id="cb1-15"><a href="#cb1-15"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group_5=</span><span class="kw">ifelse</span>(sub_group_<span class="dv">5</span><span class="op">==</span>question,<span class="ot">NA</span>,sub_group_<span class="dv">5</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-16"><a href="#cb1-16"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group_4=</span><span class="kw">ifelse</span>(sub_group_<span class="dv">4</span><span class="op">==</span>question,<span class="ot">NA</span>,sub_group_<span class="dv">4</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-17"><a href="#cb1-17"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group_3=</span><span class="kw">ifelse</span>(sub_group_<span class="dv">3</span><span class="op">==</span>question,<span class="ot">NA</span>,sub_group_<span class="dv">3</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-18"><a href="#cb1-18"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group_2=</span><span class="kw">ifelse</span>(sub_group_<span class="dv">2</span><span class="op">==</span>question,<span class="ot">NA</span>,sub_group_<span class="dv">2</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-19"><a href="#cb1-19"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">paste</span>(sub_group_<span class="dv">1</span>,sub_group_<span class="dv">2</span>,sub_group_<span class="dv">3</span>,sub_group_<span class="dv">4</span>,sub_group_<span class="dv">5</span>), <span class="dt">group=</span><span class="kw">paste</span>(group_<span class="dv">1</span>,group_<span class="dv">2</span>))<span class="op">%&gt;%</span></span>
<span id="cb1-20"><a href="#cb1-20"></a><span class="st"> </span><span class="kw">select</span>(<span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">14</span>,<span class="dv">13</span>,<span class="dv">11</span>,<span class="dv">12</span>))</span>
<span id="cb1-21"><a href="#cb1-21"></a>data&lt;-</span>
<span id="cb1-22"><a href="#cb1-22"></a>data<span class="op">%&gt;%</span></span>
<span id="cb1-23"><a href="#cb1-23"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;corporate performance&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;corporate_performance&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-24"><a href="#cb1-24"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;strategy roadmap&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;strategy_roadmap&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-25"><a href="#cb1-25"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;investments&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;investments&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-26"><a href="#cb1-26"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;treasury tax management&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;treasury_tax_management&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-27"><a href="#cb1-27"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;budgeting planning forecasting&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;budgeting_planning_forecasting&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-28"><a href="#cb1-28"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;risk management&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;risk_management&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-29"><a href="#cb1-29"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;law regulation compliance&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;law_regulation_compliance&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-30"><a href="#cb1-30"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;leadership change cooperation&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;leadership_change_cooperation&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-31"><a href="#cb1-31"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;readiness to change&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;readiness_to_change&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-32"><a href="#cb1-32"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;organizational culture&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;organizational_culture&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-33"><a href="#cb1-33"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;communication structure abilities&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;comunication_structure_abilities&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-34"><a href="#cb1-34"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;policies procedures&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;policies_procedures&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-35"><a href="#cb1-35"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;roles responsibilities&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;roles_responsibilities&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-36"><a href="#cb1-36"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;process kp&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;process_KPI&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-37"><a href="#cb1-37"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;process flows bottlenecks&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;process_flow_bottlenecks&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-38"><a href="#cb1-38"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;workflow optimization level&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;workflow_optimization_level&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-39"><a href="#cb1-39"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;it infrastructure&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;it_infrastructure&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-40"><a href="#cb1-40"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;system integration matrix&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;system_integration_matrix&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-41"><a href="#cb1-41"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;cloud strategy&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;cloud_strategy&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-42"><a href="#cb1-42"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;system security monitoring&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;system_security_monitoring&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-43"><a href="#cb1-43"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;data governance&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;data_governance&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-44"><a href="#cb1-44"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;data sources&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;data_sources&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-45"><a href="#cb1-45"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;data integration aggregation&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;data_integration_aggregation&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-46"><a href="#cb1-46"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;reporting visualization&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;reporting_vizualitation&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-47"><a href="#cb1-47"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;process standardization automation&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;process_standardization_automation&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-48"><a href="#cb1-48"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">sub_group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;data science capability&quot;</span>, sub_group,<span class="dt">fixed=</span>T),<span class="st">&quot;data_science_capability&quot;</span>,sub_group))<span class="op">%&gt;%</span></span>
<span id="cb1-49"><a href="#cb1-49"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;strategic management&quot;</span>, group,<span class="dt">fixed=</span>T),<span class="st">&quot;strategic management&quot;</span>,group))<span class="op">%&gt;%</span></span>
<span id="cb1-50"><a href="#cb1-50"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;change management&quot;</span>, group,<span class="dt">fixed=</span>T),<span class="st">&quot;change management&quot;</span>,group))<span class="op">%&gt;%</span></span>
<span id="cb1-51"><a href="#cb1-51"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;process management&quot;</span>, group,<span class="dt">fixed=</span>T),<span class="st">&quot;process management&quot;</span>,group))<span class="op">%&gt;%</span></span>
<span id="cb1-52"><a href="#cb1-52"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;technology management&quot;</span>, group,<span class="dt">fixed=</span>T),<span class="st">&quot;technology management&quot;</span>,group))<span class="op">%&gt;%</span></span>
<span id="cb1-53"><a href="#cb1-53"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">group=</span><span class="kw">ifelse</span>(<span class="kw">grepl</span>(<span class="st">&quot;data science&quot;</span>, group,<span class="dt">fixed=</span>T),<span class="st">&quot;data science&quot;</span>,group))</span>
<span id="cb1-54"><a href="#cb1-54"></a><span class="kw">head</span>(data)</span></code></pre></div>
<pre><code>## # A tibble: 6 x 6
## qi Status group sub_group question value
## &lt;chr&gt; &lt;chr&gt; &lt;chr&gt; &lt;chr&gt; &lt;chr&gt; &lt;chr&gt;
## 1 3 desired strategic management corporate_performance q1 2
## 2 3 desired strategic management strategy_roadmap q2 5
## 3 3 desired strategic management investments q3 5
## 4 3 desired strategic management treasury_tax_management q4 2
## 5 3 desired strategic management budgeting_planning_forecast… q5 1
## 6 3 desired strategic management risk_management q6 2</code></pre>
</div>
<div id="viz-1-1" class="section level2">
<h2>Viz 1-1</h2>
<div class="sourceCode" id="cb3"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb3-2"><a href="#cb3-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb3-3"><a href="#cb3-3"></a><span class="st"> </span><span class="kw">group_by</span>(Status,group)<span class="op">%&gt;%</span></span>
<span id="cb3-4"><a href="#cb3-4"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm=</span>T)))<span class="op">%&gt;%</span></span>
<span id="cb3-5"><a href="#cb3-5"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>group, <span class="dt">y=</span>value, <span class="dt">fill=</span> Status, <span class="dt">label=</span>value))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb3-6"><a href="#cb3-6"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb3-7"><a href="#cb3-7"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb3-8"><a href="#cb3-8"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb3-9"><a href="#cb3-9"></a> <span class="dt">title =</span> <span class="st">&quot;Financial Gap Analysis&quot;</span>,</span>
<span id="cb3-10"><a href="#cb3-10"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb3-11"><a href="#cb3-11"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb3-12"><a href="#cb3-12"></a> )<span class="op">+</span></span>
<span id="cb3-13"><a href="#cb3-13"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb3-14"><a href="#cb3-14"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb3-15"><a href="#cb3-15"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Change </span><span class="ch">\n</span><span class="st"> Managment&quot;</span>, <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Science&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> Management&quot;</span>,</span>
<span id="cb3-16"><a href="#cb3-16"></a> <span class="st">&quot;Strategic </span><span class="ch">\n</span><span class="st"> Management&quot;</span>, <span class="st">&quot;Technology </span><span class="ch">\n</span><span class="st"> Management&quot;</span>))<span class="op">+</span></span>
<span id="cb3-17"><a href="#cb3-17"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb3-18"><a href="#cb3-18"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb3-19"><a href="#cb3-19"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb3-20"><a href="#cb3-20"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb3-21"><a href="#cb3-21"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HmGRFuTDgWmCJS845g7ukJQiCJEnuSpAFFEEkZwUUUUEJyk8WCeol4yVIEBC4BBcEAUkqYcl5SUvOXFiSCPP3d/T07TQzPdPdMz0zbz3P0N3n1KlT562ehf34qmpYR6EkhQABAgQIECBAgAABAgQIECBAgAABAoNQYIpB+EweiQABAgQIECBAgAABAgQIECBAgAABApmAAKgvAgECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQDq0HI0CAAAECBAgQIECAAAECBAgQIEBAANR3gAABAgQIECBAgAABAgQIECBAgACBQSsgADpoh9aDESBAgAABAgQIECBAgAABAgQIECAgAOo7QIAAAQIECBAgQIAAAQIECBAgQIDAoBUQAB20Q+vBCBAgQIAAAQIECBAgQIAAAQIECBAQAPUdIECAAAECBAgQIECAAAECBAgQIEBg0AoIgA7aofVgBAgQIECAAAECBAgQIECAAAECBAgIgPoOECBAgAABAgQIECBAgAABAgQIECAwaAUEQAft0HowAgQIECBAgAABAgQIECBAgAABAgQEQH0HCBAgQIAAAQIECBAgQIAAAQIECBAYtAICoIN2aD0YAQIECBAgQIAAAQIECBAgQIAAAQJTISBAgACBwSHw8ccfp1dffTV7mPnnnz8NHz58cDyYpyBAgAABAgQIECBAgAABAg0ICIA2gOfSgSnw0EMPpQMOOKApnb/sssvSjDPOWGzrjjvuSIcffnjxc7xZcskl029/+9uyYz60TqA/x6Cv7z1x4sR08cUXp8svvzw9++yz6d133y3CTjHFFGneeedNCy20UBo1alTaZ5990gorrFA87021wEEHHZQmTJhQdeLYY49No0ePrjo+mA709Xe31XaD7Xla7aV9AgQIECBAgAABAoNdQAB0sI+w56sSePvtt9Of//znquO9OfDpp5+WXfb6669Xtf3mm2+W1fGhtQL9OQZ9de+XX3457brrrmn8+PGdYn7++efppZdeyn7+9re/pbPPPjuNGTMmRZBv7bXX7vS6oXritddeS7/61a9S5e90eCy88MLpjDPOGNQ0ffXd7SvEwfY8feXmPgQIECBAgAABAgQGq4A1QAfryHouAgQGpcCVV16Zll9++S6Dn509+HXXXZfWWWed9Lvf/a6zKkP2+HnnnVcz+BkgF110UXr//feHrI0HJ0CAAAECBAgQIECAwEAXEAAd6COo/wQIDBmBmIo9bty49NZbbzX0zLvvvnu64oorGmpjsF0cGbKdlcmTJ6cLL7yws9OOEyBAgAABAgQIECBAgECbC5gC3+YDpHt9J7Dsssumaaedtkc3nGoqv0I9AlO51wK33HJL+tnPftbp9QsuuGBabrnlsuzQ6aefPj3zzDPp9ttvT7FOaGX57LPP0jbbbJPuu+++NHLkyMrTQ+5zOD3xxBNdPvfpp5+e9thjjy7rOEmAAAECBAgQIECAAAEC7SkgetOe46JX/SAQG8nEhkWNlM033zz961//aqQJ1zYoMBjHINan3HbbbVMELitLBD7POeectN5661Weyur/4Q9/SN/73vfSO++8U3b+k08+Saeddlo6+eSTy44PxQ9nnXVWt48dweJ77rknrbLKKt3WVaH/BQbjnwP9r6oHBAgQIECAAAECBAaugCnwA3fs9LwNBYYNG5amnHLKqp827Oqg7dJgHINDDz00vfLKK1VjtuWWW6aHHnqoZvAzKsd3MQKnsenXTDPNVHX9+eefnz7++OOq40PpwHvvvZcuvfTSqkeea665qo5FFqgyMAQG458DA0NeLwkQIECAAAECBAi0p4AM0PYcF70aoAIvvPBC+utf/1rW+9lnnz2NHTu27Nhzzz2XTU8uPfilL30pLbHEEtmhN954I9t4JXbvjp28559//rTSSitl2Wfrrrtuir/c11M6OjrSDTfckG699dYUO4fHTwR8ZpllljTbbLOlRRddNOvbaqutlgXLOmuzr/ob948+33vvvenhhx8u/sSO5gsttFC2G3dkOn75y1/urKup3jGobKBZVpXtNvr5o48+ShdffHFVMxGgi82MagU2KytH1mLs/h4/eZliiinSnHPOme6///4U373OSrNcHn300TRhwoSy28R3eYEFFsiOPfbYY+ncc89N8RobDq244opp1VVXzXasn3feecuua+aH2ODoww8/LGty1KhRKdZJ/f73v192POqecMIJacYZZyw7XutDX/3ONGt8aj1D6bH4M2TSpEmlh1J8BzfaaKOyY5Uf3n777fSnP/2p8nDaaqutai458uqrr2br0z7//PPZ/V588cU03XTTpXnmmSf7GT16dNpiiy3SNNNMU9Vm6YHe/DnQrHuX9sN7AgQIECBAgAABAgTaRKDwlyeFwJASKKyl2FH49av6efLJJxt2KEyjr2q3ELisavf3v/99Vb1CdllHYYpzx3HHHddR+Mt91fm8z4WAQ0fhL+pVbVYeuOSSSzqWXnrpTtvJ24vXwtT/jnDp
</div>
<div id="v-2" class="section level2">
<h2>V 2</h2>
<div id="desired" class="section level3">
<h3>Desired</h3>
<p>Strategic Management</p>
<div class="sourceCode" id="cb4"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb4-1"><a href="#cb4-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb4-2"><a href="#cb4-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb4-3"><a href="#cb4-3"></a><span class="st"> </span><span class="kw">rename</span>(<span class="dt">empty=</span>qi)<span class="op">%&gt;%</span></span>
<span id="cb4-4"><a href="#cb4-4"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">empty=</span> <span class="kw">case_when</span>(</span>
<span id="cb4-5"><a href="#cb4-5"></a> empty<span class="op">==</span><span class="st">&quot;1&quot;</span> <span class="op">~</span><span class="st"> &quot;Board&quot;</span>,</span>
<span id="cb4-6"><a href="#cb4-6"></a> empty<span class="op">==</span><span class="st">&quot;2&quot;</span> <span class="op">~</span><span class="st"> &quot;Management&quot;</span>,</span>
<span id="cb4-7"><a href="#cb4-7"></a> empty<span class="op">==</span><span class="st">&quot;3&quot;</span> <span class="op">~</span><span class="st"> &quot;Business Manager&quot;</span>,</span>
<span id="cb4-8"><a href="#cb4-8"></a> empty<span class="op">==</span><span class="st">&quot;4&quot;</span> <span class="op">~</span><span class="st"> &quot;Line Employee&quot;</span></span>
<span id="cb4-9"><a href="#cb4-9"></a> ))<span class="op">%&gt;%</span></span>
<span id="cb4-10"><a href="#cb4-10"></a><span class="st"> </span><span class="kw">filter</span>(Status<span class="op">==</span><span class="st">&quot;desired&quot;</span>, group<span class="op">==</span><span class="st">&quot;strategic management&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb4-11"><a href="#cb4-11"></a><span class="st"> </span><span class="kw">group_by</span>(sub_group,empty)<span class="op">%&gt;%</span></span>
<span id="cb4-12"><a href="#cb4-12"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb4-13"><a href="#cb4-13"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>empty))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb4-14"><a href="#cb4-14"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb4-15"><a href="#cb4-15"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb4-16"><a href="#cb4-16"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb4-17"><a href="#cb4-17"></a> <span class="dt">title =</span> <span class="st">&quot;Strategic Management&quot;</span>,</span>
<span id="cb4-18"><a href="#cb4-18"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desired&quot;</span>,</span>
<span id="cb4-19"><a href="#cb4-19"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb4-20"><a href="#cb4-20"></a> )<span class="op">+</span></span>
<span id="cb4-21"><a href="#cb4-21"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Board&quot;</span>,<span class="st">&quot;Business Manager&quot;</span>,<span class="st">&quot;Line Employee&quot;</span>,<span class="st">&quot;Management&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;cadetblue&quot;</span>,<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;deepskyblue&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb4-22"><a href="#cb4-22"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb4-23"><a href="#cb4-23"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Budget </span><span class="ch">\n</span><span class="st"> Planning </span><span class="ch">\n</span><span class="st"> Forecasting&quot;</span>, <span class="st">&quot;Corporate </span><span class="ch">\n</span><span class="st"> Performance&quot;</span>, <span class="st">&quot;Investments&quot;</span>,</span>
<span id="cb4-24"><a href="#cb4-24"></a> <span class="st">&quot;Law </span><span class="ch">\n</span><span class="st"> Regulation </span><span class="ch">\n</span><span class="st"> Compliance&quot;</span>, <span class="st">&quot;Risk </span><span class="ch">\n</span><span class="st"> Management&quot;</span>, <span class="st">&quot;Strategy </span><span class="ch">\n</span><span class="st"> Roadmap&quot;</span>, <span class="st">&quot;Treasury </span><span class="ch">\n</span><span class="st"> Tax </span><span class="ch">\n</span><span class="st"> Management&quot;</span>))<span class="op">+</span></span>
<span id="cb4-25"><a href="#cb4-25"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb4-26"><a href="#cb4-26"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb4-27"><a href="#cb4-27"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb4-28"><a href="#cb4-28"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb4-29"><a href="#cb4-29"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HmFxV/TDgk9CrEBI6oYQivSpFOghBioCA0qUJiMBHsQBSRAigdFBAinQRERGIdBCQIoaAdEjoJPTyJyEQWr79Xb3j7Oxsm9mZndl9z/Ns5pZzzz33PXeH5McpA6a0pCQRIECAAAECBAgQIECAAAECBAgQIECgDwoM7IPP5JEIECBAgAABAgQIECBAgAABAgQIECCQCQiAehEIECBAgAABAgQIECBAgAABAgQIEOizAgKgfbZpPRgBAgQIECBAgAABAgQIECBAgAABAgKg3gECBAgQIECAAAECBAgQIECAAAECBPqsgABon21aD0aAAAECBAgQIECAAAECBAgQIECAgACod4AAAQIECBAgQIAAAQIECBAgQIAAgT4rIADaZ5vWgxEgQIAAAQIECBAgQIAAAQIECBAgIADqHSBAgAABAgQIECBAgAABAgQIECBAoM8KCID22ab1YAQIECBAgAABAgQIECBAgAABAgQICIB6BwgQIECAAAECBAgQIECAAAECBAgQ6LMCAqB9tmk9GAECBAgQIECAAAECBAgQIECAAAECAqDeAQIECBAgQIAAAQIECBAgQIAAAQIE+qyAAGifbVoPRoAAAQIECBAgQIAAAQIECBAgQIDA1AgIEGgtMGHChPT222+nqaaaKs0333xp6qn9mrQWskeAAAECBAgQIECAAAECBAgQaB4BkZ3maSs1rZHAuHHj0lVXXZX+9re/pQceeCB9/PHHhTtFEHT++edPCy20UFpuueXSoYcemoYOHVo4352Nzz77LAuqDhzYnB2vm73+xW113333pWOPPbb4UFpsscXS2Wef3epYb+7ceeed6aSTTmq3Cossskg655xz2j2fnzjssMPS6NGj8902n3vttVfaZptt2hx3gEB/E+hL33H9re08LwECBAgQIECAAIHOBAZMaUmdZXKeQF8UiH/snnzyyen4449PH330UZcecdppp0177713OuKII9Jcc83VpWsiUwRXDzrooPSvf/0rzTrrrF2+rlEyNnv9Sx3/8pe/pK233rrV4ZVWWik9/PDDrY715s4VV1yRdtppp3arEMH5d999N33lK19pN8/nn3+e5phjjvThhx+2m+fXv/51FthvN4MTBPqBQF/7jusHTeYRCRAgQIAAAQIECHRLoDm7onXrEWUm0FYg4v4777xzOvzww7sc/IxSPv3003TWWWelFVZYIb355pttCy458txzz6VNN900+4ntZkvNXv9m8+5Ofb/44ov097//vcNLIuDeUfCzw4udJNAPBHzH9YNG9ogECBAgQIAAAQIEWgQEQL0G/VLgF7/4RfrjH/9Y8bO/8cYbaYcddkhffvll2TKi592Pf/zjtMwyy2S9P8tmauCDzV7/Bqbt0ardfvvtHZZ3xx13dHjeSQL9VcB3XH9tec9NgAABAgQIECDQXwXMAdpfW74fP/f777+fTjnllLICG2+8cdpggw3SAgsskAYMGJBeffXVNHLkyLI97WKOxhhC/5Of/KRNWXGPONesqdnr36zu3a23AGh3xeQn8B8B33HeBAIECBAgQIAAAQL9S0AAtH+1t6dtEYienxMnTmxlEfMo3nLLLWnVVVdtdTx2YuGjP/zhD1mPz9KTMZdkuQBoaT77jSWw5ZZbpugB1uzpmWeeSa+99lq2UFfps0yaNCndf//9pYftEyBAgAABAgQIECBAgACBfidgCHy/a3IP/NRTT7VB2HXXXcsGP/OM22+/fYo8pemRRx5JkydPLj1sv8EFondvLCJU+tPg1U6x8ntpam+Y+z/+8Y9sztri/MOGDSvetU2AAAECBAgQIECAAAECBPqFgB6g/aKZPWSxwIQJE4p3s+1yx0ozfe9730uXXHJJ4fDAgQPTNNNMk5588skUK4hHih55o0aNSu2VF71PZ5hhhizvkksumVZeeeVsOwKpUU5xGj58eBo8eHB2/LrrrsuG4UdP1VVWWSXtscceaciQIcXZs+1Y3Om2225L99xzTxo/fnz2E4vgzDbbbGnQoEFp4YUXTptsskkW7I3gX2mqtP6l5bzzzjvpwQcfTKNHj85+Iki8/PLLZ4tHxWc8e3fTK6+8kiKoF76PPfZYFgxca6210tprr50WXHDBrLgXXnihTa/Hr3/962nxxRdvdbuY2uDuu+9udSxWSw+bjlL4xkrxTzzxROEn5oEdOnRoVof1118/feMb3+ioiKrOxXsWtsULG8Uw+HLB+dLAaLyv4fX88893qw7VvlP5zV566aWs/fL9+FxttdXSoosumh16++23s57WDzzwQBo3blyab775st+reN/XXXfdbEqK4mvb2+6p+paW35PvX3HZPfG7EothRU/g4rTjjjtmZvF+/vvf/0733ntv5h8Lua255prZuxDfP1NP3fqvAW+99Vb2/RHfIXFdfAfF72u8Y4sttljxLTrc7onnqsU701PfcR0+vJMECBAgQIAAAQIECDSeQMs/FiUC/UrgzDPPnNLym9jqpyUYOOWiiy6a
<p>Technology Management</p>
<div class="sourceCode" id="cb5"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb5-1"><a href="#cb5-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb5-2"><a href="#cb5-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb5-3"><a href="#cb5-3"></a><span class="st"> </span><span class="kw">rename</span>(<span class="dt">empty=</span>qi)<span class="op">%&gt;%</span></span>
<span id="cb5-4"><a href="#cb5-4"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">empty=</span> <span class="kw">case_when</span>(</span>
<span id="cb5-5"><a href="#cb5-5"></a> empty<span class="op">==</span><span class="st">&quot;1&quot;</span> <span class="op">~</span><span class="st"> &quot;Board&quot;</span>,</span>
<span id="cb5-6"><a href="#cb5-6"></a> empty<span class="op">==</span><span class="st">&quot;2&quot;</span> <span class="op">~</span><span class="st"> &quot;Management&quot;</span>,</span>
<span id="cb5-7"><a href="#cb5-7"></a> empty<span class="op">==</span><span class="st">&quot;3&quot;</span> <span class="op">~</span><span class="st"> &quot;Business Manager&quot;</span>,</span>
<span id="cb5-8"><a href="#cb5-8"></a> empty<span class="op">==</span><span class="st">&quot;4&quot;</span> <span class="op">~</span><span class="st"> &quot;Line Employee&quot;</span></span>
<span id="cb5-9"><a href="#cb5-9"></a> ))<span class="op">%&gt;%</span></span>
<span id="cb5-10"><a href="#cb5-10"></a><span class="st"> </span><span class="kw">filter</span>(Status<span class="op">==</span><span class="st">&quot;desired&quot;</span>, group<span class="op">==</span><span class="st">&quot;technology management&quot;</span>)<span class="op">%&gt;%</span><span class="st"> </span><span class="co">#select(sub_group)%&gt;%unique()%&gt;%arrange(sub_group)</span></span>
<span id="cb5-11"><a href="#cb5-11"></a><span class="st"> </span><span class="kw">group_by</span>(sub_group,empty)<span class="op">%&gt;%</span></span>
<span id="cb5-12"><a href="#cb5-12"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb5-13"><a href="#cb5-13"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>empty))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb5-14"><a href="#cb5-14"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb5-15"><a href="#cb5-15"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb5-16"><a href="#cb5-16"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb5-17"><a href="#cb5-17"></a> <span class="dt">title =</span> <span class="st">&quot;Technology Management&quot;</span>,</span>
<span id="cb5-18"><a href="#cb5-18"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desired&quot;</span>,</span>
<span id="cb5-19"><a href="#cb5-19"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb5-20"><a href="#cb5-20"></a> )<span class="op">+</span></span>
<span id="cb5-21"><a href="#cb5-21"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Board&quot;</span>,<span class="st">&quot;Business Manager&quot;</span>,<span class="st">&quot;Line Employee&quot;</span>,<span class="st">&quot;Management&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;cadetblue&quot;</span>,<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;deepskyblue&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb5-22"><a href="#cb5-22"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb5-23"><a href="#cb5-23"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Cloud </span><span class="ch">\n</span><span class="st"> Strategy&quot;</span>, <span class="st">&quot;IT </span><span class="ch">\n</span><span class="st"> Infrastructure&quot;</span>, <span class="st">&quot;System </span><span class="ch">\n</span><span class="st"> Integration </span><span class="ch">\n</span><span class="st"> Matrix&quot;</span>,</span>
<span id="cb5-24"><a href="#cb5-24"></a> <span class="st">&quot;System </span><span class="ch">\n</span><span class="st"> Security </span><span class="ch">\n</span><span class="st"> Monitoring&quot;</span>))<span class="op">+</span></span>
<span id="cb5-25"><a href="#cb5-25"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb5-26"><a href="#cb5-26"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb5-27"><a href="#cb5-27"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb5-28"><a href="#cb5-28"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb5-29"><a href="#cb5-29"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HnFxVvTjwEyBA6ITQewlICTVKkSJFBAkIGESKIk0ERP40BZXykC7ShWBAaSICT5EWOhIBESFAaIGEDiEgTXoIkP/8ru+uszOzu7M7M7uzu9/z+cS5c++5557zPTfzXn6cMmB6ISWJAAECBAgQIECAAAECBAgQIECAAAECfVBghj7YJk0iQIAAAQIECBAgQIAAAQIECBAgQIBAJiAA6kUgQIAAAQIECBAgQIAAAQIECBAgQKDPCgiA9tmu1TACBAgQIECAAAECBAgQIECAAAECBARAvQMECBAgQIAAAQIECBAgQIAAAQIECPRZAQHQPtu1GkaAAAECBAgQIECAAAECBAgQIECAgACod4AAAQIECBAgQIAAAQIECBAgQIAAgT4rIADaZ7tWwwgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAg0GcFBED7bNdqGAECBAgQIECAAAECBAgQIECAAAECAqDeAQIECBAgQIAAAQIECBAgQIAAAQIE+qyAAGif7VoNI0CAAAECBAgQIECAAAECBAgQIEBAANQ7QIAAAQIECBAgQIAAAQIECBAgQIBAnxUQAO2zXathBAgQIECAAAECBAgQIECAAAECBAgIgHoHCBAgQIAAAQIECBAgQIAAAQIECBDoswIz9dmWaRiBEoFJkyal/fffv+Rs7V+vvfbaNMsss9ReUDeVMHbs2HT88ce3etoXvvCFdOaZZ7Y615++3HPPPenYY49t1eShQ4emc845p9U5XzovcMcdd6STTz65zRuXWWaZdN5557V5Pb9wxBFHpHHjxuVfyz733nvvNHLkyLLzThDobwLTpk1LM844Y5phBv+Nu7/1vfYSIECAAAECBAi0LSAA2raNK31M4N1330233HJL3Vv1+eef173MRhY4ZcqUMod///vfjXxk05f9+uuvl5m88cYbTV/v3lDBV199tcy2uN4RqDnppJPS3HPPXXy61fGnn36azj333BR/h9tKX/3qV9u65DyBfiNw4403poMOOij985//THPNNVe/abeGEiBAgAABAgQIEOhIwPCAjoRcJ0CAAIGGCXz22Wfpr3/9a7vlRzCnveBnuze7SKAfCDz99NNpq622yv7EsUSAAAECBAgQIECAQGsBAdDWHr4RIECAQDcL3Hbbbe0+8fbbb2/3uosE+qtAjI4+7LDD0iqrrJJi9KdEgAABAgQIECBAgEBlAVPgK7s42wcFZptttjR8+PA2WxYjzCqNnBk2bFi7a3xaZ61NUhcIVCUgAFoVk0wEygTefvvtdOqpp5add4IAAQIECBAgQIAAgdYCAqCtPXzrwwKx0U9MpW0rRRCm0jqCscnRUkst1dZtzhMgUKPAhAkT0ssvv5wWW2yxspI+/PDDdO+995add4IAAQIECBAgQIAAAQIECFQrYAp8tVLyESBAgEBdBGLn99LU1jT3u+++O33yySetsi+77LKtvvtCgAABAgQIECBAgAABAgTaEzACtD0d1wjUKBA7id93331p3Lhx2Z+pU6em1VZbLa2++urZ54orrtjpJ0yfPj09+OCD6bHHHmv5EzvRL7HEEmnJJZdMm2yySfryl7/c6XLzG2JK5T333JP+/ve/p/vvvz8tvPDC6Ytf/GL2Z5111smzVfx8/vnnUwSsilPcs9xyy2Wn/vWvf6U//OEPWdmvvPJKWnTRRdOaa66ZLU3wla98JQ0YMKD41g6PP/jgg3TVVVelhx56KL344ovpzTffTMsvv3yKZQtWXXXVtMYaa6R55pmnw3JqydCoOkR7wvKBBx5I48ePTxE03GCDDdKGG26Y9XPU+dlnny0bHfmlL30pM4jrY8eOzVziOE8LLLBA2nzzzfOvFT/feuutiusJjhw5Ms0666wV7+nMyejz+LtRvLFRjMDebbfdyoopDYzGkhPh8Mwzz5Tlbe9E/L259dZbM5PJkyen+BPPj/dj8ODBaemll05bbrllWnvttVPsTN9W6o53vF51LW1DPd6p0jLz7/X4rYvNsGIkcHHaZZddst+F+I175JFH0t/+9rfs70UExddff/3sXVhrrbXSTDO1/n9nXn/99ayv4+9A3DdkyJAUv7fxjg0dOrT4Ee0e16NdjXhnYtR0/Da89957Fev/xz/+MQ0aNCi7Fu0OI4kAAQIECBAgQIBAvxYo/ENLIkCgIFAIjkwv/BiU/Xnuuee65HPppZdOn3POOcvKK37GDjvsML0QcKy6/KjLxhtv3G6ZUX4hADq9EFCqWG7hH8Zl9xeCPlnem266afq8885bdj2vc9S38A/uiuXGycsuu6zs3vPPP396Yafv6aeccsr0WWaZpex6XnYhKDd9ypQpbZZdfOGdd96Z/oMf/GD6HHPM0WZ5Ue5cc801ffTo0cW3Vjz+05/+VFZOIUhXMW9+st51yMuNz3POOaddqx//+MfTCwGh6b/73e/K6v3rX/+6pag4zn3zz9lnn316IWjbkqfSwVlnnVV2X2EJ
<p>Process Management</p>
<div class="sourceCode" id="cb6"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb6-1"><a href="#cb6-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb6-2"><a href="#cb6-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb6-3"><a href="#cb6-3"></a><span class="st"> </span><span class="kw">rename</span>(<span class="dt">empty=</span>qi)<span class="op">%&gt;%</span></span>
<span id="cb6-4"><a href="#cb6-4"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">empty=</span> <span class="kw">case_when</span>(</span>
<span id="cb6-5"><a href="#cb6-5"></a> empty<span class="op">==</span><span class="st">&quot;1&quot;</span> <span class="op">~</span><span class="st"> &quot;Board&quot;</span>,</span>
<span id="cb6-6"><a href="#cb6-6"></a> empty<span class="op">==</span><span class="st">&quot;2&quot;</span> <span class="op">~</span><span class="st"> &quot;Management&quot;</span>,</span>
<span id="cb6-7"><a href="#cb6-7"></a> empty<span class="op">==</span><span class="st">&quot;3&quot;</span> <span class="op">~</span><span class="st"> &quot;Business Manager&quot;</span>,</span>
<span id="cb6-8"><a href="#cb6-8"></a> empty<span class="op">==</span><span class="st">&quot;4&quot;</span> <span class="op">~</span><span class="st"> &quot;Line Employee&quot;</span></span>
<span id="cb6-9"><a href="#cb6-9"></a> ))<span class="op">%&gt;%</span></span>
<span id="cb6-10"><a href="#cb6-10"></a><span class="st"> </span><span class="kw">filter</span>(Status<span class="op">==</span><span class="st">&quot;desired&quot;</span>, group<span class="op">==</span><span class="st">&quot;process management&quot;</span>)<span class="op">%&gt;%</span><span class="st"> </span><span class="co">#select(sub_group)%&gt;%unique()%&gt;%arrange(sub_group)</span></span>
<span id="cb6-11"><a href="#cb6-11"></a><span class="st"> </span><span class="kw">group_by</span>(sub_group,empty)<span class="op">%&gt;%</span></span>
<span id="cb6-12"><a href="#cb6-12"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb6-13"><a href="#cb6-13"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>empty))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb6-14"><a href="#cb6-14"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb6-15"><a href="#cb6-15"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb6-16"><a href="#cb6-16"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb6-17"><a href="#cb6-17"></a> <span class="dt">title =</span> <span class="st">&quot;Process Management&quot;</span>,</span>
<span id="cb6-18"><a href="#cb6-18"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desired&quot;</span>,</span>
<span id="cb6-19"><a href="#cb6-19"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb6-20"><a href="#cb6-20"></a> )<span class="op">+</span></span>
<span id="cb6-21"><a href="#cb6-21"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Board&quot;</span>,<span class="st">&quot;Business Manager&quot;</span>,<span class="st">&quot;Line Employee&quot;</span>,<span class="st">&quot;Management&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;cadetblue&quot;</span>,<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;deepskyblue&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb6-22"><a href="#cb6-22"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb6-23"><a href="#cb6-23"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Policies </span><span class="ch">\n</span><span class="st"> Procedures&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> Flow </span><span class="ch">\n</span><span class="st"> Bottlenecks&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> KPIs&quot;</span>,</span>
<span id="cb6-24"><a href="#cb6-24"></a> <span class="st">&quot;Roles </span><span class="ch">\n</span><span class="st"> Responsibilities&quot;</span>, <span class="st">&quot;Workflow </span><span class="ch">\n</span><span class="st"> Optimization </span><span class="ch">\n</span><span class="st"> Level&quot;</span>))<span class="op">+</span></span>
<span id="cb6-25"><a href="#cb6-25"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb6-26"><a href="#cb6-26"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb6-27"><a href="#cb6-27"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb6-28"><a href="#cb6-28"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb6-29"><a href="#cb6-29"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HvGXTvTjwNXoZfdTo3eglWvQgI0rwkCAvokXwxN+QaFGeMEp0wniIEkSQEG1GDxERZoaMbkb0UaI9xiiD+z+/nezzzj3ltnPOvWfmftfnc51d1l577e/a5475zSoD2gopSQQIECBAgAABAgQIECBAgAABAgQIEJgKBaaZCp/JIxEgQIAAAQIECBAgQIAAAQIECBAgQCATEAD1IhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKCIBOtU3rwQgQIECAAAECBAgQIECAAAECBAgQEAD1DhAgQIAAAQIECBAgQIAAAQIECBAgMNUKTDfVPpkHI1BDYNSoUenoo4+ucfZfhwcMGJCmmWaaNN1006WZZ545DRw4MM0///xp+eWXT9tvv32affbZO7zeSQK5wL333ptOPfXUfLfic8kll0wXXnhhxfHyA0ceeWQaM2ZM+eHi/r777pt22mmn4r4NAv1RYPLkyWnaaafNfn/3x+f3zAQIECBAgAABAgQIVBcQAK3u4uhULPDOO++kO++8s8dPGMHPCDadcMIJaZZZZulxOS7sHwJvvPFGh+9bBGtOOeWUNMccc9QE+eKLL9IFF1yQPvzww5p5tthii5rnnCDQHwRuv/32dMghh6RHH33UP1L1hwb3jAQIECBAgAABAgS6IWAIfDewZCUQAhGEOuOMM9JWW22VPvroIygE6hL48ssv05/+9KcOy4iATkfBzw4vdpLAVC7w/PPPp6233jr7iW2JAAECBAgQIECAAAEC5QICoOUi9gl0UeCBBx5Iu+yySxdzy0agtsDdd99d+2ThzD333NPheScJ9EeB6Bn905/+NK200kopen9KBAgQIECAAAECBAgQqCVgCHwtGcf7ncAqq6ySZphhhtTW1paiV17MJTdx4sT05ptvps8++6yqx8iRI1MEQjfaaKOq5x0k0BUBAdCuKMlDoL3A+++/n04//fT2B+0RIECAAAECBAgQIECgioAAaBUUh/qnwG233ZYWXnjhiof/5JNP0jnnnJPN0/i///u/FeeHDRsmAFqh4kB3BJ599tn02muvVX3/Jk2alB566KHuFCcvAQIECBAgQIAAAQIECBAgUCJgCHwJhk0C1QRiFfgjjjgiPfXUU1UXqhk9enS1yxwjUFMgVn4vT7WGuT/44IPp888/b5d9qaWWardvhwABAgQIECBAgAABAgQIEKgtoAdobRtnCLQT+NrXvpb22muvdNZZZ7U7HqvKxwI1sTp8nh577LEsYJrvx+eQIUPSoEGDsuM33XRTtvBNrPy91lprpb333jvNO++8pdmL2x9//HG6/vrrU5T5yiuvpHfffTctu+yyaeWVV04xbH/11VdPc845ZzF/VzdiqH8Eb5988sniz1dffZUWXXTRtNhii6XNNtssfeMb3+hqcVm+sHj44YfTmDFjsp+YOmDVVVdNq622Wva5wgordKu8mH7gxhtvTC+//HL27NFLMgLSCyywQPYT5e64445pxhln7FK5jS6vSzetkmmNNdZI+XuTn45h8HvssUe+W/wsD4xOM800acMNN0wvvPBCMU9XNqK977rrrmzKhgkTJqT4ifc23p255547LbHEEtnCXuuss06KlemrpZdeeilFQLY0rbvuumnppZfODv3zn/9Mv/3tb9Nf//rX9Prrr6f4zsSzxju+ySabpAEDBpReWnO7EXWtVnh8f6L+o0aNSmPHjk0RiA7LmMIi3vlI//jHPyp63K699trZd65amfmxRrz7sRhWvOOlaffdd8/c4rv597//Pf35z3/OniGC4htssEFW/zXXXDNNN137P87ffvvtrK1jio64Ln73xPcv3rFlllmm9BYdbjfiuRr93kSP6WjDWovQ/e53v8t+T8SDxTOHj0SAAAECBAgQIECAQD8XKPxFUyLQrwRGjBjRVvjaV/y8+uqrnTqcd955FddFWc8880y7a3/2s59V5CsEBtuuu+66tumnn77i3HLLLdfu+tj54IMP2n784x+3DRw4sCJ/af0Lgde2iy++uOL6jg68+OKLbZtuummH5cY9CgHQtkJgrqOiiud+85vftM0222wdlrnzzju3FebtK15Ta6MQvGkbOnRoWyHY2WF5Ucd55pmn7aijjmorzNtaq7i2RpdX80ZVTlx11VUV
<p>Change Management</p>
<div class="sourceCode" id="cb7"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb7-1"><a href="#cb7-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb7-2"><a href="#cb7-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb7-3"><a href="#cb7-3"></a><span class="st"> </span><span class="kw">rename</span>(<span class="dt">empty=</span>qi)<span class="op">%&gt;%</span></span>
<span id="cb7-4"><a href="#cb7-4"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">empty=</span> <span class="kw">case_when</span>(</span>
<span id="cb7-5"><a href="#cb7-5"></a> empty<span class="op">==</span><span class="st">&quot;1&quot;</span> <span class="op">~</span><span class="st"> &quot;Board&quot;</span>,</span>
<span id="cb7-6"><a href="#cb7-6"></a> empty<span class="op">==</span><span class="st">&quot;2&quot;</span> <span class="op">~</span><span class="st"> &quot;Management&quot;</span>,</span>
<span id="cb7-7"><a href="#cb7-7"></a> empty<span class="op">==</span><span class="st">&quot;3&quot;</span> <span class="op">~</span><span class="st"> &quot;Business Manager&quot;</span>,</span>
<span id="cb7-8"><a href="#cb7-8"></a> empty<span class="op">==</span><span class="st">&quot;4&quot;</span> <span class="op">~</span><span class="st"> &quot;Line Employee&quot;</span></span>
<span id="cb7-9"><a href="#cb7-9"></a> ))<span class="op">%&gt;%</span></span>
<span id="cb7-10"><a href="#cb7-10"></a><span class="st"> </span><span class="kw">filter</span>(Status<span class="op">==</span><span class="st">&quot;desired&quot;</span>, group<span class="op">==</span><span class="st">&quot;change management&quot;</span>)<span class="op">%&gt;%</span><span class="st"> </span><span class="co">#select(sub_group)%&gt;%unique()%&gt;%arrange(sub_group)</span></span>
<span id="cb7-11"><a href="#cb7-11"></a><span class="st"> </span><span class="kw">group_by</span>(sub_group,empty)<span class="op">%&gt;%</span></span>
<span id="cb7-12"><a href="#cb7-12"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb7-13"><a href="#cb7-13"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>empty))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb7-14"><a href="#cb7-14"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb7-15"><a href="#cb7-15"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb7-16"><a href="#cb7-16"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb7-17"><a href="#cb7-17"></a> <span class="dt">title =</span> <span class="st">&quot;Change Management&quot;</span>,</span>
<span id="cb7-18"><a href="#cb7-18"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desired&quot;</span>,</span>
<span id="cb7-19"><a href="#cb7-19"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb7-20"><a href="#cb7-20"></a> )<span class="op">+</span></span>
<span id="cb7-21"><a href="#cb7-21"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Board&quot;</span>,<span class="st">&quot;Business Manager&quot;</span>,<span class="st">&quot;Line Employee&quot;</span>,<span class="st">&quot;Management&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;cadetblue&quot;</span>,<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;deepskyblue&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb7-22"><a href="#cb7-22"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb7-23"><a href="#cb7-23"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Communication </span><span class="ch">\n</span><span class="st"> Structure </span><span class="ch">\n</span><span class="st"> Abilities&quot;</span>, <span class="st">&quot;Leadership </span><span class="ch">\n</span><span class="st"> Change </span><span class="ch">\n</span><span class="st"> Cooperation&quot;</span>, <span class="st">&quot;Organizational </span><span class="ch">\n</span><span class="st"> Culture&quot;</span>,<span class="st">&quot;Readiness </span><span class="ch">\n</span><span class="st"> to </span><span class="ch">\n</span><span class="st"> Change&quot;</span>))<span class="op">+</span></span>
<span id="cb7-24"><a href="#cb7-24"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb7-25"><a href="#cb7-25"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb7-26"><a href="#cb7-26"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb7-27"><a href="#cb7-27"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb7-28"><a href="#cb7-28"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HmGRFuTDgWvKSWXJacpQcJEgQRARZEJAg4UoWAYFLUEkCF4ElSRaWuyAZEVC4wLJkJCNhyXnJsAQJ+5OXBeaf7+gZe7p7Znqmu2e6Z956nrFP16lTp85bh76XjwqDWlpTkggQIECAAAECBAgQIECAAAECBAgQINAPBSbph8/kkQgQIECAAAECBAgQIECAAAECBAgQIJAJCIB6EQgQIECAAAECBAgQIECAAAECBAgQ6LcCAqD9tms9GAECBAgQIECAAAECBAgQIECAAAECAqDeAQIECBAgQIAAAQIECBAgQIAAAQIE+q2AAGi/7VoPRoAAAQIECBAgQIAAAQIECBAgQICAAKh3gAABAgQIECBAgAABAgQIECBAgACBfisgANpvu9aDESBAgAABAgQIECBAgAABAgQIECAgAOodIECAAAECBAgQIECAAAECBAgQIECg3woIgPbbrvVgBAgQIECAAAECBAgQIECAAAECBAgIgHoHCBAgQIAAAQIECBAgQIAAAQIECBDotwICoP22az0YAQIECBAgQIAAAQIECBAgQIAAAQICoN4BAgQIECBAgAABAgQIECBAgAABAgT6rYAAaL/tWg9GgAABAgQIECBAgAABAgQIECBAgMBkCAgQKC8wYcKE9M9//jN99dVXab755kuTTjpp+YJyCRAgQIAAAQIECBAgQIAAAQIEGlZAALRhu0bDeltg4sSJ6eqrr06jRo1KN998c3rnnXfamjDVVFOlRRddNC255JJpmWWWSXvssUeaccYZ2853dHDXXXelY445pt3pxRdfPJ122mnt8nxpToHbb789HX/88R02fsEFF0xnn312h+fzEwcffHAaM2ZM/rXkc7fddktbbLFFSb4MAgNNIH6n4z9GTTKJCSwDre89LwECBAgQIECAAIFqBAa1tKZqKnAtgf4gcOWVV6ZDDjkkjR07tqLHmX322dPJJ5+ctt12207LX3HFFWnrrbduV2aVVVZJDzzwQLs8X5pT4NJLL03bb799h42PQM0HH3yQZphhhg7LfP3112nmmWdOH3/8cYdlTjzxxHTggQd2eN4JAgNB4IYbbkj77bdfeuihh9L0008/EB7ZMxIgQIAAAQIECBAgUCMBQyhqBKma5hSI4FOMrttqq60qDn7Gk7777rtpu+22S+utt1564403mvPhtbruAt988036+9//3ul9IpjTWfCz04udJDAABF544YW00UYbZX9xLBEgQIAAAQIECBAgQKC7AgKg3RVTvt8IRHDqJz/5STr33HN7/Ey33XZbVseXX37Z4zpc2L8Fbr311k4fMN4hiQCBUoH4D1S//vWv01JLLZVi9KdEgAABAgQIECBAgACBngpYA7Sncq5reoHDDz+8w3+pHjJkSFpxxRXTCiuskKaYYooUo45uuummNH78+JLnfvTRR9N///d/pxEjRpSck0FAANQ7QKBnAh999FE66aSTenaxqwgQIECAAAECBAgQIFAgIABagOFw4Ajcfffd6bjjjiv7wHvvvXf2L90R+CxMH374YTrssMPKbmozcuTIFBvZxG7xEoFCgeeeey69+eabaZ555inMzo4///zzdN9995XkyyBAgAABAgQIECBAgAABAgRqJ2AKfO0s1dREArEz+7ffflvS4j//+c/p9NNPz0Z9Fp+MUaFnnXVWtgN88bmoq5qp9MX1+d68ArHze3HqaJr7Pffck7766qt2xRdaaKF2330hQIAAAQIECBAgQIAAAQIEqhMwArQ6P1c3ocBTTz2VTWcvbvqGG26YfvaznxVnl3yPAOnVV1+d3nnnnbZzU001Vbc2UcovjCme9957b7r//vvTgw8+mOacc8608sorZ3+rrrpqXqzLz5aWlnTLLbeku+66K40bNy77i411ZpxxxhSB2wUWWCDF88UO9LEzebn06quvpgjIFaZow8ILL5xl/fOf/0wRII62vvXWW2nuuefOlghYaaWV0ve///00aNCgwks7PX799dezez388MPpiSeeSBE0XHPNNdNaa63VNor25ZdfLhkd+d3vfjctuuiindb9/vvvpwceeCCNGTMm+5swYUJadtll03LLLZd9LrHEEp1eX+3JWDYh2lC4sVFMg99hhx1Kqi4OjE4yySSZw0svvVRStrOMWvR/1N9b70Ct2ltsUq/3qhbvVGyGFSOBC1NspBb/3MR/QHn88cdTjEzPg+JrrLFG9i7EUhyTTdb+/1S/99572T/r8c97XDfLLLOkeK/jHVtkkUUKb9HpcS2eqx7vTIyajt+GTz75pGz7//KXv6TBgwdn5+K5w0giQIAAAQIECBAgQIBApwKt/yIqERhQAkceeWRL6z8UJX+tQbOKHX7/+9+3/PjHP24ZPnx4S2vAoqU1yFb22tZ/US+5T2sQMit74403tsw000wl5/O2bbnlli2tAYCy9RZmXnHFFS2LLbZYh/Xk9cVna3CkpTUQU3h52/Ell1xSUsc555zT0rpZVMsJJ5zQMuWUU5acz+te
<p>Data Science</p>
<div class="sourceCode" id="cb8"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb8-1"><a href="#cb8-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb8-2"><a href="#cb8-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb8-3"><a href="#cb8-3"></a><span class="st"> </span><span class="kw">rename</span>(<span class="dt">empty=</span>qi)<span class="op">%&gt;%</span></span>
<span id="cb8-4"><a href="#cb8-4"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">empty=</span> <span class="kw">case_when</span>(</span>
<span id="cb8-5"><a href="#cb8-5"></a> empty<span class="op">==</span><span class="st">&quot;1&quot;</span> <span class="op">~</span><span class="st"> &quot;Board&quot;</span>,</span>
<span id="cb8-6"><a href="#cb8-6"></a> empty<span class="op">==</span><span class="st">&quot;2&quot;</span> <span class="op">~</span><span class="st"> &quot;Management&quot;</span>,</span>
<span id="cb8-7"><a href="#cb8-7"></a> empty<span class="op">==</span><span class="st">&quot;3&quot;</span> <span class="op">~</span><span class="st"> &quot;Business Manager&quot;</span>,</span>
<span id="cb8-8"><a href="#cb8-8"></a> empty<span class="op">==</span><span class="st">&quot;4&quot;</span> <span class="op">~</span><span class="st"> &quot;Line Employee&quot;</span></span>
<span id="cb8-9"><a href="#cb8-9"></a> ))<span class="op">%&gt;%</span></span>
<span id="cb8-10"><a href="#cb8-10"></a><span class="st"> </span><span class="kw">filter</span>(Status<span class="op">==</span><span class="st">&quot;desired&quot;</span>, group<span class="op">==</span><span class="st">&quot;data science&quot;</span>)<span class="op">%&gt;%</span><span class="st"> </span><span class="co">#select(sub_group)%&gt;%unique()%&gt;%arrange(sub_group)</span></span>
<span id="cb8-11"><a href="#cb8-11"></a><span class="st"> </span><span class="kw">group_by</span>(sub_group,empty)<span class="op">%&gt;%</span></span>
<span id="cb8-12"><a href="#cb8-12"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value, <span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb8-13"><a href="#cb8-13"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>empty))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb8-14"><a href="#cb8-14"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb8-15"><a href="#cb8-15"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb8-16"><a href="#cb8-16"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb8-17"><a href="#cb8-17"></a> <span class="dt">title =</span> <span class="st">&quot;Data Science&quot;</span>,</span>
<span id="cb8-18"><a href="#cb8-18"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desired&quot;</span>,</span>
<span id="cb8-19"><a href="#cb8-19"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb8-20"><a href="#cb8-20"></a> )<span class="op">+</span></span>
<span id="cb8-21"><a href="#cb8-21"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Board&quot;</span>,<span class="st">&quot;Business Manager&quot;</span>,<span class="st">&quot;Line Employee&quot;</span>,<span class="st">&quot;Management&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;cadetblue&quot;</span>,<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;deepskyblue&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb8-22"><a href="#cb8-22"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb8-23"><a href="#cb8-23"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Governance&quot;</span>, <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Integration </span><span class="ch">\n</span><span class="st"> Aggregation&quot;</span>, <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Science </span><span class="ch">\n</span><span class="st"> Capability&quot;</span>,</span>
<span id="cb8-24"><a href="#cb8-24"></a> <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Sources&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> Standardization </span><span class="ch">\n</span><span class="st"> Automation&quot;</span>, <span class="st">&quot;Reporting </span><span class="ch">\n</span><span class="st"> Visualization&quot;</span>))<span class="op">+</span></span>
<span id="cb8-25"><a href="#cb8-25"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb8-26"><a href="#cb8-26"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb8-27"><a href="#cb8-27"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb8-28"><a href="#cb8-28"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb8-29"><a href="#cb8-29"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HnFxVvTjwEyB0AoQQSug99CpIlSLlUQQEFBCRJqACj6IiXR5NHh3+EgwgRRBpIhDpICiClNBrQgskFGlSEkKA/Pd3fXecnZ3dnZ3J7N7dfM/nM5k7955z7rnfc4n445R+k1tSkggQIECAAAECBAgQIECAAAECBAgQINAHBabpg8/kkQgQIECAAAECBAgQIECAAAECBAgQIJAJCIB6EQgQIECAAAECBAgQIECAAAECBAgQ6LMCAqB9tms9GAECBAgQIECAAAECBAgQIECAAAECAqDeAQIECBAgQIAAAQIECBAgQIAAAQIE+qyAAGif7VoPRoAAAQIECBAgQIAAAQIECBAgQICAAKh3gAABAgQIECBAgAABAgQIECBAgACBPisgANpnu9aDESBAgAABAgQIECBAgAABAgQIECAgAOodIECAAAECBAgQIECAAAECBAgQIECgzwoIgPbZrvVgBAgQIECAAAECBAgQIECAAAECBAgIgHoHCBAgQIAAAQIECBAgQIAAAQIECBDoswICoH22az0YAQIECBAgQIAAAQIECBAgQIAAAQICoN4BAgQIECBAgAABAgQIECBAgAABAgT6rIAAaJ/tWg9GgAABAgQIECBAgAABAgQIECBAgMB0CAgQINBTAh9//HH65z//maaddto0ZMiQNN10/krqqb5wXwIECBAgQIAAAQIECBAg0FcFRBv6as96rnYF/vGPf6Rjjjmm3ev5hX79+qWZZ545zTLLLGn22WdPQ4cOTauuumpaa621UlwrUpo0aVIWRJxmmmIP6h47dmy66qqr0p///Of0wAMPpAkTJpQYIwi6wAILpEUWWSStuOKK6bDDDksLLbRQ6Xp3Htx///3p+OOPb3XLJZdcMp133nmtzvlBgAABAgQIECBAgAABAgQIFF+g3+SWVPxmaiGBKSdw0003pW222abuCpdddtl08MEHpz333DMVIeAYwcRoz8MPP5wGDBhQ93M1s2AEaE877bR04oknpk8//bSmW00//fRp3333TUceeWSaZ555aiozpTL98Y9/TNtvv32r6iL4/eijj7Y65wcBAgQIECBAgAABAgQIECBQfIFiDxcrvp8WToUCzz77bNpnn33Stttumz766KMeE3jxxRfTlltumX3iuKgp/hvLbrvtlo444oiag5/xLJ9//nk699xz08orr5zefvvtoj6edhEgQIAAAQIECBAgQIAAAQIFFxAALXgHaV5xBWIk6QYbbNBqGnd3tPaLL75IP/3pT9Pyyy+fTSXvjns2co9f/vKX6Q9/+EPdVbz11ltpl112SV999VXddShIgAABAgQIECBAgAABAgQITL0C1gCdevvek1cIrLTSSql///4pRizGlO0YgfjJJ5+kN998M3355ZcVuf/98/HHH08/+clP0kUXXVT1ejNOfvDBB9l08mbUPaXrjLaefvrpVavdbLPN0sYbb5wWXHDBbE3V119/PY0YMSL95S9/aZP/7rvvzp75Zz/7WZtrThAgQIAAAQIECBAgQIAAAQIEOhKwBmhHOq71SYH21gCNkYbV1pqM4GesCRkjGZ9++umqJrfddlvadNNNq16b0idj1/TBgwe3qfZf//pX4dYAHTZsWNp///1btTU2lAqvNddcs9X5/Mfvf//7bMRn/jv/js2nYuOk7kgRBK824jQ2apIIECBAgAABAgQIECBAgACB3iVgCnzv6i+t7QGBCHrtsMMO6cknn0zHHnts1RaceuqpVc9P7SdjvdTKtPvuu7cb/Iy8O++8c4o8lemxxx5LEydOrDzdlN/9+vVL0e+Vn6bcTKUECBAgQIAAAQIECBAgQIBAUwVMgW8qr8r7kkAExY466qh0zTXXpMrA3l133ZWNDo11OdtLMarwjjvuSPfdd18aN25c9olNlOaYY440cODAtOiii6YtttgiCw5WG2n4/PPPp0ceeSR9/PHHVW8R62zONNNM2bWhQ4em1VZbrU2+RtvQpsJOTlRra7VzldV897vfTZdeemnp9DTTTJMtT/DMM8+k2I29oxTPGLu1x2jd/BOjORdaaKG08MILp4022iits846HVWRYjr+vffe2yrPXHPNlfVPq5MVP95999304IMPppEjR2afCNjG0gqxkVN8R790ll599dX0t7/9rVW2GP26xBJLZOdiBHCMko3RsGPHjk1DhgzJTFZfffX0jW98I1tOoFXhDn5MCavK6qeEQWWdfhMgQIAAAQIECBAgQIAAgYYEWv4PsERgqhK48cYbJ7f8Q9Pm0zIFviaHlmBnm7JR35lnntlu+auvvnry0ksvXbVcZVuWXHLJyS3rYLap66yzzqqpfNR38MEHtyk/JdrQptJOTpxzzjlt2twS3J188cUXT25ZWqDd0i1rsE5+5ZVXJrcE+yaPHz++3XyVF6LMhhtu2OaelcYtAdDJd955Z2Xx0u/rr7++TR0tgdfS9WoHl19++eTZZputTbnye++4446TW9ZFrVa8dO53v/tdmzouuOCC
</div>
<div id="current-status" class="section level3">
<h3>Current Status</h3>
<p>Not requested currently</p>
</div>
</div>
<div id="v3-deep-dive" class="section level2">
<h2>V3 Deep dive</h2>
<div id="strategic-management" class="section level3">
<h3>Strategic Management</h3>
<div class="sourceCode" id="cb9"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb9-1"><a href="#cb9-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb9-2"><a href="#cb9-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb9-3"><a href="#cb9-3"></a><span class="st"> </span><span class="kw">filter</span>(group<span class="op">==</span><span class="st">&quot;strategic management&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb9-4"><a href="#cb9-4"></a><span class="st"> </span><span class="kw">group_by</span>(Status,sub_group)<span class="op">%&gt;%</span></span>
<span id="cb9-5"><a href="#cb9-5"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value,<span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb9-6"><a href="#cb9-6"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>Status))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb9-7"><a href="#cb9-7"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb9-8"><a href="#cb9-8"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb9-9"><a href="#cb9-9"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb9-10"><a href="#cb9-10"></a> <span class="dt">title =</span> <span class="st">&quot;Strategic Management&quot;</span>,</span>
<span id="cb9-11"><a href="#cb9-11"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb9-12"><a href="#cb9-12"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb9-13"><a href="#cb9-13"></a> )<span class="op">+</span></span>
<span id="cb9-14"><a href="#cb9-14"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb9-15"><a href="#cb9-15"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb9-16"><a href="#cb9-16"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Budget </span><span class="ch">\n</span><span class="st"> Planning </span><span class="ch">\n</span><span class="st"> Forecasting&quot;</span>, <span class="st">&quot;Corporate </span><span class="ch">\n</span><span class="st"> Performance&quot;</span>, <span class="st">&quot;Investments&quot;</span>,</span>
<span id="cb9-17"><a href="#cb9-17"></a> <span class="st">&quot;Law </span><span class="ch">\n</span><span class="st"> Regulation </span><span class="ch">\n</span><span class="st"> Compliance&quot;</span>, <span class="st">&quot;Risk </span><span class="ch">\n</span><span class="st"> Management&quot;</span>, <span class="st">&quot;Strategy </span><span class="ch">\n</span><span class="st"> Roadmap&quot;</span>, <span class="st">&quot;Treasury </span><span class="ch">\n</span><span class="st"> Tax </span><span class="ch">\n</span><span class="st"> Management&quot;</span>))<span class="op">+</span></span>
<span id="cb9-18"><a href="#cb9-18"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb9-19"><a href="#cb9-19"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb9-20"><a href="#cb9-20"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb9-21"><a href="#cb9-21"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb9-22"><a href="#cb9-22"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HmCRF/TDgOsKRc87hCJKjIkhQ4iFBQIJkJAiIwAeCCoggkkEBQYKAApIEBCRIBiVLOJAcjgxHDn8ygu43v9YeZ2Zndmd3ws7uvvU8e9Ohurr6rd7h7keFEV2FlCQCBAgQIECAAAECBAgQIECAAAECBAgMQYHxhuAzeSQCBAgQIECAAAECBAgQIECAAAECBAhkAgKgXgQCBAgQIECAAAECBAgQIECAAAECBIasgADokG1aD0aAAAECBAgQIECAAAECBAgQIECAgACod4AAAQIECBAgQIAAAQIECBAgQIAAgSErIAA6ZJvWgxEgQIAAAQIECBAgQIAAAQIECBAgIADqHSBAgAABAgQIECBAgAABAgQIECBAYMgKCIAO2ab1YAQIECBAgAABAgQIECBAgAABAgQICIB6BwgQIECAAAECBAgQIECAAAECBAgQGLICAqBDtmk9GAECBAgQIECAAAECBAgQIECAAAECAqDeAQIECBAgQIAAAQIECBAgQIAAAQIEhqyAAOiQbVoPRoAAAQIECBAgQIAAAQIECBAgQICAAKh3gAABAgQIECBAgAABAgQIECBAgACBISsgADpkm9aDESBAgAABAgQIECBAgAABAgQIECAwAQICBMoFPvjgg/Tmm2+m8ccfP80222xpggn8mpQL2SNAgAABAgQIECBAgAABAgQIDB4BkZ3B01Zq2iKBV155JV144YXpL3/5S7rrrrvSJ598UrxTBEFnn332NPfcc6fFF1887bPPPmnOOecsnu/Lxueff54FVccbb3B2vB7s9S9tqzvuuCMdcsghpYfS/PPPn0466aSyYwO5c/PNN6ejjjqqZhXmnXfedMopp9Q8n5/Yb7/90pgxY/Ldbp877bRT2njjjbsdd4DAcBMYSt9xw63tPC8BAgQIECBAgACB3gRGdBVSb5mcJzAUBeIfu8cee2w67LDD0kcffVTXI44cOTLtvPPO6YADDkgzzTRTXddEpgiu7rXXXunee+9NU045Zd3XdUrGwV7/SsfLLrssbbTRRmWHl1566XT//feXHRvInfPOOy9ttdVWNasQwfm33347TTXVVDXzfPHFF2m66aZL77//fs08xxxzTBbYr5nBCQLDQGCofccNgybziAQIECBAgAABAgT6JDA4u6L16RFlJtBdIOL+W2+9ddp///3rDn5GKf/85z/TiSeemJZccsn0+uuvdy+44shTTz2V1llnnewntgdbGuz1H2zefanvv/71r/TXv/61x0si4N5T8LPHi50kMAwEfMcNg0b2iAQIECBAgAABAgQKAgKgXoNhKfDzn/88/fGPf+z3s7/22mtpiy22SP/+97+rlhE97/bdd9+06KKLZr0/q2bq4IODvf4dTNvUqt144409lnfTTTf1eN5JAsNVwHfccG15z02AAAECBAgQIDBcBcwBOlxbfhg/97vvvpt++ctfVhVYa6210mqrrZbmmGOONGLEiPTSSy+lq6++umpPu5ijMYbQ/+hHP+pWVtwjzg3WNNjrP1jd+1pvAdC+islP4D8CvuO8CQQIECBAgAABAgSGl4AA6PBqb09bEIienx9++GGZRcyjeN1116Xllluu7HjsxMJHF1xwQdbjs/JkzCVZLQBamc9+ZwlssMEGKXqADfb0xBNPpJdffjlbqKvyWT7++ON05513Vh62T4AAAQIECBAgQIAAAQIEhp2AIfDDrsk98GOPPdYNYdttt60a/Mwzbr755inyVKYHHnggffbZZ5WH7Xe4QPTujUWEKn86vNopVn6vTLWGud9+++3ZnLWl+UeNGlW6a5sAAQIECBAgQIAAAQIECAwLAT1Ah0Uze8hSgQ8++KB0N9uudqwy03e+85109tlnFw+PN954acIJJ0yPPvpoihXEI0WPvPvuuy/VKi96n04yySRZ3oUWWigts8wy2XYEUqOc0jR69Og0/fTTZ8cvv/zybBh+9FRddtll0w477JBmmGGG0uzZdizudMMNN6Rbb701jRs3LvuJRXCmnnrqNO2006Z55pknrb322lmwN4J/lam/9a8s56233kp33313GjNmTPYTQeIlllgiWzwqPuPZ+5pefPHFFEG98H3ooYeyYOBKK62UVl555TTXXHNlxT377LPdej1+5StfSQsssEDZ7WJqg7/97W9lx2K19LDpKYVvrBT/yCOPFH9iHtg555wzq8Oqq66avva1r/VUREPn4j0L29KFjWIYfLXgfGVgNN7X8HrmmWf6VIdG36n8Zs8//3zWfvl+fH71q19N8803X3bozTffzHpa33XXXemVV15Js802W/Z7Fe/717/+9WxKitJra203q76V5Tfz/Sstuxm/K7EYVvQELk1bbrllZhbv5z/+8Y902223Zf6xkNuKK66YvQvx/TPBBOV/DXjjjTey74/4Donr4jsofl/jHZt//vlLb9HjdjOeqxXvTLO+43p8eCcJECBAgAABAgQIEOg8gcI/FiUCw0rg17/+dVfhN7HspxAM7Prd737X
</div>
<div id="technology-management" class="section level3">
<h3>Technology Management</h3>
<div class="sourceCode" id="cb10"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb10-1"><a href="#cb10-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb10-2"><a href="#cb10-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb10-3"><a href="#cb10-3"></a><span class="st"> </span><span class="kw">filter</span>(group<span class="op">==</span><span class="st">&quot;technology management&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb10-4"><a href="#cb10-4"></a><span class="st"> </span><span class="kw">group_by</span>(Status,sub_group)<span class="op">%&gt;%</span></span>
<span id="cb10-5"><a href="#cb10-5"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value,<span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb10-6"><a href="#cb10-6"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>Status))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb10-7"><a href="#cb10-7"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb10-8"><a href="#cb10-8"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb10-9"><a href="#cb10-9"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb10-10"><a href="#cb10-10"></a> <span class="dt">title =</span> <span class="st">&quot;Technology Management&quot;</span>,</span>
<span id="cb10-11"><a href="#cb10-11"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb10-12"><a href="#cb10-12"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb10-13"><a href="#cb10-13"></a> )<span class="op">+</span></span>
<span id="cb10-14"><a href="#cb10-14"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb10-15"><a href="#cb10-15"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb10-16"><a href="#cb10-16"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Cloud </span><span class="ch">\n</span><span class="st"> Strategy&quot;</span>, <span class="st">&quot;IT </span><span class="ch">\n</span><span class="st"> Infrastructure&quot;</span>, <span class="st">&quot;System </span><span class="ch">\n</span><span class="st"> Integration </span><span class="ch">\n</span><span class="st"> Matrix&quot;</span>,</span>
<span id="cb10-17"><a href="#cb10-17"></a> <span class="st">&quot;System </span><span class="ch">\n</span><span class="st"> Security </span><span class="ch">\n</span><span class="st"> Monitoring&quot;</span>))<span class="op">+</span></span>
<span id="cb10-18"><a href="#cb10-18"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb10-19"><a href="#cb10-19"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb10-20"><a href="#cb10-20"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb10-21"><a href="#cb10-21"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb10-22"><a href="#cb10-22"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HnCRF3TDgInNkjgySOXIGRZCgJA8JAh4iQTIioPKBoKAiyEsWCYpkFJAkICDBI6NkyTkeOSNJctL9+t/a4+yE3dmdmdvZ3ad+v3N6uqurq57qm/e9PxUm6MpSkggQIECAAAECBAgQIECAAAECBAgQIDAEBSYcgm3SJAIECBAgQIAAAQIECBAgQIAAAQIECOQCAqBeBAIECBAgQIAAAQIECBAgQIAAAQIEhqyAAOiQ7VoNI0CAAAECBAgQIECAAAECBAgQIEBAANQ7QIAAAQIECBAgQIAAAQIECBAgQIDAkBUQAB2yXathBAgQIECAAAECBAgQIECAAAECBAgIgHoHCBAgQIAAAQIECBAgQIAAAQIECBAYsgICoEO2azWMAAECBAgQIECAAAECBAgQIECAAAEBUO8AAQIECBAgQIAAAQIECBAgQIAAAQJDVkAAdMh2rYYRIECAAAECBAgQIECAAAECBAgQICAA6h0gQIAAAQIECBAgQIAAAQIECBAgQGDICgiADtmu1TACBAgQIECAAAECBAgQIECAAAECBARAvQMECBAgQIAAAQIECBAgQIAAAQIECAxZAQHQIdu1GkaAAAECBAgQIECAAAECBAgQIECAgACod4AAAQIECBAgQIAAAQIECBAgQIAAgSErMPGQbZmGEagQGDduXNp1110rzjb/9ZJLLkmTTTZZ8wWNpxJuuOGGdNBBB3V72sILL5yOOeaYbueG05ebb745HXDAAd2aPGrUqHTsscd2O+dL3wWuu+66dNhhh9W9cb755kvHH3983evFhX322Sfdfffdxdeqzx133DGNGTOm6rwTBIabwKeffpommmiiNOGE/hv3cOt77SVAgAABAgQIEKgvIABa38aVISbwzjvvpKuuuqrlrfr3v//d8jLbWeArr7xS5fDPf/6znY/s+LJfe+21KpPXX3+94+s9GCr48ssvV9mW1zsCNYceemiadtppy093O/7ss8/Scccdl+LvcL201lpr1bvkPIFhI/CXv/wl7b777umOO+5I00wzzbBpt4YSIECAAAECBAgQ6E3A8IDehFwnQIAAgbYJ/Otf/0p//etfeyw/gjk9BT97vNlFAsNA4PHHH0/rrrtu/ieOJQIECBAgQIAAAQIEugsIgHb38I0AAQIExrPANddc0+MTr7322h6vu0hguArE6Oi99torLb744ilGf0oECBAgQIAAAQIECNQWMAW+touzQ1BgiimmSMsvv3zdlsUIs1ojZ5ZYYoke1/i0zlpdUhcINCQgANoQk0wEqgTeeuutdMQRR1Sdd4IAAQIECBAgQIAAge4CAqDdPXwbwgKx0U9Mpa2XIghTax3B2ORonnnmqXeb8wQINCnw6KOPphdeeCF97nOfqyrpgw8+SLfcckvVeScIECBAgAABAgQIECBAgECjAqbANyolHwECBAi0RCB2fq9M9aa533TTTemTTz7pln3++efv9t0XAgQIECBAgAABAgQIECDQk4ARoD3puEagSYHYSfy2225Ld999d/7n448/TksttVRaeuml889FFlmkz0/o6upKd911V3rwwQdLf2In+rnmmivNPffcafXVV09f+tKX+lxucUNMqbz55pvTrbfemm6//fY022yzpc9//vP5ny9+8YtFtpqfzzzzTIqAVXmKexZYYIH81D/+8Y90zjnn5GW/+OKLaY455kjLLrtsvjTBl7/85TTBBBOU39rr8fvvv5/OP//8dM8996TnnnsuvfHGG2nBBRdMsWzBkksumZZZZpk03XTT9VpOMxnaVYdoT1jeeeed6f77708RNFxllVXSqquumvdz1Pmpp56qGh35hS98ITeI6zfccEPuEsdFmnnmmdPaa69dfK35+eabb9ZcT3DMmDFp8sknr3lPX05Gn8ffjfKNjWIE9tZbb11VTGVgNJacCIcnn3yyKm9PJ+LvzdVXX52bvPTSSyn+xPPj/Rg5cmSad9550zrrrJNWWGGFFDvT10vj4x1vVV0r29CKd6qyzOJ7K37rYjOsGAlcnrbYYov8dyF+4+67775044035n8vIii+8sor5+/CcsstlyaeuPv/O/Paa6/lfR1/B+K+GWecMcXvbbxjo0aNKn9Ej8etaFc73pkYNR2/De+++27N+v/xj39MI0aMyK9Fu8NIIkCAAAECBAgQIDCsBbJ/aEkECGQCWXCkK/sxqPrz9NNP98vnD3/4Q9fUU09dVV75MzbZZJOuLODYcPlRl6985Ss9lhnlZwHQriygVLPc7B/GVfdnQZ887xVXXNE1/fTTV10v6hz1zf7BXbPcOHnmmWdW3XviiSd2ZTt9dx1++OFdk002WdX1ouwsKNf1yiuv1C27/MLbb7/d9d3vfrdrqqmmqltelDvNNNN0nXzyyeW31jy+8MILq8rJgnQ18xYnW12Hotz4PPbYY3u0+tGPftSVBYS6fv/731fV+7e//W2pqDgufIvPKaecsisL2pby1Dr49a9/XXVftoREray9nqv1Tnzr
</div>
<div id="process-management" class="section level3">
<h3>Process Management</h3>
<div class="sourceCode" id="cb11"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb11-1"><a href="#cb11-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb11-2"><a href="#cb11-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb11-3"><a href="#cb11-3"></a><span class="st"> </span><span class="kw">filter</span>(group<span class="op">==</span><span class="st">&quot;process management&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb11-4"><a href="#cb11-4"></a><span class="st"> </span><span class="kw">group_by</span>(Status,sub_group)<span class="op">%&gt;%</span></span>
<span id="cb11-5"><a href="#cb11-5"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value,<span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb11-6"><a href="#cb11-6"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>Status))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb11-7"><a href="#cb11-7"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb11-8"><a href="#cb11-8"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb11-9"><a href="#cb11-9"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb11-10"><a href="#cb11-10"></a> <span class="dt">title =</span> <span class="st">&quot;Process Management&quot;</span>,</span>
<span id="cb11-11"><a href="#cb11-11"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb11-12"><a href="#cb11-12"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb11-13"><a href="#cb11-13"></a> )<span class="op">+</span></span>
<span id="cb11-14"><a href="#cb11-14"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb11-15"><a href="#cb11-15"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb11-16"><a href="#cb11-16"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Policies </span><span class="ch">\n</span><span class="st"> Procedures&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> Flow </span><span class="ch">\n</span><span class="st"> Bottlenecks&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> KPIs&quot;</span>,</span>
<span id="cb11-17"><a href="#cb11-17"></a> <span class="st">&quot;Roles </span><span class="ch">\n</span><span class="st"> Responsibilities&quot;</span>, <span class="st">&quot;Workflow </span><span class="ch">\n</span><span class="st"> Optimization </span><span class="ch">\n</span><span class="st"> Level&quot;</span>))<span class="op">+</span></span>
<span id="cb11-18"><a href="#cb11-18"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb11-19"><a href="#cb11-19"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb11-20"><a href="#cb11-20"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb11-21"><a href="#cb11-21"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb11-22"><a href="#cb11-22"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HnCRF2TjgOnLOGck5R0mS4yGggAQJkhGBT/mDKEkE+ciigCJBQAFJAgoSJIMCIhIOJIcjw5HDB0cG999va48Td+d2Zm7ndp/6/ZbpUF1d/fTs6b33VtWwnqwkhQABAgQIECBAgAABAgQIECBAgAABAoNQYLxB+EweiQABAgQIECBAgAABAgQIECBAgAABArmAAKgvAgECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZAAHTQvloPRoAAAQIECBAgQIAAAQIECBAgQICAAKjvAAECBAgQIECAAAECBAgQIECAAAECg1ZggkH7ZB6MQAOBe++9Nx1yyCENzv778LBhw9J4442XJphggjTppJOmKaaYIs0888xp4YUXTptuummaaqqper3eSQKFwC233JKOO+64Yrfmc955502nnXZazfHqAwcddFAaMWJE9eHS/u6775622GKL0r4NAkNR4LPPPkvjjz9+/uf3UHx+z0yAAAECBAgQIECAQH0BAdD6Lo4OYoE333wz3XDDDf1+wgh+RrDpiCOOSJNNNlm/23Hh0BB45ZVXev2+RbDm2GOPTVNPPXVDkM8//zydeuqp6b333mtYZ7311mt4zgkCQ0Hgz3/+c9p3333TPffc4x+phsIL94wECBAgQIAAAQIExkDAEPgxwFKVQAhEEOpnP/tZ2nDDDdP7778PhUBLAl988UX6y1/+0msbEdDpLfjZ68VOEhjkAk8++WTaaKON8p/YVggQIECAAAECBAgQIFAtIABaLWKfQJMCt912W9pqq62arK0agcYCN910U+OT2Zmbb7651/NOEhiKApEZ/YMf/CAtvvjiKbI/FQIECBAgQIAAAQIECDQSMAS+kYzjQ05gySWXTBNNNFHq6elJkZUXc8mNHj06vfrqq+mTTz6p63HdddelCISuvvrqdc87SKAZAQHQZpTUIVAp8M4776QTTjih8qA9AgQIECBAgAABAgQI1BEQAK2D4tDQFLjmmmvSl770pZqH/+ijj9LJJ5+cz9P4f//3fzXnjz76aAHQGhUHxkTg8ccfTy+99FLd79+HH36Y7rzzzjFpTl0CBAgQIECAAAECBAgQIECgTMAQ+DIMmwTqCcQq8AceeGB65JFH6i5Uc99999W7zDECDQVi5ffq0miY+x133JE+/fTTiurzzTdfxb4dAgQIECBAgAABAgQIECBAoLGADNDGNs4QqBCYffbZ0y677JJOPPHEiuOxqnwsUBOrwxfl/vvvzwOmxX58Dh8+PM0wwwz58SuuuCJf+CZW/l5++eXTrrvummacccby6qXtDz74IF166aUp2nzhhRfSW2+9lRZccMG0xBJLpBi2v8wyy6RpppmmVL/ZjRjqH8Hbhx9+uPTzr3/9K80555xprrnmSmuvvXb6yle+0mxzeb2wuOuuu9KIESPyn5g6YKmllkpLL710/rnIIouMUXsx/cDll1+enn/++fzZI0syAtKzzDJL/hPtbr755mniiSduqt12t9fUTetUWnbZZVPxvSlOxzD4HXfcsdgtfVYHRscbb7y02mqrpaeffrpUp5mNeN833nhjPmXDqFGjUvzE9za+O9NNN12aZ5558oW9VlxxxRQr09crzz33XIqAbHlZaaWV0vzzz58feuONN9JFF12U/v73v6eXX345xe9MPGt8x9dcc800bNiw8ksbbrejr/Uaj9+f6P+9996bHnzwwRSB6LCMKSziOx/lmWeeqcm4XWGFFfLfuXptFsfa8d2PxbDiO15etttuu9wtfjf/+c9/pttvvz1/hgiKr7rqqnn/l1tuuTTBBJX/c/7666/n7zqm6Ijr4s+e+P2L79gCCyxQfotet9vxXO3+3kTGdLzDRovQ/f73v8//nIgHi2cOH4UAAQIECBAgQIAAgSEukP1FUyEwpASuvfbanuzXvubnxRdf7NPhl7/8Zc110dZjjz1Wce0Pf/jDmnpZYLDnkksu6Zlwwglrzi200EIV18fOu+++2/Od73ynZ4oppqipX97/LPDac+aZZ9Zc39uBZ599tmettdbqtd24RxYA7ckCc701VTr3u9/9rmfKKafstc0tt9yyJ5u3r3RNo40seNOz33779WTBzl7biz5OP/30PQcffHBPNm9ro+Z62t1ewxvVOXH++efXPMM3
</div>
<div id="change-management" class="section level3">
<h3>Change Management</h3>
<div class="sourceCode" id="cb12"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb12-1"><a href="#cb12-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb12-2"><a href="#cb12-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb12-3"><a href="#cb12-3"></a><span class="st"> </span><span class="kw">filter</span>(group<span class="op">==</span><span class="st">&quot;change management&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb12-4"><a href="#cb12-4"></a><span class="st"> </span><span class="kw">group_by</span>(Status,sub_group)<span class="op">%&gt;%</span></span>
<span id="cb12-5"><a href="#cb12-5"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value,<span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb12-6"><a href="#cb12-6"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>Status))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb12-7"><a href="#cb12-7"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb12-8"><a href="#cb12-8"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb12-9"><a href="#cb12-9"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb12-10"><a href="#cb12-10"></a> <span class="dt">title =</span> <span class="st">&quot;Change Management&quot;</span>,</span>
<span id="cb12-11"><a href="#cb12-11"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb12-12"><a href="#cb12-12"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb12-13"><a href="#cb12-13"></a> )<span class="op">+</span></span>
<span id="cb12-14"><a href="#cb12-14"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb12-15"><a href="#cb12-15"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb12-16"><a href="#cb12-16"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Communication </span><span class="ch">\n</span><span class="st"> Structure </span><span class="ch">\n</span><span class="st"> Abilities&quot;</span>, <span class="st">&quot;Leadership </span><span class="ch">\n</span><span class="st"> Change </span><span class="ch">\n</span><span class="st"> Cooperation&quot;</span>, <span class="st">&quot;Organizational </span><span class="ch">\n</span><span class="st"> Culture&quot;</span>,<span class="st">&quot;Readiness </span><span class="ch">\n</span><span class="st"> to </span><span class="ch">\n</span><span class="st"> Change&quot;</span>))<span class="op">+</span></span>
<span id="cb12-17"><a href="#cb12-17"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb12-18"><a href="#cb12-18"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb12-19"><a href="#cb12-19"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb12-20"><a href="#cb12-20"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb12-21"><a href="#cb12-21"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HmCRF3TjgInNkjpxzzkEJEpQkSBCQDAoSREDgA0EBEfiUDBIU4fBAAUkCCh85g0cQCUfOR4Yjhz/5OHD/82vtcXbC7uzOzO7s7lvPs05PdXV19VvN+PCjwgQdhZQkAgQIECBAgAABAgQIECBAgAABAgQIDEKBCQfhM3kkAgQIECBAgAABAgQIECBAgAABAgQIZAICoF4EAgQIECBAgAABAgQIECBAgAABAgQGrYAA6KDtWg9GgAABAgQIECBAgAABAgQIECBAgIAAqHeAAAECBAgQIECAAAECBAgQIECAAIFBKyAAOmi71oMRIECAAAECBAgQIECAAAECBAgQICAA6h0gQIAAAQIECBAgQIAAAQIECBAgQGDQCgiADtqu9WAECBAgQIAAAQIECBAgQIAAAQIECAiAegcIECBAgAABAgQIECBAgAABAgQIEBi0AgKgg7ZrPRgBAgQIECBAgAABAgQIECBAgAABAgKg3gECBAgQIECAAAECBAgQIECAAAECBAatgADooO1aD0aAAAECBAgQIECAAAECBAgQIECAgACod4AAAQIECBAgQIAAAQIECBAgQIAAgUErIAA6aLvWgxEgQIAAAQIECBAgQIAAAQIECBAgMDECAgSqC4wbNy69/fbb6YsvvkjzzDNPmmiiiaoXlEuAAAECBAgQIECAAAECBAgQINC2AgKgbds1GtbXAuPHj0+XX355uuaaa9KNN96Y3njjjWITJp988rTwwgunxRdfPC299NJpjz32SNNNN13xfK2DUaNGpaOOOqrT6UUXXTSdeuqpnfJ8GZgCt956azruuONqNn7++edPZ5xxRs3z+YmDDz44jR49Ov9a8bnbbrulLbbYoiJfBoGhJhC/0/Efoyac0ASWodb3npcAAQIECBAgQIBAIwITdBRSIxW4lsBgELj00kvTIYccksaMGVPX48wyyyzppJNOStttt12X5S+55JK09dZbdyqz0korpXvuuadTni8DU+CCCy5IO+ywQ83GR6Dm3XffTdNOO23NMl9++WWaYYYZ0ocfflizzAknnJAOOOCAmuedIDAUBK699tq03377pfvuuy9NM800Q+GRPSMBAgQIECBAgAABAk0SMISiSZCqGZgCEXyK0XVbbbVV3cHPeNI333wzbb/99mmdddZJr7zyysB8eK1uucBXX32Vbr/99i7vE8GcroKfXV7sJIEhIPDMM8+kDTfcMPuLY4kAAQIECBAgQIAAAQI9FRAA7amY8oNGIIJT3/3ud9NZZ53V62e65ZZbsjo+//zzXtfhwsEtcPPNN3f5gPEOSQQIVArEf6A68MAD05JLLpli9KdEgAABAgQIECBAgACB3gpYA7S3cq4b8AKHHXZYzX+pHj58eFphhRXS8ssvnyaddNIUo45uuOGG9MEHH1Q894MPPpj+53/+J40YMaLinAwCAqDeAQK9E3j//ffTiSee2LuLXUWAAAECBAgQIECAAIESAQHQEgyHQ0fgjjvuSMcee2zVB957772zf+mOwGdpeu+999Khhx5adVObkSNHptjIJnaLlwiUCjz11FPp1VdfTXPOOWdpdnb86aefprvvvrsiXwYBAgQIECBAgAABAgQIECDQPAFT4JtnqaYBJBA7s//rX/+qaPFFF12Ufvvb32ajPstPxqjQ008/PdsBvvxc1NXIVPry+nwfuAKx83t5qjXN/c4770xffPFFp+ILLLBAp+++ECBAgAABAgQIECBAgAABAo0JGAHamJ+rB6DAY489lk1nL2/6BhtskLbZZpvy7IrvESC9/PLL0xtvvFE8N/nkk/doE6X8wpjiedddd6V//OMf6d57702zzTZb+trXvpb9rbzyynmxbj87OjrSTTfdlEaNGpXGjh2b/cXGOtNNN12KwO18882X4vliB/rYmbxaevHFF1ME5EpTtGHBBRfMst5+++0UAeJo62uvvZbmmGOObImAFVdcMX3zm99ME0wwQemlXR6//PLL2b3uv//+9Mgjj6QIGq6++uppjTXWKI6iff755ytGR379619PCy+8cJd1v/POO+mee+5Jo0ePzv7GjRuXlllmmbTssstmn4sttliX1zd6MpZNiDaUbmwU0+B33HHHiqrLA6MTTjhh5vDcc89VlO0qoxn9H/X31TvQrPaWm7TqvWrGOxWbYcVI4NIUG6nFPzfxH1AefvjhFCPT86D4aqutlr0LsRTHxBN3/r/qt956K/tnPf55j+tmnHHGFO91vGMLLbRQ6S26PG7Gc7XinYlR0/Hb8NFHH1Vt/1/+8pc0bNiw7Fw8dxhJBAgQIECAAAECBAgQ6FKg8C+iEoEhJXDEEUd0FP6hqPgrBM3qdvj1r3/d8Z3vfKfjmGOO6SgELDoKQbaq1xb+Rb3iPoUgZFb2+uuv75h++ukrzudt23LLLTsKAYCq9ZZmXnLJJR2LLLJIzXry+uKzEBzpKARiSi8vHp9//vkVdZx55pkdhc2iOo4//viOySabrOJ8Xvd6663XUQgI
</div>
<div id="data-science" class="section level3">
<h3>Data Science</h3>
<div class="sourceCode" id="cb13"><pre class="sourceCode r"><code class="sourceCode r"><span id="cb13-1"><a href="#cb13-1"></a>data<span class="op">%&gt;%</span></span>
<span id="cb13-2"><a href="#cb13-2"></a><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">value=</span><span class="kw">as.integer</span>(value))<span class="op">%&gt;%</span></span>
<span id="cb13-3"><a href="#cb13-3"></a><span class="st"> </span><span class="kw">filter</span>(group<span class="op">==</span><span class="st">&quot;data science&quot;</span>)<span class="op">%&gt;%</span></span>
<span id="cb13-4"><a href="#cb13-4"></a><span class="st"> </span><span class="kw">group_by</span>(Status,sub_group)<span class="op">%&gt;%</span></span>
<span id="cb13-5"><a href="#cb13-5"></a><span class="st"> </span><span class="kw">summarise</span>(<span class="dt">value=</span><span class="kw">round</span>(<span class="kw">mean</span>(value,<span class="dt">na.rm =</span> T)))<span class="op">%&gt;%</span></span>
<span id="cb13-6"><a href="#cb13-6"></a><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(<span class="dt">x=</span>sub_group,<span class="dt">y=</span>value,<span class="dt">fill=</span>Status))<span class="op">+</span><span class="kw">geom_col</span>(<span class="dt">position =</span> <span class="st">&quot;dodge2&quot;</span>)<span class="op">+</span></span>
<span id="cb13-7"><a href="#cb13-7"></a><span class="st"> </span><span class="kw">labs</span>(<span class="dt">fill =</span> <span class="st">&quot;&quot;</span>,</span>
<span id="cb13-8"><a href="#cb13-8"></a> <span class="dt">y=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb13-9"><a href="#cb13-9"></a> <span class="dt">x=</span><span class="st">&quot;&quot;</span>,</span>
<span id="cb13-10"><a href="#cb13-10"></a> <span class="dt">title =</span> <span class="st">&quot;Data Science&quot;</span>,</span>
<span id="cb13-11"><a href="#cb13-11"></a> <span class="dt">subtitle =</span> <span class="st">&quot;Desire vs Current&quot;</span>,</span>
<span id="cb13-12"><a href="#cb13-12"></a> <span class="dt">caption =</span> <span class="st">&quot;Source: LaNubia Finance Transformation Survey&quot;</span></span>
<span id="cb13-13"><a href="#cb13-13"></a> )<span class="op">+</span></span>
<span id="cb13-14"><a href="#cb13-14"></a><span class="st"> </span><span class="kw">scale_fill_manual</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">labels =</span> <span class="kw">c</span>(<span class="st">&quot;Current&quot;</span>,<span class="st">&quot;Goal&quot;</span>), <span class="dt">values=</span> <span class="kw">c</span>(<span class="st">&quot;dodgerblue4&quot;</span>,<span class="st">&quot;aquamarine4&quot;</span>))<span class="op">+</span></span>
<span id="cb13-15"><a href="#cb13-15"></a><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">name =</span> <span class="st">&quot;&quot;</span>, <span class="dt">breaks=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">2</span>,<span class="dv">3</span>,<span class="dv">4</span>,<span class="dv">5</span>), <span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Oblivious&quot;</span>,<span class="st">&quot;Explorer&quot;</span>,<span class="st">&quot;Enlightened&quot;</span>,<span class="st">&quot;Vanguard&quot;</span>,<span class="st">&quot;Empowered&quot;</span>), <span class="dt">limits =</span> <span class="kw">c</span>(<span class="dv">0</span>,<span class="dv">5</span>))<span class="op">+</span></span>
<span id="cb13-16"><a href="#cb13-16"></a><span class="st"> </span><span class="kw">scale_x_discrete</span>(<span class="dt">labels=</span><span class="kw">c</span>(<span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Governance&quot;</span>, <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Integration </span><span class="ch">\n</span><span class="st"> Aggregation&quot;</span>, <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Science </span><span class="ch">\n</span><span class="st"> Capability&quot;</span>,</span>
<span id="cb13-17"><a href="#cb13-17"></a> <span class="st">&quot;Data </span><span class="ch">\n</span><span class="st"> Sources&quot;</span>, <span class="st">&quot;Process </span><span class="ch">\n</span><span class="st"> Standardization </span><span class="ch">\n</span><span class="st"> Automation&quot;</span>, <span class="st">&quot;Reporting </span><span class="ch">\n</span><span class="st"> Visualization&quot;</span>))<span class="op">+</span></span>
<span id="cb13-18"><a href="#cb13-18"></a><span class="st"> </span><span class="kw">theme_linedraw</span>() <span class="op">+</span></span>
<span id="cb13-19"><a href="#cb13-19"></a><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="st">&quot;bottom&quot;</span>,</span>
<span id="cb13-20"><a href="#cb13-20"></a> <span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">color=</span><span class="st">&quot;black&quot;</span>, <span class="dt">size=</span><span class="dv">14</span>, <span class="dt">face=</span><span class="st">&quot;bold&quot;</span>))<span class="op">+</span></span>
<span id="cb13-21"><a href="#cb13-21"></a><span class="st"> </span><span class="kw">coord_cartesian</span>(<span class="dt">clip =</span> <span class="st">&quot;off&quot;</span>)<span class="op">+</span></span>
<span id="cb13-22"><a href="#cb13-22"></a><span class="st"> </span><span class="kw">annotation_custom</span>(l, <span class="dt">xmin =</span> <span class="fl">-0.5</span>, <span class="dt">xmax =</span> <span class="dv">1</span>, <span class="dt">ymin=</span><span class="op">-</span><span class="dv">1</span>,<span class="dt">ymax=</span><span class="op">-</span><span class="fl">2.25</span>)</span></code></pre></div>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAABUAAAAPACAYAAAD0ZtPZAAAEDmlDQ1BrQ0dDb2xvclNwYWNlR2VuZXJpY1JHQgAAOI2NVV1oHFUUPpu5syskzoPUpqaSDv41lLRsUtGE2uj+ZbNt3CyTbLRBkMns3Z1pJjPj/KRpKT4UQRDBqOCT4P9bwSchaqvtiy2itFCiBIMo+ND6R6HSFwnruTOzu5O4a73L3PnmnO9+595z7t4LkLgsW5beJQIsGq4t5dPis8fmxMQ6dMF90A190C0rjpUqlSYBG+PCv9rt7yDG3tf2t/f/Z+uuUEcBiN2F2Kw4yiLiZQD+FcWyXYAEQfvICddi+AnEO2ycIOISw7UAVxieD/Cyz5mRMohfRSwoqoz+xNuIB+cj9loEB3Pw2448NaitKSLLRck2q5pOI9O9g/t/tkXda8Tbg0+PszB9FN8DuPaXKnKW4YcQn1Xk3HSIry5ps8UQ/2W5aQnxIwBdu7yFcgrxPsRjVXu8HOh0qao30cArp9SZZxDfg3h1wTzKxu5E/LUxX5wKdX5SnAzmDx4A4OIqLbB69yMesE1pKojLjVdoNsfyiPi45hZmAn3uLWdpOtfQOaVmikEs7ovj8hFWpz7EV6mel0L9Xy23FMYlPYZenAx0yDB1/PX6dledmQjikjkXCxqMJS9WtfFCyH9XtSekEF+2dH+P4tzITduTygGfv58a5VCTH5PtXD7EFZiNyUDBhHnsFTBgE0SQIA9pfFtgo6cKGuhooeilaKH41eDs38Ip+f4At1Rq/sjr6NEwQqb/I/DQqsLvaFUjvAx+eWirddAJZnAj1DFJL0mSg/gcIpPkMBkhoyCSJ8lTZIxk0TpKDjXHliJzZPO50dR5ASNSnzeLvIvod0HG/mdkmOC0z8VKnzcQ2M/Yz2vKldduXjp9bleLu0ZWn7vWc+l0JGcaai10yNrUnXLP/8Jf59ewX+c3Wgz+B34Df+vbVrc16zTMVgp9um9bxEfzPU5kPqUtVWxhs6OiWTVW+gIfywB9uXi7CGcGW/zk98k/kmvJ95IfJn/j3uQ+4c5zn3Kfcd+AyF3gLnJfcl9xH3OfR2rUee80a+6vo7EK5mmXUdyfQlrYLTwoZIU9wsPCZEtP6BWGhAlhL3p2N6sTjRdduwbHsG9kq32sgBepc+xurLPW4T9URpYGJ3ym4+8zA05u44QjST8ZIoVtu3qE7fWmdn5LPdqvgcZz8Ww8BWJ8X3w0PhQ/wnCDGd+LvlHs8dRy6bLLDuKMaZ20tZrqisPJ5ONiCq8yKhYM5cCgKOu66Lsc0aYOtZdo5QCwezI4wm9J/v0X23mlZXOfBjj8Jzv3WrY5D+CsA9D7aMs2gGfjve8ArD6mePZSeCfEYt8CONWDw8FXTxrPqx/r9Vt4biXeANh8vV7/+/16ffMD1N8AuKD/A/8leAvFY9bLAAAAOGVYSWZNTQAqAAAACAABh2kABAAAAAEAAAAaAAAAAAACoAIABAAAAAEAAAVAoAMABAAAAAEAAAPAAAAAALYRw1EAAEAASURBVHgB7N0HnFxV2TDwEyB0AoROIPTeiyJIkxpeioB0pIOACnxEUAEB9aOJSBE+CAK+gFKkiRQBqdJESAISOqEFEgjSpCT0/ea5esfZ2dnN7M7O7t3N//x+m71z77nnnvs/Q8SH55wzoKVUkkKAAAECBAgQIECAAAECBAgQIECAAIF+KDBNP3wnr0SAAAECBAgQIECAAAECBAgQIECAAIFMQADUF4EAAQIECBAgQIAAAQIECBAgQIAAgX4rIADab4fWixEgQIAAAQIECBAgQIAAAQIECBAgIADqO0CAAAECBAgQIECAAAECBAgQIECAQL8VEADtt0PrxQgQIECAAAECBAgQIECAAAECBAgQEAD1HSBAgAABAgQIECBAgAABAgQIECBAoN8KCID226H1YgQIECBAgAABAgQIECBAgAABAgQICID6DhAgQIAAAQIECBAgQIAAAQIECBAg0G8FBED77dB6MQIECBAgQIAAAQIECBAgQIAAAQIEBEB9BwgQIECAAAECBAgQIECAAAECBAgQ6LcCAqD9dmi9GAECBAgQIECAAAECBAgQIECAAAECAqC+AwQIECBAgAABAgQIECBAgAABAgQI9FsBAdB+O7RejAABAgQIECBAgAABAgQIECBAgACB6RAQIECgtwQ++OCD9M9//jNNO+20aciQIWm66fyV1Ftj4bkECBAgQIAAAQIECBAgQKC/Cog29NeR9V7tCvz9739Pxx13XLvX8wsDBgxIM888c5plllnS7LPPnpZbbrm0+uqrp6997WsprhWpfPbZZ1kQcZppip3UPX78+HTllVemP//5z+lvf/tbmjx5cpkxgqALLbRQWnTRRdPKK6+cjjjiiDR06NDy9Z48eOCBB9LPf/7zVo9caqml0jnnnNPqnA8ECBAgQIAAAQIECBAgQIBA8QUGtJRK8buphwS6T+DGG29M22yzTZcbXH755dPhhx+e9t1331SEgGMEE6M/jzzySBo0aFCX36uZN0aA9rTTTksnnnhi+uijj+p61PTTT58OPPDAdMwxx6T55puvrnu6q9If//jHtP3227dqLoLfo0aNanXOBwIECBAgQIAAAQIECBAgQKD4AsVOFyu+nx5OhQJPPfVUOuCAA9K2226b3n///V4TeO6559KWW26Z/cRxUUv8N5Y99tgjHX300XUHP+NdPv3003T22WenVVddNU2cOLGor6dfBAgQIECAAAECBAgQIECAQMEFBEALPkC6V1yByCTdYIMNWk3j7onefv755+nII49MK664YjaVvCee2cgzfvazn6U//OEPXW7ijTfeSLvttlv68ssvu9yGGwkQIECAAAECBAgQIECAAIGpV8AaoFPv2HvzKoFVVlklDRw4MEXGYkzZjgzEDz/8ML3++uvpiy++qKr974+PPfZY+v73v58uuuiimtebcfLdd9/NppM3o+3ubjP6+qtf/apms5tvvnnaeOON08ILL5ytqfrqq6+mm2++Od1zzz1t6t91113ZO//whz9sc80JAgQIECBAgAABAgQIECBAgEBHAtYA7UjHtX4p0N4aoJFpWGutyQh+xpqQkcn4xBNP1DS57bbb0mabbVbzWnefjF3T55133jbN/utf/yrcGqAjRoxIBx98cKu+xoZS4bXWWmu1Op9/uOKKK7KMz/xz/js2n4qNk3qiRBC8VsZpbNSkECBAgAABAgQIECBAgAABAn1LwBT4vjVeetsLAhH02mGHHdLjjz+ejj/++Jo9OPXUU2uen9pPxnqp1WWvvfZqN/gZdXfdddcUdarLo48+mj755JPq0035PGDAgBTjXv3TlIdplAABAgQIECBAgAABAgQIEGiqgCnwTeXVeH8SiKDYT37yk3T11Ven6sDenXfemWWHxrqc7ZXIKrz99tvTvffemyZMmJD9xCZKc8wxRxo8eHBabLHF0hZbbJEFB2tlGj7zzDNp5MiR6YMPPqj5iFhnc6aZZsquLbfccmmNNdZoU6/RPrRpcAonavW11rnqZnbZZZd0ySWXlE9PM8002fIETz75ZIrd2Dsq8Y6xW3tk6+Y/kc05dOjQtMgii6SNNtooff3rX++oiRTT8f/617+2qjPXXHNl49PqZNWHt956Kz300ENp9OjR2U8EbGNphdjIKX7HuEypvPzyy+n+++9vVS2yX5dccsnsXGQAR5ZsZMOOHz8+DRkyJDNZc80104YbbpgtJ9Dq5g4+dIdVdfPdYVDdps8ECBAgQIAAAQIECBAgQKAhgdL/AVYITFUCN9xwQ0vpH5o2P6Up8HU5lIKdbe6N9s4444x277/qqqtalllmmZr3VfdlqaWWaimtg9mmrTPPPLOu+6O9ww8/vM393dGHNo1O4cSvf/3rNn0uBXdbfvvb37aUlhZo9+7SGqwtL730Uksp2NcyadKkdutVX4h7vvGNb7R5ZrVxKQDacscdd1TfXv583XXXtWmjFHgtX6918Lvf/a5lttlma3Nf5bN33HHHltK6qLVuL5/7/e9/36aN888/
</div>
</div>
</div>
<script>
// add bootstrap table styles to pandoc tables
function bootstrapStylePandocTables() {
$('tr.odd').parent('tbody').parent('table').addClass('table table-condensed');
}
$(document).ready(function () {
bootstrapStylePandocTables();
});
</script>
<!-- tabsets -->
<script>
$(document).ready(function () {
window.buildTabsets("TOC");
});
$(document).ready(function () {
$('.tabset-dropdown > .nav-tabs > li').click(function () {
$(this).parent().toggleClass('nav-tabs-open');
});
});
</script>
<!-- code folding -->
<script>
$(document).ready(function () {
window.initializeCodeFolding("hide" === "show");
});
</script>
<!-- dynamically load mathjax for compatibility with self-contained -->
<script>
(function () {
var script = document.createElement("script");
script.type = "text/javascript";
script.src = "https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML";
document.getElementsByTagName("head")[0].appendChild(script);
})();
</script>
</body>
</html>