web-dev-qa-db-ja.com

Rコードで値の行番号を見つける方法

次の値のセットで、4列目の特定の値の行番号を見つけるにはどうすればよいですか?

たとえば、Rコードコマンドを使用して、列番号4にある値「1578」の行番号を見つけるにはどうすればよいですか。

> mydata_2
   sex age height_seca1 height_chad1 height_DL weight_alog1
1    F  19         1800         1797       180         70.0
2    F  19         1682         1670       167         69.0
3    F  21         1765         1765       178         80.0
4    F  21         1829         1833       181         74.0
5    F  21         1706         1705       170        103.0
6    F  18         1607         1606       160         76.0
7    F  19         1578         1576       156         50.0
8    F  19         1577         1575       156         61.0
9    F  21         1666         1665       166         52.0
10   F  17         1710         1716       172         65.0
11   F  28         1616         1619       161         65.5
12   F  22         1648         1644       165         57.5
13   F  19         1569         1570       155         55.0
14   F  19         1779         1777       177         55.0
15   M  18         1773         1772       179         70.0
16   M  18         1816         1809       181         81.0
17   M  19         1766         1765       178         77.0
18   M  19         1745         1741       174         76.0
19   M  18         1716         1714       170         71.0
20   M  21         1785         1783       179         64.0
21   M  19         1850         1854       185         71.0
22   M  31         1875         1880       188         95.0
23   M  26         1877         1877       186        105.5
24   M  19         1836         1837       185        100.0
25   M  18         1825         1823       182         85.0
26   M  19         1755         1754       174         79.0
27   M  26         1658         1658       165         69.0
28   M  20         1816         1818       183         84.0
29   M  18         1755         1755       175         67.0
23
user3136251

私はgreplを使用したいと思うでしょう。これはすべての行に一致を与え、任意の文字列に一般化できます。

mydata_2 <- read.table(textConnection("
sex age height_seca1 height_chad1 height_DL weight_alog1
1 F 19 1800 1797 180 70.0
2 F 19 1682 1670 167 69.0
3 F 21 1765 1765 178 80.0
4 F 21 1829 1833 181 74.0
5 F 21 1706 1705 170 103.0
6 F 18 1607 1606 160 76.0
7 F 19 1578 1576 156 50.0
8 F 19 1577 1575 156 61.0
9 F 21 1666 1665 166 52.0
10 F 17 1710 1716 172 65.0
11 F 28 1616 1619 161 65.5
12 F 22 1648 1644 165 57.5
13 F 19 1569 1570 155 55.0
14 F 19 1779 1777 177 55.0
15 M 18 1773 1772 179 70.0
16 M 18 1816 1809 181 81.0
17 M 19 1766 1765 178 77.0
18 M 19 1745 1741 174 76.0
19 M 18 1716 1714 170 71.0
20 M 21 1785 1783 179 64.0
21 M 19 1850 1854 185 71.0
22 M 31 1875 1880 188 95.0
23 M 26 1877 1877 186 105.5
24 M 19 1836 1837 185 100.0
25 M 18 1825 1823 182 85.0
26 M 19 1755 1754 174 79.0
27 M 26 1658 1658 165 69.0
28 M 20 1816 1818 183 84.0
29 M 18 1755 1755 175 67.0"),
                       sep = " ", header = TRUE)

which(grepl(1578, mydata_2$height_seca1))

出力は次のとおりです。

> which(grepl(1578, mydata_2$height_seca1))
[1] 7
> 

[編集]ただし、コメントで指摘されているように、これは文字列1578よりもはるかに多くキャプチャします(たとえば、21578などにも一致します)。したがって、検索する値の長さがここに表示されている4文字または数字よりも大きくなりません。

そして、他の答えによるサブセット化もうまくいきます:

mydata_2[mydata_2$height_seca1 == 1578, ]
  sex age height_seca1 height_chad1 height_DL weight_alog1
7   F  19         1578         1576       156           50
> 

いくつかの異なる値を探している場合は、それらをベクトルに入れてから%in%演算子:

look.for <- c(1578, 1658, 1616)
> mydata_2[mydata_2$height_seca1 %in% look.for, ]
   sex age height_seca1 height_chad1 height_DL weight_alog1
7    F  19         1578         1576       156         50.0
11   F  28         1616         1619       161         65.5
27   M  26         1658         1658       165         69.0
> 
24
SlowLearner

matrixまたはdata.frameの値の行と列を知りたい場合は、whicharr.ind=TRUE引数を使用することを検討してください。

> which(mydata_2 == 1578, arr.ind=TRUE)
  row col
7   7   3

1578は3列目(既に知っている)と7行目にあります。

32
Scott Ritchie

1:nrow(mydata_2)の代わりに、単にwhich()関数を使用できます:which(mydata_2[,4] == 1578)

上記で指摘したように、3番目の列には4番目ではなく1578が含まれています:which(mydata_2[,3] == 1578)

7
atajti
(1:nrow(mydata_2))[mydata_2[,4] == 1578]

もちろん、値が1578の行が複数ある場合があります。

1
James King

R 3.3.0の時点では、startsWith()の高速な代替としてgrepl()を使用できます。

which(startsWith(mydata_2$height_seca1, 1578))
0
ombtom