PROSAGA码农传奇-模型可视化-标记饼图（ggplot2）的最佳方式，它响应R Shiny中的用户输入

<div class =“post-text”itemprop =“text”>
  <H1>
    找到一个不涉及为每个标签计算该位置的解决方案。但正如Antoine在评论中所说，它不适用于我的原因是标签和变量的顺序不同。
  </H1>
  <P>
    <a href="https://i.stack.imgur.com/MykPL.png" rel="nofollow noreferrer">
      <img src =“https://i.stack.imgur.com/MykPL.png”alt =“在此处输入图片说明”/>
    </A>
  </p>
   <pre>
    <code>
       output$indBar <- renderPlot({
   indplot<-ggplot(df.ind.calc(),
  #subset(df.ind.cal,df.ind.cal$Elect_div==input$division),
  aes(x = "",y=pct_value, fill = variable2))+  
  geom_bar(width = 1,stat="identity")+  
  facet_grid(~variable3)+
  coord_polar(theta = "y")+  
  labs(title= "Industry of employment", color="Industries", x="", y="")+
  theme_void()+ 
  geom_text(aes(x=1.6,label = perc_text), 
  size = 4,position = position_stack(vjust = 0.5))+ ###SOLUTION for labeling###
  guides(fill = guide_legend(title="",nrow=3,byrow=TRUE))+
  theme(legend.position="bottom")+
  scale_fill_brewer(palette = "RdBu", labels=c("Agri/Forest/Fish","Arts & Rec","Finance & Insurance","Health",
                                                 "Logistics","Media & Telecomms","Mining","Public Admin & Safety",
                                                 "Real estate", "Retail","Science & tech"))+
  theme(plot.title = element_text(size = 20,hjust = 0.5),strip.text = element_text(size = 15), legend.text=element_text(size=13))
indplot})

</code>
  </pre>
</DIV>