r - Rの特定のセルの行名と列名を取得します

Question

したがって、次のようなデータフレームがある場合：

             A     B      C  
  rowname1   4.5   4      3.2
  rowname2   3     23     9

Rに特定の番号を含む行/列の名前を教えてもらうにはどうすればよいですか？

つまり、値3を与えると、

 rowname2,A

Answer 1

重複がないと仮定すると、引数whichと組み合わせて使用​​できます。arr.ind

df <- data.frame(matrix(sample(1:100,12), ncol=3))
#    X1 X2 X3
# 1  84 58 36
# 2   9 40 92
# 3 100 28 78
# 4  15 98 29

index <- which(df==36, arr.ind=TRUE)
#      row col
# [1,]   1   3

場所の実際の行名と列名が必要な場合は、それらに適切にインデックスを付けます。

paste(rownames(df)[index[1]], colnames(df)[index[2]], sep=", ")
# [1] "1, X3"

Answer 2

簡単な関数を書くことはあなたを助けるかもしれません：

Which.names <- function(DF, value){
   ind <- which(DF==value, arr.ind=TRUE)
   paste(rownames(DF)[ind[1:nrow(ind)]],  colnames(DF)[ind[2]], sep=', ')
}

  DF <- read.table(text="A     B      C  
  rowname1   4.5   4      3.2
  rowname2   3     23     9", header=TRUE)

  Which.names(DF, value=3)
[1] "rowname2, A"

  Which.names(DF, value=4.5)
[1] "rowname1, A"

  Which.names(DF, value=9.0)
[1] "rowname2, C"

また、重複した値を操作することもできます。

 DF[1,1] <-3.0 
 Which.names(DF, value=3)
[1] "rowname1, B" "rowname2, B" 

 DF[1,2] <- 3
 Which.names(DF, value=3)
[1] "rowname1, B" "rowname2, B" "rowname1, B"

Answer 3

Jilberの回答のコードにはいくつかの問題があり、少し変更する必要があります。次のようになります（Rバージョン3.1.2）。

両方の機能（これら2つの関数「W」と「w」の頭文字の違いに注意してください）

1位

Which.names <- function(DF, value){
   ind <- which(DF==value, arr.ind=TRUE)
   for (i in 1:nrow(ind)) print(paste(rownames(DF)[ind[i,"row"]],  colnames(DF)[ind[i,"col"]], sep=', '))
}

2番目（より良いもの）

which.names <- function(DF, value){
   ind <- which(DF==value, arr.ind=TRUE)
   print(paste(rownames(DF)[ind[,"row"]],  colnames(DF)[ind[,"col"]], sep=', '))
}

以下の結果

> DF <- read.table(text="A     B      C  
+   rowname1   4.5   4      3.2
+   rowname2   3     23     9", header=TRUE)
> DF
           A  B   C
rowname1 4.5  4 3.2
rowname2 3.0 23 9.0
> Which.names(DF,3)
[1] "rowname2, A"
> which.names(DF,3)
[1] "rowname2, A"
> Which.names(DF,4)
[1] "rowname1, B"
> which.names(DF,4)
[1] "rowname1, B"
> Which.names(DF,9)
[1] "rowname2, C"
> which.names(DF,9)
[1] "rowname2, C"
> DF[1,1] <-3.0
> DF
         A  B   C
rowname1 3  4 3.2
rowname2 3 23 9.0
> Which.names(DF,3)
[1] "rowname1, A"
[1] "rowname2, A"
> which.names(DF,3)
[1] "rowname1, A" "rowname2, A"
> DF[1,2] <- 3
> DF
         A  B   C
rowname1 3  3 3.2
rowname2 3 23 9.0
> Which.names(DF,3)
[1] "rowname1, A"
[1] "rowname2, A"
[1] "rowname1, B"
> which.names(DF,3)
[1] "rowname1, A" "rowname2, A" "rowname1, B"