使用R绘制一张直尺刻度图

使用R语言绘制一张直尺刻度表

听我说一句：这是我的学习笔记，仅供参考

1 要求：

2 目标：画成50cm * 50 cm的

3 绘制的代码汇总：

# 设置x轴和y轴的最大值，长度为50cm
xcm <- 50
ycm <- 50

# 创建一个空白的图形区域，X和Y的范围设置为0到50
plot(0:50, 0:50, type = "n", axes = F, ann = F)

# 绘制X轴和Y轴，宽度从0到50cm
segments(0, 0, 50, 0, lwd = 2) # X轴
segments(0, 0, 0, 50, lwd = 2) # Y轴

# 添加边框线
rect(0, 0, 50, 50, lwd = 2)

# X轴上绘制刻度，每1mm绘制一条线，即每0.1cm，方向朝下
for (i in seq(0, 50, by = 0.1)) {
  # 每隔0.1cm绘制短刻度线，每1cm绘制长刻度线
  segments(i, 0, i, ifelse(i %% 1 == 0, -1, -0.5))  # 1cm长刻度线，1mm短刻度线，(-1, -0.5)负号就是方向朝下
  # 每1cm标注数字
  if (i %% 1 == 0) {
    text(i, -2, labels = i, adj = c(0.1, 0.2))
  }
}

# Y轴上绘制刻度，每1mm绘制一条线，方向朝左
for (i in seq(0, 50, by = 0.1)) {
  # 每隔0.1cm绘制短刻度线，每1cm绘制长刻度线，方向朝左
  segments(0, i, ifelse(i %% 1 == 0, -1, -0.5), i)  # 1cm长刻度线，1mm短刻度线，(-1, -0.5)负号就是方向朝下
  # 每1cm标注数字，放在刻度左侧
  if (i %% 1 == 0) {
    text(-2, i, labels = i, adj = c(0.2, 0.1))
  }
}

# 每5cm在X轴上绘制一条横线
for (i in seq(5, 50, by = 5)) {
  segments(i, 0, i, 50, lty = 1, col = "black") # 使用实线和黑色绘制，虚线是2
}

# 每5cm在Y轴上绘制一条横线
for (i in seq(5, 50, by = 5)) {
  segments(0, i, 50, i, lty = 1, col = "black") # 使用实线和黑色绘制，虚线是2
}

# 添加X轴和Y轴的标签
text(52, -2, labels = "X轴 (cm)", adj = c(0, 0))
text(-2, 52, labels = "Y轴 (cm)", adj = c(0, 0), srt = 90)

结果图形：