计算R中表中特定行的一致性

Question

1. 你好！我是R的新手，我有一张想要找到相关性的表格，这三个掷骰子的第三行在这里有多少一致。如何为特定行计算两个以上值的相关性？ （正面为1，背面为2）我可以检查一栏与其余栏之间的一致性吗？

        library(readxl)
        > COIN_TOSS <- read_excel("C:/Users/user/Desktop/COIN TOSS.xlsx")
   
             TOSS #1 TOSS #2 TOSS #3
   
    1         2         2         2
    2         2         2         1
    3         1         1         2
    4         2         1         1
    5         2         1         1
    6         2         1         2
    7         1         1         2
    8         1         1         2
    9         1         1         1
   10         2         1         1
   

2. 另外，我想打印一个带有总和的图。我有每列的前3个值（总计10列），它是：（是最常用的值）

   am <- excel__data$AM
   oneam <- sort(table(am),decreasing=TRUE)[1:3]
   >am
   3  2  4   
   31 26 24   
   

对于该图，我使用了此图，但是y轴保持不变，最大值为30，并且并非所有值（堆叠）都可见。如何将其更改为200？除了图和点之外，我还可以使用其他东西吗？

 plot(oneam, pch=10, col='red')
 points(onecm, pch=10,col='blue') 
 points(onefm, pch=10,col='green')
 points(onekk, pch=10,col='yellow') 
 points(onekm, pch=10,col='black')
 points(onels, pch=10,col='orange')

Answer 1

“协议”和“关联”是完全不同的东西。

如果您只想看一下“协议”，则可以计算行均值和标准差。低标准偏差表示所有投掷都相当接近，如果您愿意，甚至可以通过除以SD / MEAN来标准化以得到方差系数％度量。

您甚至可以更具体，并计算从一个特定的抛掷到另外两个特定抛掷的“距离度量”：

library(dplyr)
COIN_TOSS %>%
 mutate(Toss3_Delta = ((TOSS1+TOSS2)/2-TOSS3)/((TOSS1+TOSS2)/2))

现在，如果我们在您的示例中谈论相关性，那么这仅适用于列，因为三种情况不足以计算相关性。

此作品：

library(magrittr)

COIN_TOSS %$%
  cor()