5. 重塑长表为宽表,并适当修改外观(行名、列名) result=result%>%pivot_wider(names_from=id2,values_from=n,names_prefix="用户")result 再把第1列拼接上"用户",再来个列变行名: result%>%mutate(id1=str_c("用户",id1))%>%column_to_rownames("id1") 最后注:以上是为了给大家演示中间结果,实际...
样本为行名rownames_to_column(var="Sample")%>%#行名变为数据中的列separate(Sample,into=c("Sample","bar"),sep=16)%>%#按照规则取前16个字符select(-bar)#去掉分割后不需要的bar列
操作行名:rownames_to_column()和column_to_rownames() (2) readr包 读写纯文本文件,包括带分隔符的文本文件,如 csv和 tsv. 也能读写序列化的R 对象 rds,若想保存数据集后续再加载回来,rds将保存元数据和该对象的状态,如分组和数据类型。 读入数据到数据框:read_csv()和read_tsv() 读入欧式格式数据(“...
data2%>%select(Gene1,contains("TCGA"))%>%#选择指定列 column_to_rownames(var="Gene1")%>%# 将Gene1列转为rownames t()%>%as.data.frame()%>%#数据转置,样本为行名 rownames_to_column(var="Sample")%>%#行名变为数据中的列 separate(Sample,into=c("Sample","bar"),sep=16)%>%#按照...
rownames_to_column(var="Sample")%>%#行名变为数据中的列 separate(Sample,into=c("Sample","bar"),sep=16)%>%#按照规则取前16个字符 select(-bar)#去掉分割后不需要的bar列 可参考:盘一盘Tidyverse| 筛行选列之select,玩转列操作 Tips:
操作行名:rownames_to_column()和column_to_rownames() (2) readr包 读写纯文本文件,包括带分隔符的文本文件,如 csv和 tsv. 也能读写序列化的 R 对象 rds,若想保存数据集后续再加载回来,rds将保存元数据和该对象的状态,如分组和数据类型。 读入数据到...
df%>%column_to_rownames(var="columname") 行转换为列名 colnames(df)<- df[1,] df <- df[-1,] 列的拆分 将一列数据按照分隔符拆分为两列或多列 separate(df,columname,into=c("new_columnameA","new_columnameB","new_columnameC"),# 新列名 sep=":")# 分隔符 ...
otu%>%left_join(.,group,by="sample")%>%select(sample,group,everything())%>%group_by(group)%>%summarise(across(where(is.numeric),~sum(.x,na.rm=TRUE)))%>%column_to_rownames("group")%>%t()%>%as.data.frame()%>%rownames_to_column("otu") ...
使用rownames_to_column()函数,行名改为列,且可指定列名称。 mtcars %>%tibble::rownames_to_column("car_name") %>% head(2)car_name mpg cyl disp hp drat wt qsec vs am gear carb1 Mazda RX4 21 6 160 110 3.9 2.620 16.46 0 1 4 42 Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0...
使用rownames_to_column()函数,行名改为列,且可指定列名称。 代码语言:javascript 复制 mtcars %>% tibble::rownames_to_column("car_name") %>% head(2) car_name mpg cyl disp hp drat wt qsec vs am gear carb 1 Mazda RX4 21 6 160 110 3.9 2.620 16.46 0 1 4 4 2 Mazda RX4 Wag 21 ...