Pie chart with ggplot2, counting the occurrences of entries

Question

I would like to be able to make a "Pie chart" in R with ggplot2 but counting the occurrences that a certain data appears.

In my example, I have an Excel from which I extract a column and the values that appear in the columns, for example the column called "discipline" has the values:

discipline1, discipline2, discipline3, discipline1, discipline1, discipline2,
discipline2, discipline2, discipline2, discipline2, discipline3, discipline3.

So what I want to paint is the % of times each of the values appears:

discipline1, discipline2, discipline3

using a Pie Chart.

For the bar chart I used the value stat="count", but I have seen that in the Pie Chart I can't.

For example, I tried something like this :

ggplot(df, aes(x = "", y = as.factor(df[,discipline]), 
               fill = as.factor(df[,discipline]))) +
  geom_bar(width = 1, stat = "identity", color = "white") +
  coord_polar("y", start = 0)+
  geom_text(aes(y = as.factor(df[,discipline]), 
                label = as.factor(df[,discipline])), color = "white")+
  scale_fill_manual(values =c("#0073C2FF", "#EFC000FF", "#868686FF"))+
  theme_void()

Welcome to Stack Overflow! You should provide a [reproducible example](https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example). Read the link in details so you can provide an example of your dataset and what you have so far (I am guessing you have a pie-chart code in `ggplot` that is not working, you should share that). Cheers. — M--, Jan 26 '20 at 21:06
following @M--'s good suggestion... If I were you, I would save a subset of your data as a `csv` file (or a similarly formatted test dataset), then paste that in a code block in your main question so others can build answers from it. That being said, when using `stat = "identity"`, you simply have to calculate the counts manually before hand. Off the top of my head... i believe the `table` function as used in `df.count = as.data.frame(table(df))` may give you the format you need for this. This is just a quick guess though... — RTbecard, Jan 26 '20 at 21:41
Thank you for your [edit]. It helped me to understand your problem better. We usually require a sample dataset shared with function called `dput` (the previous link that I shared, talks about it). But here I was able to copy your text as data. See my answer below, hope that helps. I will add a comment underneath my answer about your data. — M--, Jan 26 '20 at 21:56

score 2 · Answer 1 · edited Jun 20 '20 at 09:12

You can simply add coord_polar(theta='y') after your geom_bar:

library(ggplot2)

ggplot(data=as.data.frame(discipline), 
        aes(x = factor(1),fill = factor(discipline))) + 
  geom_bar(stat = "count") + 
  scale_y_continuous(breaks = seq(0,12,3), labels = c("0", "25%", "50%", "75%", "100%")) + 
  coord_polar(theta='y') +
  theme(axis.text.y = element_blank(), 
        axis.title.y = element_blank(), 
        axis.ticks.y = element_blank(),
        axis.title.x = element_blank()) +
  labs(fill = "Discipline")

Update:

If you want to add labels with geom_text, I suggest a different approach instead of stat = 'count'; see below:

library(dplyr)
library(ggplot2)
library(scales)

data.frame(discipline) %>% 
  group_by(discipline) %>% 
  mutate(cnt = n(),
         pct = percent(cnt / nrow(.), accuracy = 1)) %>%
  unique %>% ungroup %>% 
  mutate(place = cumsum(cnt) - cnt/2) %>% 
ggplot(data = ., 
         aes(x = factor(1), weight = cnt, fill = factor(discipline))) + 
  geom_bar(position = "stack") + 
  scale_y_continuous(breaks = seq(0, length(discipline), length(discipline)/4), 
                     labels = c("0", "25%", "50%", "75%", "100%")) + 
  coord_polar(theta='y') +
  geom_text(aes(x = 1.1, y = place, label = pct)) +
  theme(axis.text.y = element_blank(), 
        axis.title.y = element_blank(), 
        axis.ticks.y = element_blank(),
        axis.title.x = element_blank()) +
  labs(fill = "Discipline")

Data:

discipline <- c("discipline1", "discipline2", "discipline3", "discipline1", 
                "discipline1", "discipline2", "discipline2", "discipline2", 
                "discipline2", "discipline2", "discipline3", "discipline3")

With your data, you probably need to do this `df %>% select(discipline)` instead of `data.frame(discipline)` that I have in my answer. However I shared the data I used in my answer to emphasize on the importance sharing a reproducible example. Cheers. — M--, Jan 26 '20 at 21:58

score 0 · Answer 2 · answered Jan 26 '20 at 21:28

Does this answer your question?

library(tidyverse)

# sample data
df <- tibble(discipline = paste0("discipline", sample(1:3, 20, replace = T))) %>%
  count(discipline)

