Вычислить соглашение для указанной строки c в таблице в R

Question

1. Привет! Я новичок в R, и у меня есть эта таблица, в которой я хочу найти корреляцию, насколько здесь согласие в 3-й строке между всеми тремя бросками. Как рассчитать это для более чем двух значений для указанной строки c? (heads 1, tails 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, и не все значения (в стопке) видны. Как я могу изменить его на go до 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, чтобы получить Коэффициент отклонения в% метри c.

Вы можете даже быть больше указать c и вычислить «меру расстояния» от одного указанного c броска до двух других, например:

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

Теперь, если мы говорим о корреляции в вашем примере, это работает только по столбцам, потому что три случаев недостаточно для вычисления корреляции.

Это работает:

library(magrittr)

COIN_TOSS %$%
  cor()