standardowa ocena w dplyr: podsumowanie zmiennej podanej jako ciąg znaków

Proszę zauważyć, że ta odpowiedź Nie dotyczy , ale poprzednich wersji.

[dplyr 0.7.0] ma nowe podejście do niestandardowej oceny (NSE) o nazwie tidyeval. Jest on szczegółowo opisany w vignette("programming").

The dplyr pomocna jest tu winieta na niestandardową ewalutację . Sprawdź sekcję "mieszanie stałych i zmiennych" i przekonaj się, że można użyć funkcji interp z pakietu lazyeval oraz "[u]se as.name Jeśli masz łańcuch znaków dający nazwę zmiennej":

library(lazyeval)
df %>%
  select(-matches(drp)) %>%
  group_by_(key) %>%
  summarise_(sum_val = interp(~sum(var, na.rm = TRUE), var = as.name(val)))
#   v3 sum_val
# 1  A      21
# 2  B      19

Wraz z wydaniem pakietu rlang i aktualizacją 0.7.0 do dplyr, jest to teraz dość proste.

Jeśli chcesz użyć ciągu znaków (np. "v1") jako nazwy zmiennej, wystarczy:

1. Konwersja ciągu znaków na symbol za pomocą sym() z pakietu rlang
2. w wywołaniu funkcji wpisz !! przed symbolem

Na przykład, wykonałbyś następujące czynności:

my_var <- "Sepal.Length"
my_sym <- sym(my_var)
summarize(iris, Mean = mean(!!my_sym))

Bardziej zwięźle, można połączyć krok konwersji swojego string do symbolu z sym() i prefiks go z !! podczas pisania wywołania funkcji.

Na przykład możesz napisać:

my_var <- "Sepal.Length"
summarize(iris, mean(!!sym(my_var)))

Aby powrócić do oryginalnego przykładu, możesz wykonać następujące czynności:

library(rlang)

key <- "v3"
val <- "v2"
drp <- "v1"

df <- data_frame(v1 = 1:5, v2 = 6:10, v3 = c(rep("A", 3), rep("B", 2)))

df %>% 
  # NOTE: we don't have to do anything to `drp`
  # since the matches() function expects a character string
  select(-matches(drp)) %>% 
  group_by(!!sym(key)) %>% 
  summarise(sum(!!sym(val), na.rm = TRUE))

Składnia Alternatywna

Z wydaniem rlang w wersji 0.4.0, możesz użyć następującej składni:

my_var <- "Sepal.Length"
my_sym <- sym(my_var)
summarize(iris, Mean = mean({{ my_sym }}))

Zamiast pisać !!my_sym, możesz napisać {{ my_sym }}. Ma tę zaletę, że jest prawdopodobnie jaśniejsza, ale ma wadą jest to, że musisz przekonwertować ciąg znaków na symbol przed umieszczeniem go w nawiasach. Na przykład możesz napisać !!sym(my_var), ale nie możesz napisać {{sym(my_var)}}

Dodatkowe informacje

Ze wszystkich oficjalnych dokumentów wyjaśniających, jak działa użycie sym() i !!, te wydają się być najbardziej dostępne:

1. Winieta Dplyr: programowanie za pomocą dplyr

2. Sekcja Hadley Wickham ' s książka "Advanced R" O metaprogramowaniu

Podaj argument .dots listę łańcuchów konstruujących łańcuchy za pomocą paste, sprintf lub używając interpolacji łańcuchowej z pakietu gsubfn poprzez fn$list w miejsce list, Jak to robimy tutaj:

library(gsubfn)
df %>% 
   group_by_(key) %>% 
   summarise_(.dots = fn$list(mean = "mean($val)", sd = "sd($val)"))

Dając:

Source: local data frame [2 x 3]

  v3 mean        sd
1  A  7.0 1.0000000
2  B  9.5 0.7071068

Nowa aktualizacja dplyr:

Nowa funkcjonalność dplyr może w tym pomóc. Zamiast łańcuchów zmiennych, które wymagają niestandardowej oceny, używamy quosures quo(). Cofamy cytowanie za pomocą innej funkcji !!. Więcej o tych Zobacz tę winietę . Będziesz potrzebował developer ' s version of dplyr aż do pełnego wydania.

library(dplyr) #0.5.0.9004+
key <- quo(v3)
val <- quo(v2)
drp <- "v1"

df <- data_frame(v1 = 1:5, v2 = 6:10, v3 = c(rep("A", 3), rep("B", 2)))
df %>% select(-matches("v1")) %>% 
  group_by(!!key) %>% 
  summarise(sum(!!val, na.rm = TRUE))
# # A tibble: 2 × 2
#      v3 `sum(v2, na.rm = TRUE)`
#   <chr>                   <int>
# 1     A                      21
# 2     B                      19