vec <- vector()
for (x in unlist(strsplit("abracadabra", NULL))) {
if (! x %in% vec) {
vec <- append(vec, x)
}
}
print (vec)
[1] "a" "b" "r" "c" "d"
重複を除いた要素を得ることか?
unique(unlist(strsplit("abracadabra", NULL))) が一番簡単。
> unique(unlist(strsplit("abracadabra", NULL)))
[1] "a" "b" "r" "c" "d"
これだと,出現単語表を作ったりすることもできる。
> z <- c("one", "one", "can", "can", "too", "bad")
> unique(z)
[1] "one" "can" "too" "bad"
for (x in unlist(strsplit("abracadabra", NULL))) {
if (! x %in% vec) {
vec <- append(vec, x)
}
}
print (vec)
[1] "a" "b" "r" "c" "d"
重複を除いた要素を得ることか?
unique(unlist(strsplit("abracadabra", NULL))) が一番簡単。
> unique(unlist(strsplit("abracadabra", NULL)))
[1] "a" "b" "r" "c" "d"
これだと,出現単語表を作ったりすることもできる。
> z <- c("one", "one", "can", "can", "too", "bad")
> unique(z)
[1] "one" "can" "too" "bad"
※コメント投稿者のブログIDはブログ作成者のみに通知されます