上面这个例子如果不使用管道操作符应该怎么写

如果不使用管道操作符，你可以将代码重写如下：

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

在这个重写的版本中，我们首先使用 ggplot 函数创建一个图形对象，并指定数据框为 df。然后，我们使用 aes 函数将 x 轴映射到 var 变量。最后，使用 geom_histogram 函数来绘制直方图，并传递 binwidth 参数。这样可以实现与使用管道操作符相同的功能，但是代码结构稍微不同。