Определить пользовательскую функцию для добавления / вычитания из таблицы

Question

Я пытаюсь написать функцию, которая будет подталкивать узлы в графе, который работает с матрицами макетов в R. Я работаю в первую очередь с ggraph, поэтому важно, чтобы он был dplyr -esque.

Моя функция работает хорошо, когда я хочу подтолкнуть в положительных направлениях, но не для отрицательных направлений.Я пытался обернуть паратез вокруг аргументов, но это, похоже, не работает.Есть идеи?Вот пример:

Создание матрицы макета, подходящей для большинства графических пакетов в R.

set.seed(123)
layout <- matrix(nrow = 5, ncol = 2, sample(seq(0, 1, .1), 10, T))

Определение моей пользовательской функции, которая принимает matrix, преобразует ее в tibble, затем использует mutate и ifelse.

layout_nudge <- function(layout., 
                         node. = 1, 
                         x. = 0, 
                         y. = 0){
  as.tibble(layout.) %>%
    set_names('x.', 'y.') %>% 
    mutate(id = row_number(),
           x. = ifelse(id == node., x. + x, x.), 
           y. = ifelse(id == node., y. + y, y.))
}

## ADDITION
# Works
 # Convert to a tibble,
 # For node 1, add 1 to column x
 # For node 1, add 1 to column y
layout_nudge(layout, 1, 1, 1)


# A tibble: 5 x 3
     x.    y.    id
  <dbl> <dbl> <int>
1   1.9   0.7     1
2   0.7   0.5     2
3   0.7   0.6     3
4   1     0.3     4
5   0.7   0.1     5


## SUBTRACTION
# Does not work
 # Convert to a tibble,
 # For node 1, subtract 1 from column x
 # For node 1, subtract 1 from column y
layout_nudge(layout, 1, -1, -1) 

# A tibble: 5 x 3
     x.    y.    id
  <dbl> <dbl> <int>
1   1.9   0.7     1
2   0.7   0.5     2
3   0.7   0.6     3
4   1     0.3     4
5   0.7   0.1     5

Answer 1

не может воспроизвести вашу проблему.Работает вполне нормально, если я редактирую функцию как (x. und y. в заголовке функции был изменен на x1 соответственно y1)

layout_nudge <- function(layout., 
                         node. = 1, 
                         x1 = 0, 
                         y1 = 0){
  as.tibble(layout.) %>%
    set_names('x.', 'y.') %>% 
    mutate(id = row_number(),
           x. = ifelse(id == node., x. + x1, x.), 
           y. = ifelse(id == node., y. + y1, y.))
}