# creating a pie chart
ggplot(df, aes(x="", y= n , fill=discipline))+
  geom_bar(width = 1, stat = "identity") + coord_polar("y", start=0)

score 0 · Answer 3 · answered Jan 27 '20 at 17:45

The first comment doesn't completely work for me

i wrote:

ggplot(df,aes(x= factor(1), fill= factor(df[,discipline])))+
  geom_bar(stat="count")+ 
 scale_y_continuous(breaks = seq(0,12,3), labels = c("0", "25%", "50%", "75%", "100%")) + 
  coord_polar(theta='y') +
  theme(axis.text.y = element_blank(), 
        axis.title.y = element_blank(), 
        axis.ticks.y = element_blank(),
        axis.title.x = element_blank()) +
  labs(fill = "Discipline")

And i have obtain :

where "df" is the dataframe obtained from reading the csv and factor(df[,discipline]) is :

  [1] Firmware       Container      Management    
  [4] Management     IT             Management    
  [7] Management     Firmware       Firmware      
 [10] Factory        Factory        Factory       
 [13] Factory        Factory        Factory       
 [16] Management     Management     Management    
 [19] Electrical     Electrical     Electrical    
 [22] Factory        Factory        Electrical    
 [25] Container      Mechanical     Electrical    
 [28] Assurance      Management     Management    
 [31] Mechanical     Mechanical     Mechanical    
 [34] Mechanical     Mechanical     Mechanical    
 [37] Lab            Electrical     Electrical    
 [40] Electrical     Assurance      Container     
 [43] Electrical     Assurance      Management    
 [46] Management     Mechanical     Mechanical    
 [49] Factory        Mechanical     Mechanical    
 [52] Mechanical     Mechanical     Mechanical    
 [55] Mechanical     Mechanical     Mechanical    
 [58] Mechanical     Mechanical     Electrical    
 [61] Electrical     Electrical     Factory       
 [64] Factory        Electrical     Electrical    
 [67] Lab            Electrical     Electrical    
 [70] Electrical     Management     Electrical    
 [73] Assurance      Firmware       Firmware      
 [76] Electrical     Electrical     Electrical    
 [79] Electrical     Electrical     Electrical    
 [82] Electrical     Electrical     Electrical    
 [85] Electrical     Electrical     Electrical    
 [88] Electrical     Electrical     Electrical    
 [91] Electrical     Electrical     Electrical    
 [94] Electrical     Factory        Factory       
 [97] Electrical     Electrical     Electrical    
