<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Circular barplot with groups – the R Graph Gallery</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="pandoc" />
<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
<meta name="description" content="How to build a grouped circular barchart with R and ggplot2. Gap is build between groups, bars are labeled, group names are annotated.">
<meta name="keywords" content="R,ggplot2,tidyverse,Example,Data,Dataviz,Datavisualization,Plot,Chart,Graph,Learning,Caveat,Pitfall,Mistake">
<meta name="author" content="Yan Holtz">
<link rel="icon" href="img/logo/R_single_small.png">
<!-- Control appearance when shared by social media -->
<meta property="og:title" content="Circular barplot with groups" />
<meta property="og:image" content="https://github.com/holtzy/R-graph-gallery/raw/master/img/logo/R_single_big.png" />
<meta property="og:description" content="How to build a grouped circular barchart with R and ggplot2. Gap is build between groups, bars are labeled, group names are annotated." />
<meta property='og:url' content="https://www.r-graph-gallery.com/297-circular-barplot-with-groups.html" />
<meta property="og:type" content="website" />
<!-- Bootstrap core CSS -->
<link href="vendor/bootstrap/css/bootstrap.min.css" rel="stylesheet">
<!-- Custom fonts for this template -->
<link href="vendor/font-awesome/css/font-awesome.min.css" rel="stylesheet" type="text/css">
<!-- Custom styles for this template -->
<link href="css/agency.css" rel="stylesheet">
<!-- JQUERY -->
<script src="vendor/jquery/jquery.min.js"></script>
</head>
<body data-spy="scroll" data-target="#myScrollspy" data-offset="1">
<!-- THIS ALLOWS TO INSERT THE MENU THAT IS STORED IN A MENU.HTML FILE-->
<nav class="navbar navbar-expand-lg fixed-top" id="mainNav"></nav>
<script>
$(function(){
$("#mainNav").load("html_chunk/menu.html");
});
</script>
<!-- THIS ALLOWS TO INSERT THE MODAL OF THE MENU THAT IS STORED IN A MENU_MODAL.HTML FILE-->
<div id="modal_menu_insertion"> </div>
<script>
$(function(){
$("#modal_menu_insertion").load("html_chunk/menu_modal.html");
});
</script>
<!-- Header = Title in big + social media Icon + quick description -->
<header class="masthead" style="padding-bottom: 30px;">
<div class="textlanding">
<center><h1>Circular barplot with groups</h1></center>
<hr class="short_hr">
<br>
<ul class="list-inline social-buttons">
<li class="list-inline-item">
<a href="https://twitter.com/R_Graph_Gallery">
<i class="fa fa-twitter"></i>
</a>
</li>
<li class="list-inline-item social-buttons">
<a href="https://github.com/holtzy">
<i class="fa fa-github" style="color: white"></i>
</a>
</li>
<li class="list-inline-item social-buttons">
<a href="https://www.linkedin.com/in/yan-holtz-2477534a/">
<i class="fa fa-linkedin"></i>
</a>
</li>
<li class="list-inline-item social-buttons">
<a href="https://www.yan-holtz.com">
<i class="fa fa-home"></i>
</a>
</li>
</ul>
<center><p style="max-width: 600px; margin-top: 40px">This post explains how to build a <a href="circular-barplot.html">circular barchart</a> with groups. A gap is added between groups to highlight them. Bars are labeled, group names are annotated</p></center>
<div style="text-align:center">
<a class="btn btn-secondary btn-xl text-uppercase js-scroll-trigger" href='circular-barplot.html'>Circular bar section</a>
<a class="btn btn-secondary btn-xl text-uppercase js-scroll-trigger" href='https://www.data-to-viz.com/graph/circularbarplot.html'>Warning</a>
</div>
</div>
</header>
<!-- THIS ALLOWS TO INSERT THE ADVERTISEMENT BANNER THAT IS STORED IN A BANNER.HTML FILE-->
<div id="position_for_images"></div>
<script>
$(function(){
$("#position_for_images").load("html_chunk/images.html");
});
</script>
<!-- STYLE for chart pages but not the rest of tthe website -->
<style>
img {
margin-top: 20px;
}
</style>
<div class="container">
<h1 id="add-a-gap-in-the-circle">Add a gap in the circle</h1>
<hr />
<div class="row">
<div class="col-md-6 col-sm-12 align-self-center">
<p>A <a href="circular-barplot.html">circular barplot</a> is a <a href="barplot.html">barplot</a> where bars are displayed along a circle instead of a line. This page aims to teach you how to make a circular barplot with groups.</p>
<p>Since this kind of chart is a bit tricky, I strongly advise to understand <a href="295-basic-circular-barplot.html">graph #295</a> and <a href="296-add-labels-to-circular-barplot.html">#296</a> that will teach you the basics.</p>
<p>The first step is to build a circular barplot with a break in the circle. Actually, I just added a few empty lines at the end of the initial data frame:</p>
</div>
<div class="col-md-6 col-sm-12">
<p><img src="297-circular-barplot-with-groups_files/figure-html/thecode-1.png" width="100%" /></p>
</div>
</div>
<div class="sourceCode" id="cb1"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb1-1" data-line-number="1"><span class="co"># library</span></a>
<a class="sourceLine" id="cb1-2" data-line-number="2"><span class="kw">library</span>(tidyverse)</a>
<a class="sourceLine" id="cb1-3" data-line-number="3"> </a>
<a class="sourceLine" id="cb1-4" data-line-number="4"><span class="co"># Create dataset</span></a>
<a class="sourceLine" id="cb1-5" data-line-number="5">data <-<span class="st"> </span><span class="kw">data.frame</span>(</a>
<a class="sourceLine" id="cb1-6" data-line-number="6"> <span class="dt">individual=</span><span class="kw">paste</span>( <span class="st">"Mister "</span>, <span class="kw">seq</span>(<span class="dv">1</span>,<span class="dv">60</span>), <span class="dt">sep=</span><span class="st">""</span>),</a>
<a class="sourceLine" id="cb1-7" data-line-number="7"> <span class="dt">value=</span><span class="kw">sample</span>( <span class="kw">seq</span>(<span class="dv">10</span>,<span class="dv">100</span>), <span class="dv">60</span>, <span class="dt">replace=</span>T)</a>
<a class="sourceLine" id="cb1-8" data-line-number="8">)</a>
<a class="sourceLine" id="cb1-9" data-line-number="9"> </a>
<a class="sourceLine" id="cb1-10" data-line-number="10"><span class="co"># Set a number of 'empty bar'</span></a>
<a class="sourceLine" id="cb1-11" data-line-number="11">empty_bar <-<span class="st"> </span><span class="dv">10</span></a>
<a class="sourceLine" id="cb1-12" data-line-number="12"> </a>
<a class="sourceLine" id="cb1-13" data-line-number="13"><span class="co"># Add lines to the initial dataset</span></a>
<a class="sourceLine" id="cb1-14" data-line-number="14">to_add <-<span class="st"> </span><span class="kw">matrix</span>(<span class="ot">NA</span>, empty_bar, <span class="kw">ncol</span>(data))</a>
<a class="sourceLine" id="cb1-15" data-line-number="15"><span class="kw">colnames</span>(to_add) <-<span class="st"> </span><span class="kw">colnames</span>(data)</a>
<a class="sourceLine" id="cb1-16" data-line-number="16">data <-<span class="st"> </span><span class="kw">rbind</span>(data, to_add)</a>
<a class="sourceLine" id="cb1-17" data-line-number="17">data<span class="op">$</span>id <-<span class="st"> </span><span class="kw">seq</span>(<span class="dv">1</span>, <span class="kw">nrow</span>(data))</a>
<a class="sourceLine" id="cb1-18" data-line-number="18"> </a>
<a class="sourceLine" id="cb1-19" data-line-number="19"><span class="co"># Get the name and the y position of each label</span></a>
<a class="sourceLine" id="cb1-20" data-line-number="20">label_data <-<span class="st"> </span>data</a>
<a class="sourceLine" id="cb1-21" data-line-number="21">number_of_bar <-<span class="st"> </span><span class="kw">nrow</span>(label_data)</a>
<a class="sourceLine" id="cb1-22" data-line-number="22">angle <-<span class="st"> </span><span class="dv">90</span> <span class="op">-</span><span class="st"> </span><span class="dv">360</span> <span class="op">*</span><span class="st"> </span>(label_data<span class="op">$</span>id<span class="fl">-0.5</span>) <span class="op">/</span>number_of_bar <span class="co"># I substract 0.5 because the letter must have the angle of the center of the bars. Not extreme right(1) or extreme left (0)</span></a>
<a class="sourceLine" id="cb1-23" data-line-number="23">label_data<span class="op">$</span>hjust <-<span class="st"> </span><span class="kw">ifelse</span>( angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, <span class="dv">1</span>, <span class="dv">0</span>)</a>
<a class="sourceLine" id="cb1-24" data-line-number="24">label_data<span class="op">$</span>angle <-<span class="st"> </span><span class="kw">ifelse</span>(angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, angle<span class="op">+</span><span class="dv">180</span>, angle)</a>
<a class="sourceLine" id="cb1-25" data-line-number="25"> </a>
<a class="sourceLine" id="cb1-26" data-line-number="26"><span class="co"># Make the plot</span></a>
<a class="sourceLine" id="cb1-27" data-line-number="27">p <-<span class="st"> </span><span class="kw">ggplot</span>(data, <span class="kw">aes</span>(<span class="dt">x=</span><span class="kw">as.factor</span>(id), <span class="dt">y=</span>value)) <span class="op">+</span><span class="st"> </span><span class="co"># Note that id is a factor. If x is numeric, there is some space between the first bar</span></a>
<a class="sourceLine" id="cb1-28" data-line-number="28"><span class="st"> </span><span class="kw">geom_bar</span>(<span class="dt">stat=</span><span class="st">"identity"</span>, <span class="dt">fill=</span><span class="kw">alpha</span>(<span class="st">"green"</span>, <span class="fl">0.3</span>)) <span class="op">+</span></a>
<a class="sourceLine" id="cb1-29" data-line-number="29"><span class="st"> </span><span class="kw">ylim</span>(<span class="op">-</span><span class="dv">100</span>,<span class="dv">120</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb1-30" data-line-number="30"><span class="st"> </span><span class="kw">theme_minimal</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb1-31" data-line-number="31"><span class="st"> </span><span class="kw">theme</span>(</a>
<a class="sourceLine" id="cb1-32" data-line-number="32"> <span class="dt">axis.text =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb1-33" data-line-number="33"> <span class="dt">axis.title =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb1-34" data-line-number="34"> <span class="dt">panel.grid =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb1-35" data-line-number="35"> <span class="dt">plot.margin =</span> <span class="kw">unit</span>(<span class="kw">rep</span>(<span class="op">-</span><span class="dv">1</span>,<span class="dv">4</span>), <span class="st">"cm"</span>) </a>
<a class="sourceLine" id="cb1-36" data-line-number="36"> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb1-37" data-line-number="37"><span class="st"> </span><span class="kw">coord_polar</span>(<span class="dt">start =</span> <span class="dv">0</span>) <span class="op">+</span><span class="st"> </span></a>
<a class="sourceLine" id="cb1-38" data-line-number="38"><span class="st"> </span><span class="kw">geom_text</span>(<span class="dt">data=</span>label_data, <span class="kw">aes</span>(<span class="dt">x=</span>id, <span class="dt">y=</span>value<span class="op">+</span><span class="dv">10</span>, <span class="dt">label=</span>individual, <span class="dt">hjust=</span>hjust), <span class="dt">color=</span><span class="st">"black"</span>, <span class="dt">fontface=</span><span class="st">"bold"</span>,<span class="dt">alpha=</span><span class="fl">0.6</span>, <span class="dt">size=</span><span class="fl">2.5</span>, <span class="dt">angle=</span> label_data<span class="op">$</span>angle, <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) </a>
<a class="sourceLine" id="cb1-39" data-line-number="39"> </a>
<a class="sourceLine" id="cb1-40" data-line-number="40">p</a></code></pre></div>
<h1 id="space-between-groups">Space between groups</h1>
<hr />
<div class="row">
<div class="col-md-6 col-sm-12 align-self-center">
<p>This concept can now be used to add space between each group of the dataset. I add <code>n</code> lines with only <code>NA</code> at the bottom of each group.</p>
<p>This chart is far more insightful since it allows one to quickly compare the different groups, and to compare the value of items within each group.</p>
</div>
<div class="col-md-6 col-sm-12">
<p><img src="297-circular-barplot-with-groups_files/figure-html/thecode2-1.png" width="100%" /></p>
</div>
</div>
<div class="sourceCode" id="cb2"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb2-1" data-line-number="1"><span class="co"># library</span></a>
<a class="sourceLine" id="cb2-2" data-line-number="2"><span class="kw">library</span>(tidyverse)</a>
<a class="sourceLine" id="cb2-3" data-line-number="3"> </a>
<a class="sourceLine" id="cb2-4" data-line-number="4"><span class="co"># Create dataset</span></a>
<a class="sourceLine" id="cb2-5" data-line-number="5">data <-<span class="st"> </span><span class="kw">data.frame</span>(</a>
<a class="sourceLine" id="cb2-6" data-line-number="6"> <span class="dt">individual=</span><span class="kw">paste</span>( <span class="st">"Mister "</span>, <span class="kw">seq</span>(<span class="dv">1</span>,<span class="dv">60</span>), <span class="dt">sep=</span><span class="st">""</span>),</a>
<a class="sourceLine" id="cb2-7" data-line-number="7"> <span class="dt">group=</span><span class="kw">c</span>( <span class="kw">rep</span>(<span class="st">'A'</span>, <span class="dv">10</span>), <span class="kw">rep</span>(<span class="st">'B'</span>, <span class="dv">30</span>), <span class="kw">rep</span>(<span class="st">'C'</span>, <span class="dv">14</span>), <span class="kw">rep</span>(<span class="st">'D'</span>, <span class="dv">6</span>)) ,</a>
<a class="sourceLine" id="cb2-8" data-line-number="8"> <span class="dt">value=</span><span class="kw">sample</span>( <span class="kw">seq</span>(<span class="dv">10</span>,<span class="dv">100</span>), <span class="dv">60</span>, <span class="dt">replace=</span>T)</a>
<a class="sourceLine" id="cb2-9" data-line-number="9">)</a>
<a class="sourceLine" id="cb2-10" data-line-number="10"> </a>
<a class="sourceLine" id="cb2-11" data-line-number="11"><span class="co"># Set a number of 'empty bar' to add at the end of each group</span></a>
<a class="sourceLine" id="cb2-12" data-line-number="12">empty_bar <-<span class="st"> </span><span class="dv">4</span></a>
<a class="sourceLine" id="cb2-13" data-line-number="13">to_add <-<span class="st"> </span><span class="kw">data.frame</span>( <span class="kw">matrix</span>(<span class="ot">NA</span>, empty_bar<span class="op">*</span><span class="kw">nlevels</span>(data<span class="op">$</span>group), <span class="kw">ncol</span>(data)) )</a>
<a class="sourceLine" id="cb2-14" data-line-number="14"><span class="kw">colnames</span>(to_add) <-<span class="st"> </span><span class="kw">colnames</span>(data)</a>
<a class="sourceLine" id="cb2-15" data-line-number="15">to_add<span class="op">$</span>group <-<span class="st"> </span><span class="kw">rep</span>(<span class="kw">levels</span>(data<span class="op">$</span>group), <span class="dt">each=</span>empty_bar)</a>
<a class="sourceLine" id="cb2-16" data-line-number="16">data <-<span class="st"> </span><span class="kw">rbind</span>(data, to_add)</a>
<a class="sourceLine" id="cb2-17" data-line-number="17">data <-<span class="st"> </span>data <span class="op">%>%</span><span class="st"> </span><span class="kw">arrange</span>(group)</a>
<a class="sourceLine" id="cb2-18" data-line-number="18">data<span class="op">$</span>id <-<span class="st"> </span><span class="kw">seq</span>(<span class="dv">1</span>, <span class="kw">nrow</span>(data))</a>
<a class="sourceLine" id="cb2-19" data-line-number="19"> </a>
<a class="sourceLine" id="cb2-20" data-line-number="20"><span class="co"># Get the name and the y position of each label</span></a>
<a class="sourceLine" id="cb2-21" data-line-number="21">label_data <-<span class="st"> </span>data</a>
<a class="sourceLine" id="cb2-22" data-line-number="22">number_of_bar <-<span class="st"> </span><span class="kw">nrow</span>(label_data)</a>
<a class="sourceLine" id="cb2-23" data-line-number="23">angle <-<span class="st"> </span><span class="dv">90</span> <span class="op">-</span><span class="st"> </span><span class="dv">360</span> <span class="op">*</span><span class="st"> </span>(label_data<span class="op">$</span>id<span class="fl">-0.5</span>) <span class="op">/</span>number_of_bar <span class="co"># I substract 0.5 because the letter must have the angle of the center of the bars. Not extreme right(1) or extreme left (0)</span></a>
<a class="sourceLine" id="cb2-24" data-line-number="24">label_data<span class="op">$</span>hjust <-<span class="st"> </span><span class="kw">ifelse</span>( angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, <span class="dv">1</span>, <span class="dv">0</span>)</a>
<a class="sourceLine" id="cb2-25" data-line-number="25">label_data<span class="op">$</span>angle <-<span class="st"> </span><span class="kw">ifelse</span>(angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, angle<span class="op">+</span><span class="dv">180</span>, angle)</a>
<a class="sourceLine" id="cb2-26" data-line-number="26"> </a>
<a class="sourceLine" id="cb2-27" data-line-number="27"><span class="co"># Make the plot</span></a>
<a class="sourceLine" id="cb2-28" data-line-number="28">p <-<span class="st"> </span><span class="kw">ggplot</span>(data, <span class="kw">aes</span>(<span class="dt">x=</span><span class="kw">as.factor</span>(id), <span class="dt">y=</span>value, <span class="dt">fill=</span>group)) <span class="op">+</span><span class="st"> </span><span class="co"># Note that id is a factor. If x is numeric, there is some space between the first bar</span></a>
<a class="sourceLine" id="cb2-29" data-line-number="29"><span class="st"> </span><span class="kw">geom_bar</span>(<span class="dt">stat=</span><span class="st">"identity"</span>, <span class="dt">alpha=</span><span class="fl">0.5</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb2-30" data-line-number="30"><span class="st"> </span><span class="kw">ylim</span>(<span class="op">-</span><span class="dv">100</span>,<span class="dv">120</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb2-31" data-line-number="31"><span class="st"> </span><span class="kw">theme_minimal</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb2-32" data-line-number="32"><span class="st"> </span><span class="kw">theme</span>(</a>
<a class="sourceLine" id="cb2-33" data-line-number="33"> <span class="dt">legend.position =</span> <span class="st">"none"</span>,</a>
<a class="sourceLine" id="cb2-34" data-line-number="34"> <span class="dt">axis.text =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb2-35" data-line-number="35"> <span class="dt">axis.title =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb2-36" data-line-number="36"> <span class="dt">panel.grid =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb2-37" data-line-number="37"> <span class="dt">plot.margin =</span> <span class="kw">unit</span>(<span class="kw">rep</span>(<span class="op">-</span><span class="dv">1</span>,<span class="dv">4</span>), <span class="st">"cm"</span>) </a>
<a class="sourceLine" id="cb2-38" data-line-number="38"> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb2-39" data-line-number="39"><span class="st"> </span><span class="kw">coord_polar</span>() <span class="op">+</span><span class="st"> </span></a>
<a class="sourceLine" id="cb2-40" data-line-number="40"><span class="st"> </span><span class="kw">geom_text</span>(<span class="dt">data=</span>label_data, <span class="kw">aes</span>(<span class="dt">x=</span>id, <span class="dt">y=</span>value<span class="op">+</span><span class="dv">10</span>, <span class="dt">label=</span>individual, <span class="dt">hjust=</span>hjust), <span class="dt">color=</span><span class="st">"black"</span>, <span class="dt">fontface=</span><span class="st">"bold"</span>,<span class="dt">alpha=</span><span class="fl">0.6</span>, <span class="dt">size=</span><span class="fl">2.5</span>, <span class="dt">angle=</span> label_data<span class="op">$</span>angle, <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) </a>
<a class="sourceLine" id="cb2-41" data-line-number="41"> </a>
<a class="sourceLine" id="cb2-42" data-line-number="42">p</a></code></pre></div>
<h1 id="order-bars">Order bars</h1>
<hr />
<div class="row">
<div class="col-md-6 col-sm-12 align-self-center">
<p>Here observations are sorted by bar height within each group. It can be useful if your goal is to understand what are the highest / lowest observations within and across groups.</p>
<p>The method used to order groups in ggplot2 is extensively described in this <a href="267-reorder-a-variable-in-ggplot2.html">dedicated page</a>. Basically, you just have to add the following piece of code right after the data frame creation:</p>
</div>
<div class="col-md-6 col-sm-12">
<p><img src="297-circular-barplot-with-groups_files/figure-html/unnamed-chunk-1-1.png" width="100%" /></p>
</div>
</div>
<div class="sourceCode" id="cb3"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb3-1" data-line-number="1"><span class="co"># Order data:</span></a>
<a class="sourceLine" id="cb3-2" data-line-number="2">data =<span class="st"> </span>data <span class="op">%>%</span><span class="st"> </span><span class="kw">arrange</span>(group, value)</a></code></pre></div>
<h1 id="circular-barchart-customization">Circular barchart customization</h1>
<hr />
<div class="row">
<div class="col-md-6 col-sm-12 align-self-center">
<p>Last but not least, it is highly advisable to add some customisation to your chart. Here we add group names (A, B, C and D), and we add a scale to help compare the sizes of the bars. Voila! The code is a bit long, but the result is quite worth it in my opinion!</p>
</div>
<div class="col-md-6 col-sm-12">
<p><img src="297-circular-barplot-with-groups_files/figure-html/thecode4-1.png" width="100%" /></p>
</div>
</div>
<div class="sourceCode" id="cb4"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb4-1" data-line-number="1"><span class="co"># library</span></a>
<a class="sourceLine" id="cb4-2" data-line-number="2"><span class="kw">library</span>(tidyverse)</a>
<a class="sourceLine" id="cb4-3" data-line-number="3"> </a>
<a class="sourceLine" id="cb4-4" data-line-number="4"><span class="co"># Create dataset</span></a>
<a class="sourceLine" id="cb4-5" data-line-number="5">data <-<span class="st"> </span><span class="kw">data.frame</span>(</a>
<a class="sourceLine" id="cb4-6" data-line-number="6"> <span class="dt">individual=</span><span class="kw">paste</span>( <span class="st">"Mister "</span>, <span class="kw">seq</span>(<span class="dv">1</span>,<span class="dv">60</span>), <span class="dt">sep=</span><span class="st">""</span>),</a>
<a class="sourceLine" id="cb4-7" data-line-number="7"> <span class="dt">group=</span><span class="kw">c</span>( <span class="kw">rep</span>(<span class="st">'A'</span>, <span class="dv">10</span>), <span class="kw">rep</span>(<span class="st">'B'</span>, <span class="dv">30</span>), <span class="kw">rep</span>(<span class="st">'C'</span>, <span class="dv">14</span>), <span class="kw">rep</span>(<span class="st">'D'</span>, <span class="dv">6</span>)) ,</a>
<a class="sourceLine" id="cb4-8" data-line-number="8"> <span class="dt">value=</span><span class="kw">sample</span>( <span class="kw">seq</span>(<span class="dv">10</span>,<span class="dv">100</span>), <span class="dv">60</span>, <span class="dt">replace=</span>T)</a>
<a class="sourceLine" id="cb4-9" data-line-number="9">)</a>
<a class="sourceLine" id="cb4-10" data-line-number="10"> </a>
<a class="sourceLine" id="cb4-11" data-line-number="11"><span class="co"># Set a number of 'empty bar' to add at the end of each group</span></a>
<a class="sourceLine" id="cb4-12" data-line-number="12">empty_bar <-<span class="st"> </span><span class="dv">3</span></a>
<a class="sourceLine" id="cb4-13" data-line-number="13">to_add <-<span class="st"> </span><span class="kw">data.frame</span>( <span class="kw">matrix</span>(<span class="ot">NA</span>, empty_bar<span class="op">*</span><span class="kw">nlevels</span>(data<span class="op">$</span>group), <span class="kw">ncol</span>(data)) )</a>
<a class="sourceLine" id="cb4-14" data-line-number="14"><span class="kw">colnames</span>(to_add) <-<span class="st"> </span><span class="kw">colnames</span>(data)</a>
<a class="sourceLine" id="cb4-15" data-line-number="15">to_add<span class="op">$</span>group <-<span class="st"> </span><span class="kw">rep</span>(<span class="kw">levels</span>(data<span class="op">$</span>group), <span class="dt">each=</span>empty_bar)</a>
<a class="sourceLine" id="cb4-16" data-line-number="16">data <-<span class="st"> </span><span class="kw">rbind</span>(data, to_add)</a>
<a class="sourceLine" id="cb4-17" data-line-number="17">data <-<span class="st"> </span>data <span class="op">%>%</span><span class="st"> </span><span class="kw">arrange</span>(group)</a>
<a class="sourceLine" id="cb4-18" data-line-number="18">data<span class="op">$</span>id <-<span class="st"> </span><span class="kw">seq</span>(<span class="dv">1</span>, <span class="kw">nrow</span>(data))</a>
<a class="sourceLine" id="cb4-19" data-line-number="19"> </a>
<a class="sourceLine" id="cb4-20" data-line-number="20"><span class="co"># Get the name and the y position of each label</span></a>
<a class="sourceLine" id="cb4-21" data-line-number="21">label_data <-<span class="st"> </span>data</a>
<a class="sourceLine" id="cb4-22" data-line-number="22">number_of_bar <-<span class="st"> </span><span class="kw">nrow</span>(label_data)</a>
<a class="sourceLine" id="cb4-23" data-line-number="23">angle <-<span class="st"> </span><span class="dv">90</span> <span class="op">-</span><span class="st"> </span><span class="dv">360</span> <span class="op">*</span><span class="st"> </span>(label_data<span class="op">$</span>id<span class="fl">-0.5</span>) <span class="op">/</span>number_of_bar <span class="co"># I substract 0.5 because the letter must have the angle of the center of the bars. Not extreme right(1) or extreme left (0)</span></a>
<a class="sourceLine" id="cb4-24" data-line-number="24">label_data<span class="op">$</span>hjust <-<span class="st"> </span><span class="kw">ifelse</span>( angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, <span class="dv">1</span>, <span class="dv">0</span>)</a>
<a class="sourceLine" id="cb4-25" data-line-number="25">label_data<span class="op">$</span>angle <-<span class="st"> </span><span class="kw">ifelse</span>(angle <span class="op"><</span><span class="st"> </span><span class="dv">-90</span>, angle<span class="op">+</span><span class="dv">180</span>, angle)</a>
<a class="sourceLine" id="cb4-26" data-line-number="26"> </a>
<a class="sourceLine" id="cb4-27" data-line-number="27"><span class="co"># prepare a data frame for base lines</span></a>
<a class="sourceLine" id="cb4-28" data-line-number="28">base_data <-<span class="st"> </span>data <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb4-29" data-line-number="29"><span class="st"> </span><span class="kw">group_by</span>(group) <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb4-30" data-line-number="30"><span class="st"> </span><span class="kw">summarize</span>(<span class="dt">start=</span><span class="kw">min</span>(id), <span class="dt">end=</span><span class="kw">max</span>(id) <span class="op">-</span><span class="st"> </span>empty_bar) <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb4-31" data-line-number="31"><span class="st"> </span><span class="kw">rowwise</span>() <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb4-32" data-line-number="32"><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">title=</span><span class="kw">mean</span>(<span class="kw">c</span>(start, end)))</a>
<a class="sourceLine" id="cb4-33" data-line-number="33"> </a>
<a class="sourceLine" id="cb4-34" data-line-number="34"><span class="co"># prepare a data frame for grid (scales)</span></a>
<a class="sourceLine" id="cb4-35" data-line-number="35">grid_data <-<span class="st"> </span>base_data</a>
<a class="sourceLine" id="cb4-36" data-line-number="36">grid_data<span class="op">$</span>end <-<span class="st"> </span>grid_data<span class="op">$</span>end[ <span class="kw">c</span>( <span class="kw">nrow</span>(grid_data), <span class="dv">1</span><span class="op">:</span><span class="kw">nrow</span>(grid_data)<span class="op">-</span><span class="dv">1</span>)] <span class="op">+</span><span class="st"> </span><span class="dv">1</span></a>
<a class="sourceLine" id="cb4-37" data-line-number="37">grid_data<span class="op">$</span>start <-<span class="st"> </span>grid_data<span class="op">$</span>start <span class="op">-</span><span class="st"> </span><span class="dv">1</span></a>
<a class="sourceLine" id="cb4-38" data-line-number="38">grid_data <-<span class="st"> </span>grid_data[<span class="op">-</span><span class="dv">1</span>,]</a>
<a class="sourceLine" id="cb4-39" data-line-number="39"> </a>
<a class="sourceLine" id="cb4-40" data-line-number="40"><span class="co"># Make the plot</span></a>
<a class="sourceLine" id="cb4-41" data-line-number="41">p <-<span class="st"> </span><span class="kw">ggplot</span>(data, <span class="kw">aes</span>(<span class="dt">x=</span><span class="kw">as.factor</span>(id), <span class="dt">y=</span>value, <span class="dt">fill=</span>group)) <span class="op">+</span><span class="st"> </span><span class="co"># Note that id is a factor. If x is numeric, there is some space between the first bar</span></a>
<a class="sourceLine" id="cb4-42" data-line-number="42"><span class="st"> </span></a>
<a class="sourceLine" id="cb4-43" data-line-number="43"><span class="st"> </span><span class="kw">geom_bar</span>(<span class="kw">aes</span>(<span class="dt">x=</span><span class="kw">as.factor</span>(id), <span class="dt">y=</span>value, <span class="dt">fill=</span>group), <span class="dt">stat=</span><span class="st">"identity"</span>, <span class="dt">alpha=</span><span class="fl">0.5</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-44" data-line-number="44"><span class="st"> </span></a>
<a class="sourceLine" id="cb4-45" data-line-number="45"><span class="st"> </span><span class="co"># Add a val=100/75/50/25 lines. I do it at the beginning to make sur barplots are OVER it.</span></a>
<a class="sourceLine" id="cb4-46" data-line-number="46"><span class="st"> </span><span class="kw">geom_segment</span>(<span class="dt">data=</span>grid_data, <span class="kw">aes</span>(<span class="dt">x =</span> end, <span class="dt">y =</span> <span class="dv">80</span>, <span class="dt">xend =</span> start, <span class="dt">yend =</span> <span class="dv">80</span>), <span class="dt">colour =</span> <span class="st">"grey"</span>, <span class="dt">alpha=</span><span class="dv">1</span>, <span class="dt">size=</span><span class="fl">0.3</span> , <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-47" data-line-number="47"><span class="st"> </span><span class="kw">geom_segment</span>(<span class="dt">data=</span>grid_data, <span class="kw">aes</span>(<span class="dt">x =</span> end, <span class="dt">y =</span> <span class="dv">60</span>, <span class="dt">xend =</span> start, <span class="dt">yend =</span> <span class="dv">60</span>), <span class="dt">colour =</span> <span class="st">"grey"</span>, <span class="dt">alpha=</span><span class="dv">1</span>, <span class="dt">size=</span><span class="fl">0.3</span> , <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-48" data-line-number="48"><span class="st"> </span><span class="kw">geom_segment</span>(<span class="dt">data=</span>grid_data, <span class="kw">aes</span>(<span class="dt">x =</span> end, <span class="dt">y =</span> <span class="dv">40</span>, <span class="dt">xend =</span> start, <span class="dt">yend =</span> <span class="dv">40</span>), <span class="dt">colour =</span> <span class="st">"grey"</span>, <span class="dt">alpha=</span><span class="dv">1</span>, <span class="dt">size=</span><span class="fl">0.3</span> , <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-49" data-line-number="49"><span class="st"> </span><span class="kw">geom_segment</span>(<span class="dt">data=</span>grid_data, <span class="kw">aes</span>(<span class="dt">x =</span> end, <span class="dt">y =</span> <span class="dv">20</span>, <span class="dt">xend =</span> start, <span class="dt">yend =</span> <span class="dv">20</span>), <span class="dt">colour =</span> <span class="st">"grey"</span>, <span class="dt">alpha=</span><span class="dv">1</span>, <span class="dt">size=</span><span class="fl">0.3</span> , <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-50" data-line-number="50"><span class="st"> </span></a>
<a class="sourceLine" id="cb4-51" data-line-number="51"><span class="st"> </span><span class="co"># Add text showing the value of each 100/75/50/25 lines</span></a>
<a class="sourceLine" id="cb4-52" data-line-number="52"><span class="st"> </span><span class="kw">annotate</span>(<span class="st">"text"</span>, <span class="dt">x =</span> <span class="kw">rep</span>(<span class="kw">max</span>(data<span class="op">$</span>id),<span class="dv">4</span>), <span class="dt">y =</span> <span class="kw">c</span>(<span class="dv">20</span>, <span class="dv">40</span>, <span class="dv">60</span>, <span class="dv">80</span>), <span class="dt">label =</span> <span class="kw">c</span>(<span class="st">"20"</span>, <span class="st">"40"</span>, <span class="st">"60"</span>, <span class="st">"80"</span>) , <span class="dt">color=</span><span class="st">"grey"</span>, <span class="dt">size=</span><span class="dv">3</span> , <span class="dt">angle=</span><span class="dv">0</span>, <span class="dt">fontface=</span><span class="st">"bold"</span>, <span class="dt">hjust=</span><span class="dv">1</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-53" data-line-number="53"><span class="st"> </span></a>
<a class="sourceLine" id="cb4-54" data-line-number="54"><span class="st"> </span><span class="kw">geom_bar</span>(<span class="kw">aes</span>(<span class="dt">x=</span><span class="kw">as.factor</span>(id), <span class="dt">y=</span>value, <span class="dt">fill=</span>group), <span class="dt">stat=</span><span class="st">"identity"</span>, <span class="dt">alpha=</span><span class="fl">0.5</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-55" data-line-number="55"><span class="st"> </span><span class="kw">ylim</span>(<span class="op">-</span><span class="dv">100</span>,<span class="dv">120</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-56" data-line-number="56"><span class="st"> </span><span class="kw">theme_minimal</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb4-57" data-line-number="57"><span class="st"> </span><span class="kw">theme</span>(</a>
<a class="sourceLine" id="cb4-58" data-line-number="58"> <span class="dt">legend.position =</span> <span class="st">"none"</span>,</a>
<a class="sourceLine" id="cb4-59" data-line-number="59"> <span class="dt">axis.text =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb4-60" data-line-number="60"> <span class="dt">axis.title =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb4-61" data-line-number="61"> <span class="dt">panel.grid =</span> <span class="kw">element_blank</span>(),</a>
<a class="sourceLine" id="cb4-62" data-line-number="62"> <span class="dt">plot.margin =</span> <span class="kw">unit</span>(<span class="kw">rep</span>(<span class="op">-</span><span class="dv">1</span>,<span class="dv">4</span>), <span class="st">"cm"</span>) </a>
<a class="sourceLine" id="cb4-63" data-line-number="63"> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-64" data-line-number="64"><span class="st"> </span><span class="kw">coord_polar</span>() <span class="op">+</span><span class="st"> </span></a>
<a class="sourceLine" id="cb4-65" data-line-number="65"><span class="st"> </span><span class="kw">geom_text</span>(<span class="dt">data=</span>label_data, <span class="kw">aes</span>(<span class="dt">x=</span>id, <span class="dt">y=</span>value<span class="op">+</span><span class="dv">10</span>, <span class="dt">label=</span>individual, <span class="dt">hjust=</span>hjust), <span class="dt">color=</span><span class="st">"black"</span>, <span class="dt">fontface=</span><span class="st">"bold"</span>,<span class="dt">alpha=</span><span class="fl">0.6</span>, <span class="dt">size=</span><span class="fl">2.5</span>, <span class="dt">angle=</span> label_data<span class="op">$</span>angle, <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-66" data-line-number="66"><span class="st"> </span></a>
<a class="sourceLine" id="cb4-67" data-line-number="67"><span class="st"> </span><span class="co"># Add base line information</span></a>
<a class="sourceLine" id="cb4-68" data-line-number="68"><span class="st"> </span><span class="kw">geom_segment</span>(<span class="dt">data=</span>base_data, <span class="kw">aes</span>(<span class="dt">x =</span> start, <span class="dt">y =</span> <span class="dv">-5</span>, <span class="dt">xend =</span> end, <span class="dt">yend =</span> <span class="dv">-5</span>), <span class="dt">colour =</span> <span class="st">"black"</span>, <span class="dt">alpha=</span><span class="fl">0.8</span>, <span class="dt">size=</span><span class="fl">0.6</span> , <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb4-69" data-line-number="69"><span class="st"> </span><span class="kw">geom_text</span>(<span class="dt">data=</span>base_data, <span class="kw">aes</span>(<span class="dt">x =</span> title, <span class="dt">y =</span> <span class="dv">-18</span>, <span class="dt">label=</span>group), <span class="dt">hjust=</span><span class="kw">c</span>(<span class="dv">1</span>,<span class="dv">1</span>,<span class="dv">0</span>,<span class="dv">0</span>), <span class="dt">colour =</span> <span class="st">"black"</span>, <span class="dt">alpha=</span><span class="fl">0.8</span>, <span class="dt">size=</span><span class="dv">4</span>, <span class="dt">fontface=</span><span class="st">"bold"</span>, <span class="dt">inherit.aes =</span> <span class="ot">FALSE</span>)</a>
<a class="sourceLine" id="cb4-70" data-line-number="70"> </a>
<a class="sourceLine" id="cb4-71" data-line-number="71">p</a></code></pre></div>
<h1 id="whats-next">What’s next?</h1>
<hr />
<p>Last step: a circular stacked grouped barplot described in <a href="299-circular-stacked-barplot.html">graph #299</a>. Or check the circular barplot <a href="circular-barplot.html">section</a> for more examples.</p>
<p><a class="btn btn-secondary" href="299-circular-stacked-barplot.html">Stacked grouped barplot</a> <a class="btn btn-secondary" href="circular-barplot.html">See all examples</a></p>
<!-- Close container -->
</div>
<!-- ============================ RELATED SECTION ============================ -->
<section class="bg-light" id="portfolio_landing" style="padding-top: 30px; padding-bottom: 30px; margin-top: 100px;">
<div class="container">
<p class="mySeryTitle">Related chart types</p>
<hr>
<div class="row">
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="barplot.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/Bar150.png" alt="">
</a>
<div class="captionPortfolio">Barplot</div>
</div>
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="spider-or-radar-chart.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/Spider150.png" alt="">
</a>
<div class="captionPortfolio">Spider / Radar</div>
</div>
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="wordcloud.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/Wordcloud150.png" alt="">
</a>
<div class="captionPortfolio">Wordcloud</div>
</div>
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="parallel-plot.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/Parallel1150.png" alt="">
</a>
<div class="captionPortfolio">Parallel</div>
</div>
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="lollipop-plot.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/Lollipop150.png" alt="">
</a>
<div class="captionPortfolio">Lollipop</div>
</div>
<div class="col-md-2 col-sm-4 portfolio-item ">
<a class="portfolio-link" href="circular-barplot.html">
<div class="portfolio-hover">
<div class="portfolio-hover-content">
<i class="fa fa-plus fa-3x"></i>
</div>
</div>
<img class="img-fluid" src="img/section/CircularBarplot150.png" alt="">
</a>
<div class="captionPortfolio">Circular Barplot</div>
</div>
</div>
</div>
</section>
<!-- ============================ CONTACT SECTION ============================ -->
<section id="contact" class="bg" style="background-color: white; padding-top: 60px">
<div class="container">
<div class="row">
<div class="col-lg-2 text-center"></div>
<div class="col-lg-8 text-center">
<br><br><br>
<h2 class="section-heading text-uppercase" style="color: black">Contact</h2>
<p>This document is a work by <a href="https://www.yan-holtz.com">Yan Holtz</a>. Any feedback is highly encouraged. You can fill an issue on <a href="https://github.com/holtzy/D3-graph-gallery/issues">Github</a>, drop me a message on <a href="https://twitter.com/R_Graph_Gallery">Twitter</a>, or send an email pasting <a href="">yan.holtz.data</a> with <a href="">gmail.com</a>.</p>
<div style="text-align:center">
<a class="btn btn-primary btn-xl text-uppercase js-scroll-trigger" href="https://github.com/holtzy">Github</a>
<a class="btn btn-primary btn-xl text-uppercase js-scroll-trigger" href="https://twitter.com/R_Graph_Gallery">Twitter</a>
</div>
</div>
</div>
</div>
</section>
<!-- ============================ FOOTER SECTION ============================ -->
<footer class="bg-light" id="myFooter">
<div class="container" >
<div class="row">
<div class="col-md-4">
<span class="copyright">Copyright © the R graph gallery 2018</span>
</div>
<div class="col-md-4">
<ul class="list-inline social-buttons">
<li class="list-inline-item">
<a href="https://twitter.com/R_Graph_Gallery">
<i class="fa fa-twitter"></i>
</a>
</li>
<li class="list-inline-item">
<a href="https://github.com/holtzy">
<i class="fa fa-github"></i>
</a>
</li>
<li class="list-inline-item">
<a href="https://www.linkedin.com/in/yan-holtz-2477534a/">
<i class="fa fa-linkedin"></i>
</a>
</li>
</ul>
</div>
<div class="col-md-4">
<ul class="list-inline quicklinks">
<li class="list-inline-item">
<a href="#">Privacy Policy</a>
</li>
<li class="list-inline-item">
<a href="#">Terms of Use</a>
</li>
</ul>
</div>
</div>
</div>
</footer>
<script>
// add bootstrap table styles to pandoc tables
function bootstrapStylePandocTables() {
$('tr.header').parent('thead').parent('table').addClass('table table-condensed');
}
$(document).ready(function () {
bootstrapStylePandocTables();
});
</script>
<!-- ============================ JAVASCRIPT SECTION ============================ -->
<!-- Bootstrap core JavaScript -->
<script src="vendor/bootstrap/js/bootstrap.bundle.min.js"></script>
<!-- Custom scripts for this template -->
<script src="js/agency.min.js"></script>
<!-- Global site tag (gtag.js) - Google Analytics -->
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-79254642-1"></script>
<script>
window.dataLayer = window.dataLayer || [];
function gtag(){dataLayer.push(arguments);}
gtag('js', new Date());
gtag('config', 'UA-79254642-1');
</script>
</body>
</html>