箱线图 y 轴上的自定义刻度数

Question

这里是示例代码：

library("ggpubr")

# Load data
data("ToothGrowth")
df <- ToothGrowth

# Basic plot
ggboxplot(df, x = "dose", y = "len", width = 0.8)

它产生情节：

我需要在y 轴上有更多的刻度。我需要能够设置将在y 轴上显示的自定义刻度数。例如在y 轴上显示5, 10, 15, 20, 25, 30 刻度。如何设置我需要的y 轴的刻度数？

Answer 1

要添加更多刻度，您需要手动为任何scale_*_continuous() 函数的breaks 参数指定值。

library(ggpubr)
#> Loading required package: ggplot2
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
# Load data
data("ToothGrowth")
df <- ToothGrowth

# Basic plot
ggboxplot(df, x = "dose", y = "len", width = 0.8) +
  scale_y_continuous(breaks = seq(5, 30, 5))

如果您只想显示刻度，但想控制显示哪些标签，您可以通过传递解析函数对 labels 参数执行类似以下操作。

ggboxplot(df, x = "dose", y = "len", width = 0.8) +
  scale_y_continuous(breaks = seq(5, 30, 5), labels = function(x){
    case_when(x%%10==0 ~ as.character(x),
              TRUE ~ "")
  })

^{由reprex package (v1.0.0) 于 2021-05-11 创建}