테이블에있는 특정 요소의 좌표를 얻는 방법

Question

안녕하세요 여러분, 조합이 가장 빈번한 요소 쌍 목록을 만들려면 어떻게해야합니까? 두 벡터가 교차 표를 만들어서 가장 빈번한 두 벡터의 쌍을 찾고 싶다고 상상해보십시오. 목록 (예 : 2,3)으로 사용하면 첫 번째 벡터의 요소 2와 두 번째 벡터의 요소 3이 가장 빈번하게 결합됨을 의미합니다. 예를 들어 :

이

mp<- c(1,1,1,1,2,2,3,4) 
mp1<- c("red", "red", "red", "red", "blue", "blue", "green", "pink") 

table(mp,mp1) 
    mp1 
mp blue green pink red 
    1 0  0 0 4 
    2 2  0 0 0 
    3 0  1 0 0 
    4 0  0 1 0 

내가 가장 자주 쌍 것을 볼 수있다 (1, "빨간색")하지만 어떻게 얻을 수있는 결과로?

Answer 1

당신은 숫자 벡터에 문자열을 추가하는 문자 벡터의 모든 요소를 ​​변환하는 것이

v1 <- c(2,3,2,3) 
v2 <- c("blue", "red", "blue", "green") 
tbl <- table(v1, v2) 
tbl # most frequent combination: 2 & blue 
max(tbl) # most frequent combination = 2 
indices = which(tbl == max(tbl), arr.ind = TRUE) # indices for row and column of 
indices           # the max value 
v1.val = rownames(tbl)[indices[, 1]] 
v2.val = colnames(tbl)[indices[, 2]] 
res = c(v1.val, v2.val) 
res # result 

는 또한

v1 <- c(1,1,1,1,2,2,3,4) 
v2 <- c("red", "red", "red", "red", "blue", "blue", "green", "pink") 

주와 함께 작동합니다 이런 방식으로 기능을 디자인 할 수 있습니다 . 결과는 문자 벡터가됩니다.

Answer 2

첫째, 귀하의 벡터에서 dataframe합니다

mp<- c(1,1,1,1,2,2,3,4) 
mp1<- c("red", "red", "red", "red", "blue", "blue", "green", "pink") 
df <- data.frame(mp, mp1) 

이 그럼 당신은 many options to count combinations 있습니다. 나는 개인적으로 이렇게, dplyr 선호 :

count_table <- dplyr::count_(df, vars = c('mp','mp1')) 
count_table 
# A tibble: 4 x 3 
    mp mp1  n 
    <dbl> <fctr> <int> 
1  1 red  4 
2  2 blue  2 
3  3 green  1 
4  4 pink  1 

당신은 출력 첫 번째 행 할 수 있습니다에 StackOverflow에

count_table[1,] 
# A tibble: 1 x 3 
    mp mp1  n 
    <dbl> <fctr> <int> 
1  1 red  4