Разделите ряд числовых переменных на константу

Question

Я хочу разделить первую строку всех числовых столбцов на 3.

City <- rep(LETTERS[1:3], each = 2) 
Res  <- factor(rep(c("Urban", "Rural"), times = length(City)/2))
set.seed(12345)
Pop  <- rpois(n = length(City), lambda = 500000)
Pop1 <- rpois(n = length(City), lambda = 500)
df   <- data.frame(City, Res, Pop, Pop1)
df

df[1, 3:4]/3
       Pop     Pop1
1 166804.7 164.3333

Хотите знать, как это можно сделать с помощью tidyverse.

Answer 1

Если вы хотите, чтобы только третий и четвертый столбцы первого ряда были разделены на 3:

df %>% slice(1) %>% select(3:4) %>% mutate_all(~ . / 3)
##        Pop     Pop1
## 1 166804.7 164.3333

или, если вы хотите, чтобы все столбцы первого ряда содержали только третий и четвертый столбцы, разделенные на 3:

df %>% slice(1) %>% mutate_at(3:4, ~ . / 3)
##   City   Res      Pop     Pop1
## 1    A Urban 166804.7 164.3333

Answer 2

Опция будет

library(tidyverse)
df %>% 
  mutate_if(is.numeric, list(~ case_when(row_number()==1 ~ ./3, 
            TRUE ~ as.numeric(.))))

---

Если нам нужно вернуть только одну строку с select переменными

df %>%
    slice(1) %>%
    select_if(is.numeric) %>%
    mutate_all(list(~ ./3))