如何在ggplot2中使用coord_polar移动x轴标签

Question

我无法在下图中移动轴标签（场数据，辅助数据等），因此它们既大又完全适合图中。整个代码如下。关于该怎么做的建议？

NULL

我尝试使用(void *)和(void(*)(const char *, unsigned, BOOL))，但我不认为这正是我想要的，因为这些更适合角度调整。我读到我可以使用(UnsafePointer<Int8>, UInt32, Bool) -> Void来分解两行标签，希望这有助于它们适应，但我不确定如何做到这一点。

Answer 1

这是我现在能做的最好的事情：

p<-ggplot(data=DF, aes(x=Datasource, y=Percentage)) +
    geom_bar(stat="identity", fill = "blue") + 
    geom_text(aes(y = Percentage + 2.5,label = Percentage)) +
    coord_polar() +
    theme_bw() + 
    theme(axis.text.x = element_text(size = 15), 
                axis.text.y=element_blank(), 
                axis.ticks=element_blank(), 
                axis.title=element_blank(),
                panel.border = element_blank())
p

library(grid)
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip[gt$layout$name == "panel"] <- "off"
grid.draw(gt)

这个想法取自this回答。

Answer 2

R不适合添加标签和轴标题。

我建议将R中的数字导出为矢量图形文件（.svg），然后在矢量图形软件中添加标签。我使用Inkscape软件是因为它可以免费下载，而且相当直观易学。