次のベクトルがあります。
x = c(31, 56, 78, 98, 76, 88, 90)
同じ数字で終わるすべての値を選択したいと考えています。たとえば、78、88、98 です。
これを使用できます:
v <- c(31,56,78,98,76,88,90)
v[v %% 10 == 8]
# [1] 78 98 88
v %% 10
を 10で割った mod が得られることに注意してくださいv
。
ここに別の長い解決策があります。
mmm <- c(31,56,78,98,76,88,90)
mmm[sapply(sapply(as.character(mmm), strsplit, split = ""), "[[", 2) == 8]
[1] 78 98 88