如何为分组条形图添加插入轴？ #设置数据 x1=c（3,5,6,9375190）； x1 x2=c（2,2,3,30,46,60）； x2 数据=rbind（x1，x2）； 数据 colnames（数据）=c（“猪”、“蛋鸡”、“肉鸡”、“乳制品”、“牛肉”、“绵羊”） 行名（数据）=c（“1980”、“2010”） 数据 #使用条形图打印分组条形图 条形图（数据、， 除了=T， ylab=“动物数量”， #cex.names=0.8， #las=2， col=c（“暗蓝色”、“红色”） ) #由于数字差异很大，因此我想在200到340之间添加一个断点，如下所示： 数据T=T（数据）； 数据 #安装软件包（“重塑”） 图书馆（重塑） mdata

非常感谢《gap.barplot的作者Jim Lemon，他通过电子邮件回复了我（见下文）。 用他的密码，我得到了我想要的。 您可能需要安装并加载软件包

plotrix

嗨，魏，

gap.barplot

函数还不能对条形图进行分组。你可能 使用此功能可获得您想要的：

# set up data

x1=c(3,5,6,9,375,190);
x1
x2=c(2,2,3,30,46,60);
x2
data=rbind(x1,x2);
data
colnames(data)=c("Pig","Layer","Broiler","Dairy","Beef","Sheep")
rownames(data)=c("1980","2010")
data

# plot grouped bar by using barplot
barplot(data,
        beside=T, 
        ylab="Number of animal", 
        #cex.names=0.8, 
        #las=2, 
        col=c("darkblue","red")
)

# Since there are large differences in numbers, so I want to add a break between 200 to 340 as below:
data_T=t(data);
data_T
#install.packages("reshape")
library(reshape)
mdata <- melt(data_T, id=c("1980","2010"));
mdata
colnames(mdata)=c("Animal","Year",'value');
mdata
gap.barplot(mdata$value,
            gap=c(200,340),
            xlab="Animal",
            ytics=c(0,50,100,150,200,300,350,400),
            ylab="Number of animal",
            xaxlab=mdata$Animal,
            xaxt="n")
# xaxt="n" is esentiall to remove everything from x axis (e.g. a clean x axis)
# then define a axis using the following 
axis(side = 1, at = seq_along(mdata$Animal),mdata$Animal,tick = FALSE)
abline(h=seq(200,205,.001), col="white")  # hiding vertical lines
axis.break(axis=2,breakpos=202.5,style="slash") # break the left Y axis

#安装。软件包（“plotrix”）只需安装一次
库（plotrix）
新数据200]200]-140
巴波斯
#install.packages("plotrix") # only need to install once
library(plotrix)
newdata<-data
newdata[newdata>200]<-newdata[newdata>200]-140
barpos<-barplot(newdata,names.arg=colnames(newdata),
ylim=c(0,250),beside=TRUE,col=c("darkblue","red"),axes=FALSE)
axis(2,at=c(0,50,100,150,200,235),
labels=c(0,50,100,150,200,375))
box()
axis.break(2,210,style="gap")