Как передать имя переменной аргументу st_sample () в функции с использованием pipe (%)? - PullRequest
Новая
       111

Как передать имя переменной аргументу st_sample () в функции с использованием pipe (%)?

0 голосов
/ 21 марта 2020

Я хочу создать функцию, которая берет простой слой объектов и имя переменной и создает случайные точки на основе значений переменных. Я могу сделать это без проблем, используя последовательно каналы (%), но я застреваю при настройке функции с использованием каналов, чтобы сделать то же самое. 

library(tidyverse)
library(sf)
library(tmap)

data("World") # load World sf dataset from tmap

# this works to create a point layer of population by country
World_pts <- World %>% 
  select(pop_est) %>% 
  filter(pop_est >= (10^6)) %>% 
  st_sample(., size = round(.$pop_est/(10^6))) %>% # create 1 random point for every 1 million people
  st_sf(.)

# here's what it looks like
tm_shape(World) + tm_borders() + tm_shape(World_pts) + tm_dots()

# this function to do the same does not work
pop2points <- function(sf, x){
  x <- enquo(x)
  sf %>% 
    select(!!x) %>% 
    filter(!!x >= (10^6)) %>% # works up to here
    st_sample(., size = round(!!.$x/(10^6))) %>% # this is where it breaks
    st_sf(.)
}

World_pts <- pop2points(World,pop_est)

Я подозреваю, что я запутался в том, как обрабатывать нестандартные вычисления в аргументе функции.

1 Ответ

1 голос
/ 21 марта 2020

Одним из вариантов будет преобразование вашего x в метку и использование подхода .[[ для обращения к именам столбцов: 

pop2points <- function(sf, x){
  x <- enquo(x)
  sf %>% 
    select(!!x) %>% 
    filter(!!x >= (10^6)) %>%
    st_sample(., size = round(.[[as_label(x)]] /(10^6))) %>%
    st_sf(.)
}
...