Base R绘制组合图时X轴偏移问题求助

你的问题核心在于barplot()生成的柱子位置（bp）和你手动设置的X轴范围不匹配。barplot()会自动根据柱子数量计算X轴的空间，而你用原始x数据的min/max设置xlim，就会导致刻度范围没覆盖所有柱子。这里有两个简单的修复方案：

方案一：让barplot适配原始x数据的范围 #

直接在barplot()调用中指定xlim为原始x数据的最小/最大值，这样柱子会自动分布在这个范围内，后续的X轴刻度就能完美覆盖：

plot_combo_chart <- function(df,bar_colour = "green",line_colour = "red",y_ticks = 5){ 
  x_name <- colnames(df)[1] 
  bar_name <- colnames(df)[2] 
  line_name <- colnames(df)[3] 
  plot_colours <- c(bar_colour,line_colour) 
  x_min <- min(df[,1]) 
  x_max <- max(df[,1]) 
  y_min <- min(df[,2],df[,3]) 
  y_max <- max(df[,2],df[,3]) 
  yaxis <- pretty(c(df[,2],df[,3]),n=y_ticks) 
  par(xpd=FALSE) 
  # 关键：添加xlim参数匹配原始x数据范围
  bp <- barplot(df[,2],col=bar_colour,axes = FALSE,ann=FALSE, xlim = c(x_min, x_max)) 
  xaxis <- pretty(df[,1]) 
  # 补全lines的y参数（避免潜在的语法问题）
  lines(x=bp,y=df[,3], col=line_colour,lwd=2) 
  axis(side=1,at=xaxis,labels = xaxis,xlim=c(x_min,x_max)) 
  axis(side=2,at=yaxis,labels = yaxis, ylim = c(y_min,y_max)) 
  legend(x=max(bp),y=y_max,legend = c(bar_name,line_name),col=plot_colours,pch = c(NA,NA),bty='n', lwd=2, lty=c(0,1),xjust=1,yjust=0,fill=c(bar_colour,NA), border=c(bar_colour,NA),xpd=TRUE) 
  title(xlab = x_name) 
}

方案二：基于柱子位置调整X轴范围 #

如果你不想修改barplot()的设置，可以根据bp（柱子中心位置）的范围来调整X轴的极限，同时生成适配的刻度：

plot_combo_chart <- function(df,bar_colour = "green",line_colour = "red",y_ticks = 5){ 
  x_name <- colnames(df)[1] 
  bar_name <- colnames(df)[2] 
  line_name <- colnames(df)[3] 
  plot_colours <- c(bar_colour,line_colour) 
  y_min <- min(df[,2],df[,3]) 
  y_max <- max(df[,2],df[,3]) 
  yaxis <- pretty(c(df[,2],df[,3]),n=y_ticks) 
  par(xpd=FALSE) 
  bp <- barplot(df[,2],col=bar_colour,axes = FALSE,ann=FALSE) 
  # 基于柱子位置获取X轴的实际范围
  x_axis_range <- range(bp)
  # 生成适配这个范围的刻度，同时匹配原始x数据的分布
  xaxis <- pretty(df[,1], n = length(pretty(x_axis_range)))
  # 过滤掉超出柱子范围的刻度
  xaxis <- xaxis[xaxis >= x_axis_range[1] & xaxis <= x_axis_range[2]]
  lines(x=bp,y=df[,3], col=line_colour,lwd=2) 
  # 使用柱子范围设置xlim
  axis(side=1,at=xaxis,labels = xaxis,xlim=x_axis_range) 
  axis(side=2,at=yaxis,labels = yaxis, ylim = c(y_min,y_max)) 
  legend(x=max(bp),y=y_max,legend = c(bar_name,line_name),col=plot_colours,pch = c(NA,NA),bty='n', lwd=2, lty=c(0,1),xjust=1,yjust=0,fill=c(bar_colour,NA), border=c(bar_colour,NA),xpd=TRUE) 
  title(xlab = x_name) 
}

为什么这两个方案有效？ #

• 方案一通过让barplot()直接使用原始x数据的范围，确保所有柱子都落在X轴的可视区域内，刻度也能完美对应原始数据。
• 方案二则是先获取barplot()自动计算的柱子位置范围，再基于这个范围调整X轴刻度，既保证覆盖所有柱子，又不会出现刻度过多或标签不匹配的问题。

用你的测试数据test <- data.frame(sample = 1:100, value1 = rnorm(100),value2 = runif(100))运行修改后的函数，就能看到X轴完全覆盖所有柱子了。

内容的提问来源于stack exchange，提问作者Rookatu