在ggplot2中默认删除绘图和轴之间的空间？

Question

我喜欢ggplot2中的经典外观主题：

library(ggplot2)
thm <- theme_classic() 
theme_set(thm)

set.seed(123)
a <- data.frame(var=rnorm(2000))
ggplot(a,aes(var)) + geom_histogram()

根据this question，我可以使用expand=c(0,0)和scale_x_continuous选项中的scale_y_continuous删除数据和轴之间的空格。

但有没有办法可以将其设置为thm中的默认值？