在coord_polar上制作弯曲文本

Question

我想用coord_polar在ggplot周围做出弯曲的文字.我有data.frame:

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只是没有显示它.