Pie charts within a list - r

Question

Let me start off by saying that I know pie charts are terrible methods of accurately displaying data but I have been asked to produce this as part of a report. I have a data set that contains information about location, injury type, and then several fields of personal data. I would like to display a pie chart of the percentage of each type of injury that occurs at each location. I've tried this where facility2 is a list of 52 elements created by splitting the full dataframe by ServiceSite.x. This partially works but the pie charts created only contain the count for one "initial type".
summarized_list <- lapply(facility2, function(x){
x %>% group_by(InitialType) %>% summarize(length(InitialType))
})
pies <- function(z) {
ggplot(z, aes(x = "", fill = length(InitialType)))+
geom_bar(width = 1, na.rm = TRUE)+
coord_polar(theta = "y")
}
lapply(summarized_list, pies)
This also partially works and would be perfect, but only prints out 13 charts instead of all 52
pies2 <- function(x) {
ggplot(x, aes(x = "", fill = InitialType))+
geom_bar(width = 1, na.rm = TRUE)+
coord_polar(theta = "y")+
xlab(x$ServiceSite.x)
}
lapply(facility2, pies2)
and gives this error
Error: Aesthetics must be either length 1 or the same as the data (1): x, fill
I know the first method splits the data perfectly while providing correct counts, I just can't figure out what I need to change in the ggplot() to have all injury types display for each facility. I would also like to add a label of percentages if possible or at least just the counts.
Sample data:
ServiceSite.x InitialType
2 Dermatitis
2 Diabetic
2 Pressure Injury
2 Pressure Injury
3 Pressure Injury
3 Other
3 Laceration
3 Other
4 Pressure Injury
4 MASD
4 Blister (Non-Pressure)
4 Skin Tear
4 Pressure Injury
5 Skin Tear
5 Other
5 Contusion
5 Skin Tear
5 Surgical(Non-Healing)
5 Pressure Injury
6 Pressure Injury
1 Pressure Injury
6 Pressure Injury
6 MASD
1 Surgical(Non-Healing)
1 Pressure Injury
1 Skin Tear
1 Contusion
facility2 <- split(full, full$ServiceSite.x)
both variables are factors.

Answer 1

I'm not getting the error you're showing, so you might want to go through and find the culprit, which may not be in the sample you posted. I'm using purrr::map rather than lapply; that's partially preference, and partially how well it fits in with a piped workflow. I also find map functions easy for debugging, since it will print the name or index of each item as it's being mapped over; this often helps me figure out where in a list a problem is.
The first set of plots here just come from rewriting your code using purrr::imap, which maps over two lists: the list itself, and its names. split names the list based on the values in ServiceSite.x, so you now have access to them to set the xlab. I'm not sure if one bug might have been in setting the xlab with x$ServiceSite.x, which seems like it should have returned an entire vector, not just a single string.
library(tidyverse)
library(patchwork)
pies1 <- df %>%
split(.$ServiceSite.x) %>%
imap(function(data, site) {
ggplot(data, aes(x = "", fill = InitialType)) +
geom_bar(width = 1) +
coord_polar(theta = "y") +
xlab(site)
})
I'm using the patchwork library to stick all the plots together just for easier display here.
reduce(pies1, `+`) + plot_layout(ncol = 2, byrow = T)
For the labels, do a little data prep first to calculate counts and percentages. Here I did this with a couple dplyr functions. Then add a geom_text with position_stack(vjust = 0.5) so the texts will 1. stack going around the circle, the same as the bars do, and 2. be centered in the wedges. I'll leave it up to you to format the text as you want, including adding count labels instead or in addition.
pies2 <- df %>%
split(.$ServiceSite.x) %>%
imap(function(data, site) {
data %>%
count(ServiceSite.x, InitialType) %>%
mutate(share = round(n / sum(n), digits = 2)) %>%
ggplot(aes(x = "", y = n, fill = InitialType)) +
geom_col(width = 1) +
geom_text(aes(label = scales::percent(share)), position = position_stack(vjust = 0.5)) +
coord_polar(theta = "y")
})
pies2[[1]]