library(tidyverse)
data<-head(mtcars) %>% select(mpg,cyl)
data数据准备
R基础包
data$mpg1<-data$mpg+1
dataTidyverse语法
mutate(data,mpg2=mpg+1)data %>% mutate(mpg2=mpg+1,cyl2=if_else(cyl>6,'high','low'))data %>% mutate(mpg2=mpg+1,cyl2=if_else(cyl>6,'high','low')) %>%
select(starts_with('cyl')) %>%
rownames_to_column(var='var') #将行名变成新列
