R/ggplot2：无法修改日期型X轴刻度范围，是否用错scale函数？

没错，你确实用错了scale函数！这是个很常见的小坑——scale_x_continuous()是专门给数值型连续变量用的刻度调整工具，而你的x轴是Date类型的日期变量，强行用这个函数会让ggplot2把日期转换成底层的数值（也就是距离1970-01-01的天数），但它没法自动识别这个数值对应的日期原点，所以就抛出了Error in as.Date.numeric(value) : 'origin' must be supplied的错误。

给你两个简单的解决方案：

方案1：用专门的日期刻度函数scale_x_date() #

这是ggplot2为日期变量量身定做的函数，直接传入日期格式的范围参数就行，完美适配你的需求：

mydata <- tibble::tibble( 
  x = as.Date(c("2020-01-01", "2020-01-02", "2020-01-03", "2020-01-04", "2020-01-05")), 
  y = 1:5 
) 
mydata_sub <- mydata[2:4,] 
g <- ggplot2::ggplot(mydata_sub, ggplot2::aes(x = x, y = y)) + ggplot2::geom_point() 
# 替换成scale_x_date即可
g <- g + ggplot2::scale_x_date(limits = c(min(mydata$x), max(mydata$x))) 
print(g)

方案2：用coord_cartesian()调整显示范围 #

如果你只是想调整图表的显示范围，不想修改刻度的其他设置，coord_cartesian()会更合适——它不会改变数据的处理方式，只是缩放图表的显示区域：

# 替换成这一行即可
g <- g + ggplot2::coord_cartesian(xlim = c(min(mydata$x), max(mydata$x)))

额外小技巧 #

如果需要自定义日期的显示格式（比如改成"月/日"或者"年-月"），可以在scale_x_date()里加上date_labels参数，比如：

g <- g + ggplot2::scale_x_date(
  limits = c(min(mydata$x), max(mydata$x)),
  date_labels = "%m/%d" # 显示成月/日格式
)

内容的提问来源于stack exchange，提问作者Timm S.