執行所選列算術,我有以下的數據幀:你如何使用dplyr
df <- structure(list(gene_id = c("ATP1B1", "CYCS", "DDX5", "GNB2L1",
"PRR11"), BoneMarrow = c(0, 0, 0, 31138, 2703), Pulmonary = c(3380,
21223.3333333333, 0, 0, 0), Umbilical = c(233, 0, 15397, 0, 0
)), .Names = c("gene_id", "BoneMarrow", "Pulmonary", "Umbilical"
), class = c("grouped_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA,
-5L), vars = "gene_id", labels = structure(list(gene_id = c("ATP1B1",
"CYCS", "DDX5", "GNB2L1", "PRR11")), class = "data.frame", row.names = c(NA,
-5L), vars = "gene_id", drop = TRUE, .Names = "gene_id"), indices = list(
0L, 1L, 2L, 3L, 4L), drop = TRUE, group_sizes = c(1L, 1L,
1L, 1L, 1L), biggest_group_size = 1L)
df
,看起來像這樣:
# A tibble: 5 x 4
# Groups: gene_id [5]
gene_id BoneMarrow Pulmonary Umbilical
<chr> <dbl> <dbl> <dbl>
1 ATP1B1 0 3380.00 233
2 CYCS 0 21223.33 0
3 DDX5 0 0.00 15397
4 GNB2L1 31138 0.00 0
5 PRR11 2703 0.00 0
我可以做以下含底座辦法:
ndf <- as.data.frame(df)
rownames(ndf) <- df$gene_id
ndf$gene_id <- NULL
ndf <- ndf + 1
ndf
得到這個:
BoneMarrow Pulmonary Umbilical
ATP1B1 1 3381.00 234
CYCS 1 21224.33 1
DDX5 1 1.00 15398
GNB2L1 31139 1.00 1
PRR11 2704 1.00 1
我該怎麼做dplyr鏈?
不要ü想'rownames'呢? – akrun
@akrun是的我想要它。 – neversaint
你不能在tibble – akrun