如何摆脱x轴上的十进制数字

Question

我想创建一个简单的情节。

year=c(2005,2006,2007)
dat=c(1,2,3)
plot(year,dat)

我怎样才能将轴显示为没有小数位数的年份？ 感谢

Answer 1

使用year将as.Date指定为日期。这是一种方法，使用seq.Date：

year=seq(as.Date("2005/01/01"), by="1 year", length.out=3)
dat=c(1,2,3)
plot(year,dat)

Answer 2

3种可能的方式：

• 使用xaxp控制标签分辨率：

  plot(year,dat,xaxp=c(range(year),2))

• 对x轴使用Date对象：

  year2 <- as.Date(paste(year,"-01-01",sep=""))

  plot(year2,dat)

• 自己构建轴：

  plot(year,dat,xaxt="n")

  axis(1,at=year)