Two legends for polar ggplot (with one customized)

Question

Here is my data:

data <- structure(list(Indicator = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 
3L, 3L, 3L, 6L, 6L, 6L, 6L, 4L, 4L, 5L, 5L, 1L, 1L, 1L, 2L, 2L, 
2L,          


        

Answer 1

For a start, you may try something like this. You need to adjust arrangement and layout according to your own preferences.

library(ggplot2)
library(gridExtra)

gg <- ggplot(data, aes(x = legend.var, y = score, fill = Indicator), color='black') + 
  geom_bar(width = 1, alpha=0.5, stat="identity") + 
  coord_polar()  + 
  theme(axis.ticks = element_blank()) + 
  facet_wrap(~Village, nrow=2, ncol = 3) 

# create a table that translates legend.var to Variables 
tbl <- unique(data[ , c("legend.var", "Variables")])

# create a table grob 
tt <- tableGrob(d = tbl,
                col.just = "left",
                gpar.coretext = gpar(col = "black", cex = 0.5),
                gpar.coltext = gpar(col = "black", cex = 0.5, fontface = "bold"),
                gpar.rowtext = gpar(col = "black", cex = 0.5, fontface = "italic"))

# arrange plot and table grob
grid.arrange(gg, tt, ncol = 2)

update with a quick and dirty ggplot-only alternative

# create labels
labs <- with(tbl, paste(legend.var, Variables))

gg <- ggplot(data, aes(x = legend.var, y = score, fill = Indicator, col = Variables)) + 
  geom_bar(width = 1, alpha = 0.5, stat = "identity") +
  coord_polar()  + 
  theme(axis.ticks = element_blank()) + 
  facet_wrap(~ Village, nrow = 2, ncol = 3) +
  scale_color_grey(labels = labs, start = 0.8, end = 0.9)

gg

Answer 2

Here is a solution using a gtable:

library(ggplot2)
p <- ggplot(data, aes(x = legend.var, y = score, fill = Indicator), color='black') + 
  geom_bar(width = 1, alpha=0.5, stat="identity") + 
  scale_y_continuous() + 
  coord_polar()  + 
  theme( axis.ticks = element_blank()) + 
  facet_wrap(~Village, nrow=2, ncol=3) + 
  guides(colour = guide_legend(title.hjust = 0.5)) +
  theme(legend.position=c(0.85,0.25))

#create table
library(gridExtra)
tab <- tableGrob(unique(data[, c("legend.var", "Variables")]), 
                 show.rownames=FALSE, gpar.coretext=gpar(fontsize=10), 
                 gpar.coltext=gpar(fontsize=10, fontface='bold'),
                 gpar.corefill = gpar(fill = "grey90", col = "white"),
                 gpar.colfill = gpar(fill = "grey80", col = "white"))

#arrange grobs
library(gtable)
a <- gtable(unit(c(0.7, 0.3) ,c("npc")), unit(1, "npc"))
a <- gtable_add_grob(a, ggplotGrob(p),1,1)
a <- gtable_add_grob(a, tab,1,2)

#plot
grid.draw(a)