histogram <- function(df, var, binwidth = NULL){ df |> ggplot(aes(x = {{ var }})) + geom_histogram(binwidth = binwidth) }

你好！对于给定的数据框 df 和变量 var，这个函数 histogram 可以绘制直方图。它使用 ggplot2 包来创建图形，并使用 aes 函数将 x 轴映射到 var 变量。然后，使用 geom_histogram 函数来绘制直方图，可以通过 binwidth 参数来设置条柱的宽度。函数使用了管道操作符（|>）来使代码更简洁。如果 binwidth 参数为空，则会使用默认的条柱宽度。