如何根据元素的位置关联向量？

Question

我有两个（最终更多）字符向量，它们由几个（有序的）名称组成。这类向量的两个例子是：

 [1] "original" "gai"      "dea"      "iap"      "hso"      "los"      "ret"      "dap"      "wor"      "agi"     
[11] "fat"      "con"      "dep"      "iso"      "int" 

和

 [1] "int"      "iso"      "dep"      "con"      "fat"      "agi"      "wor"      "dap"      "ret"      "los"     
[11] "hso"      "iap"      "dea"      "gai"      "original"

（可通过以下方式获得）：

c("original", "gai", "dea", "iap", "hso", "los", "ret", "dap", 
"wor", "agi", "fat", "con", "dep", "iso", "int")

和

c("int", "iso", "dep", "con", "fat", "agi", "wor", "dap", "ret", 
"los", "hso", "iap", "dea", "gai", "original")

现在我想根据元素的位置计算这两个字符向量之间的相关性。例如，在第一个向量中，元素“原始”的位置为1，但在第二个向量中，它的位置为14。

我该怎么办？

提前谢谢！

Answer 1

我想你可以简单地用match。

v1 <- c("original", "gai", "dea", "iap", "hso", "los", "ret", "dap", 
        "wor", "agi", "fat", "con", "dep", "iso", "int")
v2 <- c("int", "iso", "dep", "con", "fat", "agi", "wor", "dap", "ret", 
        "los", "hso", "iap", "dea", "gai", "original")

data.frame(v1 = v1, pos1 = 1:length(v1), pos2 =  match(v1, v2)) %>% 
  summarise(corr = cor(pos1, pos2))

虽然不确定这种相关性意味着什么...

Answer 2

我不确定这是否是你的意思：

> r <- data.frame(pos = seq_along(x1), posinX2 = match(x1,x2))
> r
   pos posinX2
1    1      15
2    2      14
3    3      13
4    4      12
5    5      11
6    6      10
7    7       9
8    8       8
9    9       7
10  10       6
11  11       5
12  12       4
13  13       3
14  14       2
15  15       1

数据

x1 <- c("original", "gai", "dea", "iap", "hso", "los", "ret", "dap", 
        "wor", "agi", "fat", "con", "dep", "iso", "int")
x2 <- c("int", "iso", "dep", "con", "fat", "agi", "wor", "dap", "ret", 
        "los", "hso", "iap", "dea", "gai", "original")

Answer 3

a <- c("original", "gai", "dea", "iap", "hso", "los", "ret", "dap", 
       "wor", "agi", "fat", "con", "dep", "iso", "int")

# numeric representation
a_num <- seq(a)

b <- c("int", "iso", "dep", "con", "fat", "agi", "wor", "dap", "ret", 
       "los", "hso", "iap", "dea", "gai", "original")

# numeric representation 
b_num <- match(a,b)

# -------------------------------------------------------------------------
# eye ball the relationship
plot(a_num, b_num, type = "l", col="red", xlab = "a", ylab = "b")

# -------------------------------------------------------------------------

您可以看到负相关，并且可以进一步计算Kendall的秩相关tau以拒绝/接受null，如下所示：

# use method kendall
cor.test(a_num,b_num, method="kendall") 
# Kendall's rank correlation tau
# 
# data:  a_num and b_num
# T = 0, p-value = 1.529e-12
# alternative hypothesis: true tau is not equal to 0
# sample estimates:
# tau 
#  -1 

参见？cor.test了解更多信息。这只是为了让你开始，如果你的数据有关联，kendall也会处理，但你需要知道/阅读如何做到这一点。