[100] Electrical     Electrical     Electrical    
[103] Electrical     Electrical     Electrical    
[106] Electrical     Electrical     Electrical    
[109] Electrical     Electrical     Electrical    
[112] Electrical     Electrical     Electrical    
[115] Electrical     Electrical     Factory       
[118] Electrical     Electrical     Electrical    
[121] Electrical     Electrical     Electrical    
[124] Electrical     Management     Management    
[127] Firmware       Electrical     Management    
[130] Firmware       Electrical                   
[133]                Software       Assurance     
[136] Assurance      Assurance      Firmware      
[139] Firmware       Assurance      Assurance     
[142] Firmware       Firmware       Firmware      
[145] Firmware       Container      Container     
[148] Firmware       Firmware       Firmware      
[151] Firmware       Firmware       Firmware      
[154] Firmware       Firmware       Firmware      
[157] Firmware       Firmware       Firmware      
[160] Firmware       Firmware       Firmware      
[163] Firmware       Firmware       Firmware      
[166] Firmware       Firmware       Firmware      
[169] Firmware       Firmware       Firmware      
[172] Firmware       Firmware       Firmware      
[175] Firmware       Firmware       Firmware      
[178] Firmware       IT             Management    
[181] Management     Software                     
[184]                                             
[187]                                             
[190]                               Mechanical    
[193] Assurance      Assurance      Assurance     
[196] Assurance      Assurance      Assurance     
[199] Assurance                     Assurance     
[202] Assurance      Assurance      Assurance     
[205] Assurance      Assurance      Assurance     
[208] Assurance      Assurance      Assurance     
[211] Assurance      Assurance      Assurance     
[214] Assurance      Assurance      Assurance     
[217] Assurance      Assurance      Assurance     
[220] Assurance      Assurance                    
[223] IT             IT             IT            
[226] Management     Management     Management    
[229] Mechanical     Management     Management    
[232] Mechanical     Electrical                   
[235] Mechanical     Mechanical     Mechanical    
[238] Mechanical     Mechanical                   
[241]                               Management    
[244] Management                    Management    
[247] Electrical     Electrical     Electrical    
[250] Mechanical     Mechanical     Management    
[253] Container      Electrical     Container     
[256] Container      Container      Container     
[259] Container      Container      Container     
[262] Electrical     Electrical     Electrical    
[265] Electrical     Electrical     Electrical    
[268] Electrical     Firmware       Firmware      
[271] Firmware       Firmware       Firmware      
[274] Firmware       Mechanical     Mechanical    
[277] Container      Assurance      Assurance     
[280] Assurance      Assurance      Assurance     
[283] Container                     Management    
[286] Container      Container      Container     
[289] Container      Container      Management    
[292] Management     Electrical     Firmware      
[295] Factory        Factory        Mechanical    
[298] Management     Management                   
[301] Electrical     Electrical     Electrical    
[304] Electrical     Electrical     Electrical    
[307]                Management     Management    
[310] Management     Management     Management    
[313] Management     Management     Assurance     
[316] Assurance      Assurance      Research      
[319] Research       Management     Management    
[322] Firmware       Electrical     Management    
[325] Firmware       Electrical     Management    
[328] Management     Firmware       Electrical    
[331] Mechanical     Management     Management    
[334] Management     Management     Management    
[337] Mechanical     Firmware       Management    
[340] Mechanical     Firmware       Electrical    
[343] Management     Management     Management    
[346] Mechanical     Electrical     Electrical    
[349] Management     Mechanical     Firmware      
[352] Electrical     Management                   
[355] Mechanical     Electrical     Management    
[358] Firmware                                    
[361] Mechanical     Mechanical     Mechanical    
[364] Mechanical     Mechanical     Container     
[367] Management     Container      Container     
[370] Management     Electrical     Electrical    
[373] Electrical     Electrical     Electrical    
[376] Electrical     Electrical     Electrical    
[379] Electrical     Electrical     Firmware      
[382] Firmware       Firmware       Firmware      
[385] Firmware       Management     Mechanical    
[388] Mechanical     Mechanical     Management    
[391]                Assurance      Assurance     
[394] Assurance      Assurance      Assurance     
[397] Assurance      Firmware       Electrical    
[400] Quality                       Quality       
[403] Quality        Quality        Quality       
[406] Quality        Firmware       Firmware      
[409] Assurance      Factory                      
[412] Software       IT             Lab           
[415]                IT                           
[418] IT                                          
[421]                IT                           
[424]                Assurance      Assurance     
[427] Firmware       Firmware                     
[430] Software       Quality        Electrical    
[433]                                             
[436]                                             
[439] Assurance      Firmware       Firmware      
[442] Mechanical     Mechanical     SCM           
[445]                IT             Management    
[448] Management     Management     Management    
[451] Factory        Assurance      IT            
[454]                                             
[457]                Firmware       Assurance     
[460] Assurance      Firmware       Assurance     
[463] Mechanical                    Mechanical    
[466] Mechanical     IT             IT            
[469] Assurance      Assurance      Assurance     
[472] Mechanical                    Assurance     
[475]                                             
[478] Electrical                    Mechanical    
[481] Mechanical     Mechanical     Mechanical    
[484]                Mechanical     Firmware      
[487] Assurance      Assurance      Assurance     
[490] Firmware                      Mechanical    
[493] Firmware       Assurance      Management    
[496] Management     Management     Management    
[499] Management     Assurance      Management    
[502] Quality        Assurance      Management    
[505] Assurance      Management     Management    
[508] Management                                  
[511]                Electrical     Firmware      
[514] Mechanical     Assurance      Electrical    
[517] Electrical     Electrical     Electrical    
[520] Electrical     Electrical     Electrical    
[523] Electrical     Electrical     Electrical    
[526] Electrical     Electrical     Electrical    
[529] Electrical     Electrical     Electrical    
[532] Electrical     Firmware       Firmware      
[535] Firmware       Factory        Firmware      
[538] Firmware       Firmware       Firmware      
[541] Firmware       Firmware       Firmware      
[544] Firmware       Firmware       Firmware      
[547] Firmware       Firmware       Firmware      
[550] Mechanical     Mechanical     Mechanical    
[553] Mechanical     Mechanical     Mechanical    
[556] Mechanical     Mechanical     Assurance     
[559] Assurance      Assurance      Assurance     
[562] Assurance      Assurance      Assurance     
[565] Assurance      Assurance      Assurance     
[568] Assurance      Management     Assurance     
[571] Assurance      Assurance      Factory       
[574] IT             IT             IT            
[577] IT             IT             Lab           
[580] Management     Electrical     Electrical    
[583]                Mechanical     Firmware      
[586] Administration Mechanical     Electrical    
[589] Firmware       Mechanical     AI            
[592] Lab           
16 Levels:  Administration AI ... Software

Could you tell me what's wrong with the code? Thanks again.

Pie chart with ggplot2, counting the occurrences of entries

3 Answers3

Update: