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

一个选项是

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

如果我们只需要返回带有select ed变量的单行

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

Answer 2

如果只想将第一行的第三和第四列除以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

将一行数字变量除以一个常数

2 个答案: