[R] Close with a ggplot chart but need a little assistance

[Walter Anderson]

I have the following code and data

data.csv

"","Goal","Frequency","Weight","Group"
"1","Move",13,0.245283018867925,"Public"
"2","Create",10,0.188679245283019,"Public"
"3","Strengthen",30,0.566037735849057,"Public"
"4","Move",6,0.6,"Board"
"5","Create",0,0,"Board"
"6","Strengthen",4,0.4,"Board"
"7","Move",19,0.301587301587302,"Total"
"8","Create",10,0.158730158730159,"Total"
"9","Strengthen",34,0.53968253968254,"Total"

code

q1.3 <- read.csv("data.csv")
p <- ggplot(data=q1.3,
             aes(x=factor(1),
                 y=Weight,
                 fill=factor(Goal))) +
             ggtitle("Respondents Goal Preference") +
             geom_bar(width = 1) +
             facet_grid(Group ~ .) +
scale_fill_manual(values=c("#BED2FF","#0070FF","#004DA8")) +
             coord_polar(theta="y") +
             xlab('') +
             ylab('') +
             labs(fill='Goal') +
             theme(
               plot.title = element_text(lineheight=.8, face="bold"),
               panel.background = element_rect(fill = 
"transparent",colour = NA),
               panel.grid.minor = element_blank(),
               panel.grid.major = element_blank(),
               strip.background = element_rect(fill = 
"transparent",colour = NA),
               strip.text.y = element_text(face="bold", size=10),
               plot.background = element_rect(fill = 
"transparent",colour = NA),
               axis.ticks = element_blank(), axis.text.y = 
element_blank(), axis.text.x = element_blank()
   )

to produce a chart which is close to what I want.  I just need two changes

I would like the facet labels (Board, Public, and Total) to appear 
horizontally above (or below) the pie charts.  I do want to keep the pie 
charts oriented vertically.
and I would like to label the wedges of the pie charts with their 
associated values.

Is that possible and if so how?