绘图标题在圆形条形图中不起作用

如何解决绘图标题在圆形条形图中不起作用

我正在尝试使用 ggtitle() 为我的圆形条形图添加标题，但在图中的任何地方都找不到标题。我什至尝试调整位置，但没有用。有人可以告诉我这个问题吗？ 示例输入和代码如下：

grp = c("A","B","C","D","E","F","G","H","I","J")
val= c(104,95,73,65,53,43,30,20,10,5)
data= data.frame(grp,val,stringsAsFactors = TRUE)

ggplot(data,aes(x=grp,y=val)) +       
  geom_bar(stat="identity",fill=alpha("blue",0.3)) +
  ylim(-100,120) +
  theme_minimal() +
  theme(
    axis.text = element_blank(),axis.title = element_blank(),panel.grid = element_blank(),plot.margin = unit(rep(-2,4),"cm")     
  ) +
  coord_polar(start = 0) +
  geom_text(aes(x=grp,y=val,label=val+10,vjust=-0.5),color="black",fontface="bold",alpha=0.6,size=2.5,inherit.aes = FALSE ) +
  geom_text(aes(x=grp,label=grp,hjust=2),inherit.aes = FALSE ) +
  ggtitle("Title is top 10")+
  theme(plot.title = element_text(hjust = 0.5))

解决方法

问题是您将绘图边距设置为 2cm 的负值。在距离或距绘图边缘小于 2 厘米的范围内绘制的所有内容，例如标题，将被“切断”或至少不显示。要解决这个问题，也要调整标题的边距：

library(ggplot2)

ggplot(data,aes(x=grp,y=val)) +       
  geom_bar(stat="identity",fill=alpha("blue",0.3)) +
  ylim(-100,120) +
  theme_minimal() +
  theme(
    axis.text = element_blank(),axis.title = element_blank(),panel.grid = element_blank(),plot.margin = unit(rep(-2,4),"cm")     
  ) +
  coord_polar(start = 0) +
  geom_text(aes(x=grp,y=val,label=val+10,vjust=-0.5),color="black",fontface="bold",alpha=0.6,size=2.5,inherit.aes = FALSE ) +
  geom_text(aes(x=grp,label=grp,hjust=2),inherit.aes = FALSE ) +
  ggtitle("Title is top 10")+
  theme(plot.title = element_text(hjust = 0.5,unit(c(2.1,-1,0),"cm") ))