.data pronoun speedup (#5731)

* For extract usage, consider `.data` pronoun as non-data.

* Add news bullet

Author: teunbrand

NEWS.md

@@ -1,6 +1,7 @@
 
 # ggplot2 (development version)
 
+* Fixed performance loss when the `.data` pronoun is used in `aes()` (#5730).
 * Fixed bug where discrete scales could not map aesthetics only consisting of
   `NA`s (#5623)
 * Facet evaluation is better at dealing with inherited errors 

R/aes.R

@@ -430,7 +430,7 @@ alternative_aes_extract_usage <- function(x) {
 }
 
 extract_target_is_likely_data <- function(x, data, env) {
-  if (!is.name(x[[2]])) {
+  if (!is.name(x[[2]]) || identical(x[[2]], quote(.data))) {
     return(FALSE)
   }