r - 在 coord_polar 上制作弯曲文本

Question

我想用 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)) 

这是我的结果的图像。我想要制作文本(x 轴):传感器 1，传感器 2 ......使曲线像我在 coord_polar 的圆圈周围用红色绘制一样。必须适合圆形。

Answer 1

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

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 只是没有显示出来。