seleccionar - ¿Cómo pasar los nombres de las columnas dinámicas en dplyr a la función personalizada?
seleccionar columnas en r (2)
¿Por qué no simplemente paste ?
data %>%
mutate_(diff = paste(from, "-", to))
Tengo un conjunto de datos con la siguiente estructura:
Classes ‘tbl_df’ and ''data.frame'': 10 obs. of 7 variables:
$ GdeName : chr "Aeugst am Albis" "Aeugst am Albis" "Aeugst am Albis" "Aeugst am Albis" ...
$ Partei : chr "BDP" "CSP" "CVP" "EDU" ...
$ Stand1971: num NA NA 4.91 NA 3.21 ...
$ Stand1975: num NA NA 5.389 0.438 4.536 ...
$ Stand1979: num NA NA 6.2774 0.0195 3.4355 ...
$ Stand1983: num NA NA 4.66 1.41 3.76 ...
$ Stand1987: num NA NA 3.48 1.65 5.75 ...
Quiero proporcionar una función que permita calcular la diferencia entre cualquier valor, y me gustaría hacer esto usando la función de mutate dplyr como así: (suponiendo que los parámetros from y to se pasan como argumentos)
from <- "Stand1971"
to <- "Stand1987"
data %>%
mutate(diff = from - to)
Por supuesto, esto no funciona, ya que dplyr usa una evaluación no estándar. Y sé que ahora hay una solución elegante para el problema al usar mutate_ , y he leído esta viñeta , pero aún no puedo entenderlo.
¿Qué hacer?
Aquí están las primeras filas del conjunto de datos para un ejemplo reproducible
structure(list(GdeName = c("Aeugst am Albis", "Aeugst am Albis",
"Aeugst am Albis", "Aeugst am Albis", "Aeugst am Albis", "Aeugst am Albis",
"Aeugst am Albis", "Aeugst am Albis", "Aeugst am Albis", "Aeugst am Albis"
), Partei = c("BDP", "CSP", "CVP", "EDU", "EVP", "FDP", "FGA",
"FPS", "GLP", "GPS"), Stand1971 = c(NA, NA, 4.907306434, NA,
3.2109535926, 18.272143463, NA, NA, NA, NA), Stand1975 = c(NA,
NA, 5.389079711, 0.4382328556, 4.5363022622, 18.749259742, NA,
NA, NA, NA), Stand1979 = c(NA, NA, 6.2773722628, 0.0194647202,
3.4355231144, 25.294403893, NA, NA, NA, 2.7055961071), Stand1983 = c(NA,
NA, 4.6609804428, 1.412940467, 3.7563539244, 26.277246489, 0.8529335746,
NA, NA, 2.601878177), Stand1987 = c(NA, NA, 3.4767860929, 1.6535933856,
5.7451770193, 22.146844746, NA, 3.7453183521, NA, 13.702211858
)), .Names = c("GdeName", "Partei", "Stand1971", "Stand1975",
"Stand1979", "Stand1983", "Stand1987"), class = c("tbl_df", "data.frame"
), row.names = c(NA, -10L))
De esa viñeta ( vignette("nse","dplyr") ), use la función interp() de interp()
library(lazyeval)
from <- "Stand1971"
to <- "Stand1987"
data %>%
mutate_(diff=interp(~from - to, from=as.name(from), to=as.name(to)))