R語言怎么給坐標軸添加表示分組的線段

 

df<-data.frame(A=1:3,B=1:3)
library(ggplot2)
ggplot(df,aes(x=A,y=B))+
  geom_col()+
  annotate(geom = "text",x=1,y=0,label="AAA",vjust=3)

 

可以看到AAA這個文本大部分都被蓋住了，可以看下加上coord_cartesian(clip = "off")函數(shù)的效果

df<-data.frame(A=1:3,B=1:3)
library(ggplot2)
ggplot(df,aes(x=A,y=B))+
  geom_col()+
  annotate(geom = "text",x=1,y=0,label="AAA",vjust=3)+
  coord_cartesian(clip = "off")

 

首先是氣泡圖

set.seed("20210329")
df<-data.frame(x=rep(letters[1:6]),
               y=c(rep("A",6),rep("B",6)),
               value=sample(1:100,12))
df
ggplot(data=df,aes(x=x,y=y))+
  geom_point(aes(size=value),
             color="red",
             alpha=0.5,
             show.legend = F)+
  scale_size_continuous(range = c(3,20))+
  theme_bw()

 

ggplot(data=df,aes(x=x,y=y))+
  geom_point(aes(size=value),
             color="red",
             alpha=0.5,
             show.legend = F)+
  scale_size_continuous(range = c(3,20))+
  theme_bw()+
  geom_segment(x=1,xend=3,y=2.7,yend=2.7)+
  geom_segment(x=4,xend=6,y=2.7,yend=2.7)+
  geom_segment(x=1,xend=1,y=2.65,yend=2.7)+
  geom_segment(x=3,xend=3,y=2.65,yend=2.7)+
  geom_segment(x=4,xend=4,y=2.65,yend=2.7)+
  geom_segment(x=6,xend=6,y=2.65,yend=2.7)+
  annotate(geom="text",x=2,y=2,label="First",vjust=-16)+
  annotate(geom="text",x=5,y=2,label="Second",vjust=-16)+
  coord_cartesian(clip = "off")+
  theme(plot.margin = unit(c(2,0.2,0.2,0.2),'cm'))