减少R中y轴刻度值的数量(海盗图)

# 安装并加载必要的包
install.packages("yarrr")
library(yarrr)

# 创建一个海盗图
pirateplot(formula = weight ~ age,
           data = dplyr::filter(pirates, age > 20),
           main = "Pirate Weight by Age")

# 减少y轴刻度数量
# 首先获取当前的y轴范围
y_range <- range(pirates$weight[pirates$age > 20])

# 设置新的刻度间隔，例如每50单位一个刻度
tick_interval <- 50

# 计算新的刻度位置
new_ticks <- seq(y_range[1], y_range[2], by = tick_interval)

# 使用axis函数自定义y轴刻度
axis(side = 2, at = new_ticks, labels = TRUE)