ввод данных
Я не уверен, как выглядит dataframe
, но если все, что вам нужно, это изменить значение определенного столбца с 0 на 1 для определенных парков, вы можете просто сделать следующее. Пожалуйста, разместите воспроизводимый пример в следующий раз
library(tidyverse)
df <- data_frame(
park = paste0("park", 1:4),
swimming = c(0,1,0,1)
)
df %>%
mutate(swimming = if_else(park %in% c("park2", "park3"), if_else(swimming == 0, 1, swimming), swimming))
#> # A tibble: 4 x 2
#> park swimming
#> <chr> <dbl>
#> 1 park1 0.
#> 2 park2 1.
#> 3 park3 1.
#> 4 park4 1.
``