Trouble with an R function for making a ggplot2 graph and optionally facetting with user-specified columns

r ggplot2 tidyverse non-standard-evaluation

This works:

myplot_facet <- function(DF, colorBy, facetBy){
  
  facetBy <- enquo(facetBy)
  
  ggplot(DF, aes(x = price, y = carat, color = {{colorBy}} )) +
    geom_point() +
    facet_wrap(vars(!!facetBy))
}

myplot_facet(diamonds, colorBy = cut, facetBy = color)

Related

Prove every automorphism can be realized as conjugation
Prove that $\lim \limits_{n\to\infty}\frac{n}{n^2+1} = 0$ from the definition
Mystified by Rotman's proof of normality of index-2 subgroups
Constructing numbers from basic arithmetic on digits
Showing a UFD which is not a PID must have a nonprincipal maximal ideal.
If $p:E\to B$ is a covering space and $p^{-1}(x)$ is finite for all $x \in B$, show that $E$ is compact and Hausdorff iff $B$ is compact and Hausdorff
comparing distribution of two data sets
Functions between topological spaces being continuous at a point?
Lower semicontinuous function as the limit of an increasing sequence of continuous functions
The Star Trek Problem in Williams's Book
Universal property of tensor product [duplicate]
Books with fun exercises