我有一个看起来像这样的数据:
> read.table("http://dpaste.com/1491018/plain/",header=TRUE)
Probes Gene.symbol Stim1 Stim2 Stim3 Stim4
1 1415670_at Copg 1.133 1.049 1.013 1.124
2 1415671_at Atp6v0d1 1.068 1.006 1.082 1.234
3 1415672_at Golga7 1.010 0.883 1.061 1.029
4 1415673_at Psph 0.943 0.799 0.982 1.064
5 1415674_a_at Trappc4 1.048 0.960 1.191 1.118
6 1415675_at Dpm2 1.053 1.104 1.053 1.057
Run Code Online (Sandbox Code Playgroud)
我想要做的是创建一个新的数据框,结合前两列并将其转换为行名,
Stim1 Stim2 Stim3 Stim4
1415670_at-Copg 1.133 1.049 1.013 1.124
1415671_at-Atp6v0d1 1.068 1.006 1.082 1.234
1415672_at-Golga7 1.010 0.883 1.061 1.029
1415673_at-Psph 0.943 0.799 0.982 1.064
1415674_a_at-Trappc4 1.048 0.960 1.191 1.118
1415675_at-Dpm2 1.053 1.104 1.053 1.057
Run Code Online (Sandbox Code Playgroud)
如何才能做到这一点?
试试这个:
dat <- read.table("http://dpaste.com/1491018/plain/",header=TRUE)
rownames(dat) <- do.call(paste,c(dat[c("Probes","Gene.symbol")],sep="-"))
dat <- dat[,!names(dat) %in% c("Probes","Gene.symbol")]
dat
Run Code Online (Sandbox Code Playgroud)
结果:
> dat
Stim1 Stim2 Stim3 Stim4
1415670_at-Copg 1.133 1.049 1.013 1.124
1415671_at-Atp6v0d1 1.068 1.006 1.082 1.234
1415672_at-Golga7 1.010 0.883 1.061 1.029
1415673_at-Psph 0.943 0.799 0.982 1.064
1415674_a_at-Trappc4 1.048 0.960 1.191 1.118
1415675_at-Dpm2 1.053 1.104 1.053 1.057
Run Code Online (Sandbox Code Playgroud)