在 coord_polo 上制作弯曲文本

我想用 coord_polar 在 ggplot 周围制作弯曲文本。我有数据框：

z <- data.frame( a=c("sensor 1","sensor 2","sensor 3","sensor 4","sensor 5","sensor 6","sensor 7","sensor 8"),  b=c(50, 60, 70, 20,90,110,30,100))

这是我创建 ggplot 的代码：

cxc <- ggplot(z, aes(x=a, y=b, fill=factor(b))) + 
    geom_bar(width = 1,stat="identity",colour = "black")
cxc + coord_polar() + 
  theme_linedraw() +theme(axis.ticks =element_blank(), axis.text.y =element_blank(), axis.title=element_blank(), axis.text.x=element_text(size = 12,angle = 45)) 

Here is image from my result. I want making texts (x axis): sensor 1, sensor 2... making curved like I draw with red color around circle from coord_polar. Must fit with circle.

我不确定是否弯曲文本，但如果你希望它们至少旋转，这是一个开始：

myAng <-
  seq(-20,-340,length.out = 8)

cxc + coord_polar() + 
  theme_linedraw() +
  theme(axis.ticks =element_blank()
        , axis.text.y =element_blank()
        , axis.title=element_blank()
        , axis.text.x=element_text(size = 12
                                   ,angle = myAng)) 

我将添加我对使用此类角度（甚至像这样的图的极坐标）的犹豫。不过，我认为您这样做有充分的理由，而这个 MWE 只是没有显示出来。