diff --git a/NAMESPACE b/NAMESPACE
index baf27afad..7b0e19dab 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -24,6 +24,7 @@ S3method(quote_n,default)
 S3method(str,tbl_df)
 S3method(tbl_sum,tbl_df)
 S3method(vec_ptype_abbr,tbl_df)
+export("$")
 export("%>%")
 export(add_case)
 export(add_column)
diff --git a/R/dollar.R b/R/dollar.R
new file mode 100644
index 000000000..55e7fbda4
--- /dev/null
+++ b/R/dollar.R
@@ -0,0 +1,7 @@
+#' @export
+`$` <- function(x, name) {
+  env <- new_environment(list(x = x, name = as.character(substitute(name))), parent = base_env())
+  call <- call2("$", x, substitute(name))
+  return(eval(call, env))
+  UseMethod("$")
+}