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