将数据整理到excel
image.png
在excel将数据选中复制,然后运行代码
df<-read.table("clipboard",header=T)
library(ggplot2)
ggplot(df,aes(x,y))+
geom_col(width = 0.5,aes(fill=x))+
geom_segment(aes(x=1,xend=1,y=10,yend=12))+
geom_segment(aes(x=1,xend=2,y=12,yend=12))+
geom_segment(aes(x=2,xend=2,y=5,yend=12))+
geom_text(aes(x=1.5,y=12.5),label="*")+
theme_bw()+labs(x="",y="")+
theme(legend.position = "none")
image.png
第一次使用R语言的话需要安装ggplot2
使用到的命令install.packages("ggplot2")
添加星号的位置在label
参数后,对应着可以改成两个或者三个星号
线段是使用geom_segment()
函数添加,可以根据自己的数据来修改。