1

さまざまな種類の植物の分布のさまざまなマップ ファイルの名前を変更したいと考えています。

現在、彼らは次のような種の完全な名前を持っています:

Amaranthus australis.kml
Capsicum annuum.kml
Cucurbita moschata.kml
Ipomoea alba.kml
Persea donnell-smithii.kml

そして、次のように、各単語の最初の 3 文字を使用して名前を付けたいと思いました。

ama_aus.kml
cap_ann.kml
cuc_mos.kml
ipo_alb.kml
Per_don.kml

Rでこれを行う方法を知っている人はいますか?

4

2 に答える 2

6

これは役に立つかもしれません

Names <- c("Amaranthus australis.kml",
           "Capsicum annuum.kml",
           "Cucurbita moschata.kml",
           "Ipomoea alba.kml",
           "Persea donnell-smithii.kml")

sapply (lapply(strsplit(tolower(Names), " "), substr, 1, 3), 
        function(x) paste(paste(x[1], x[2], sep="_"),"kml", sep="."))
[1] "ama_aus.kml" "cap_ann.kml" "cuc_mos.kml" "ipo_alb.kml" "per_don.kml"
于 2013-05-28T13:44:27.267 に答える