Корреляция только между конкретными переменными в R

У меня есть некоторые данные, которые выглядят следующим образом:

введите здесь описание изображения

    data <- structure(list(Gene1 = c(8.030835566, 7.523710852, 8.132012083, 
6.351834008, 6.325281674, 6.810264692), Gene2 = c(8.755819384, 
8.101372382, 8.691221404, 7.963358311, 7.003639076, 8.860927111
), Gene3 = c(6.504333248, 8.832470479, 10.7661583, 12.48262164, 
6.003163216, 6.810264692), Gene4 = c(7.773754938, 6.545394663, 
7.499168201, 5.587808389, 5.587808389, 5.587808389), Gene5 = c(9.782169709, 
9.208945473, 10.07340718, 8.452540072, 6.810926028, 8.757832761
), Gene6 = c(6.808970669, 6.545394663, 7.206623134, 6.848704398, 
5.587808389, 8.090400794), Gene7 = c(10.32869976, 10.09035118, 
9.541872802, 10.57521096, 7.910751686, 10.02532033), Gene8 = c(7.274379599, 
6.545394663, 7.499168201, 7.963358311, 6.003163216, 7.909825918
), Gene9 = c(8.605820177, 8.101372382, 8.293403668, 10.21655691, 
6.003163216, 6.324818701), Gene10 = c(12.30601467, 12.27069432, 
12.47496174, 12.23379266, 10.04845125, 12.4664811), X.1 = c(NA, 
NA, NA, NA, NA, NA)), class = "data.frame", row.names = c("S1", 
"S2", "S3", "S4", "S5", "S6"))

Приведенные выше данные являются лишь примером. Исходные данные содержат более 1000 строк. На самом деле я хочу делать корреляцию только с определенными переменными, как показано ниже.

Gene1 * Gene7
Gene2 * Gene8
Gene3 * Gene10
Gene5 * Gene6
Gene4 * Gene9

Меня интересуют только приведенные выше корреляции. Я не хочу корреляции между Gene1 и всеми остальными генами. Я могу провести корреляцию по всем переменным и отфильтровать интересующие, но у меня их больше 1000, поэтому фильтровать мне сложно.

Итак, есть ли способ взять только конкретные заинтересованные GeneX * GeneY и провести корреляцию?

Я использую библиотеку Hmisc и функцию rcorr для корреляции.

Любая помощь приветствуется. спасибо


r correlation hmisc r-corrplot
person beginner    schedule 15.02.2021    source источник
comment
Как сохраняются конкретные комбинации в вашем случае? Покажите нам реальный объект (структуру).   -  person user2974951    schedule 15.02.2021
comment
Я уже показывал данные в вопросе. Я хотел сопоставить только эти конкретные комбинации.   -  person beginner    schedule 15.02.2021
comment
Не данные с генами, вторая таблица с сочетаниями.   -  person user2974951    schedule 15.02.2021

Ответы (1)


arrow_upward
1
arrow_downward

Попробуйте этот пример:

# make combinations
x <- read.table(text = "g1 g2
Gene1 Gene7
Gene2 Gene8
Gene3 Gene10
Gene5 Gene6
Gene4 Gene9", header = TRUE) 

# then get correlation
cbind(x, Corr = apply(x, 1, function(i) cor(data[,  i[ 1 ]], data[,  i[ 2 ]])))
#      g1     g2      Corr
# 1 Gene1  Gene7 0.3064922
# 2 Gene2  Gene8 0.7185533
# 3 Gene3 Gene10 0.4521448
# 4 Gene5  Gene6 0.5747986
# 5 Gene4  Gene9 0.3009623

Чтобы получить p-значения, запустите cor.test:

cbind(x, t(apply(x, 1, function(i){
  res <- cor.test(data[,  i[ 1 ]], data[,  i[ 2 ]])
  c(cor = res$estimate[[ "cor" ]], p = res$p.value)
  })))
#      g1     g2       cor         p
# 1 Gene1  Gene7 0.3064922 0.5546572
# 2 Gene2  Gene8 0.7185533 0.1076713
# 3 Gene3 Gene10 0.4521448 0.3680000
# 4 Gene5  Gene6 0.5747986 0.2327570
# 5 Gene4  Gene9 0.3009623 0.5621868
person zx8754    schedule 15.02.2021