我想這樣做： 輸入：
對于輸出，我希望將 GTEX id 作為行，將 ENSG 作為列。像這樣：
SAMPLEID ENSGO ENSGO ENSGO
GTEX-1117F-022~ 0 187 0
GTEX-1117F-042~ 0 109 0
我嘗試執行此命令，但它沒有給我正確的輸出：
GTEx_Analysis <- as.data.frame(t(GTEx_Analysis_2017_06_05_v8_RNASeQCv1_1_9_gene_reads))
uj5u.com熱心網友回復：
帶底座 R
df_new <- data.frame(t(df[,-c(1:2)]))
colnames(df_new) <- df$Name
或與tidyverse：
library(tidyverse)
df_new <- df %>%
select(-Description) %>%
rowid_to_column() %>%
pivot_longer(-c(Name, rowid)) %>%
pivot_wider(names_from = c("Name", "rowid"), values_from = "value")
colnames(df_new) <- str_replace_all(colnames(df_new), "\\_[0-9]","")
輸出
ENSG0~ ENSG0~ ENSG0~
GTEX-1117F-022~ 0 187 0
GTEX-1117F-042~ 0 109 0
如果您需要保留 ，另一個選擇Description是將Nameand組合Description在列標題中。
library(tidyverse)
df %>%
pivot_longer(-c(Name, Description)) %>%
pivot_wider(names_from = c("Name", "Description"), values_from = "value")
name `ENSG0~_DDX11L1` `ENSG0~_WASH7p` `ENSG0~_MIR6859-1`
<chr> <dbl> <dbl> <dbl>
1 GTEX-1117F-022~ 0 187 0
2 GTEX-1117F-042~ 0 109 0
資料
df <- structure(list(Name = c("ENSG0~", "ENSG0~", "ENSG0~"), Description = c("DDX11L1",
"WASH7p", "MIR6859-1"), `GTEX-1117F-022~` = c(0, 187, 0), `GTEX-1117F-042~` = c(0,
109, 0)), class = "data.frame", row.names = c(NA, -3L))
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/430972.html
上一篇：如何將價格最高的陣列顯示到最低
下一篇：排除ntile()中的例外值