次の値のセットで、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
私は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
>
matrix
またはdata.frame
の値の行と列を知りたい場合は、which
にarr.ind=TRUE
引数を使用することを検討してください。
> which(mydata_2 == 1578, arr.ind=TRUE)
row col
7 7 3
1578は3列目(既に知っている)と7行目にあります。
1:nrow(mydata_2)
の代わりに、単にwhich()
関数を使用できます:which(mydata_2[,4] == 1578)
上記で指摘したように、3番目の列には4番目ではなく1578が含まれています:which(mydata_2[,3] == 1578)
(1:nrow(mydata_2))[mydata_2[,4] == 1578]
もちろん、値が1578の行が複数ある場合があります。
R 3.3.0の時点では、startsWith()
の高速な代替としてgrepl()
を使用できます。
which(startsWith(mydata_2$height_seca1, 1578))