2017-02-13 24 views
1

と名前でリスト要素を交換してください。は、私は、文字列の次のリストを持っている別のリスト

check.digits <- function(x){ grepl('^(\\d+)$' , x) } 

l.1に適用された場合、それは数字と文字列のみを返します:

l.2 = lapply(l.1[check.digits(l.1)], as.numeric) 

> l.2 
$b 
[1] 111 

$d 
[1] 222 

l.2業者によってl.1の要素を交換するためにどのように私は別の質問hereからインポート機能を使用していますことを行うために、 ?

望ましい結果は次のようになります。

> l.1 
$a 
[1] "aaa" 

$b 
[1] 111 

$c 
[1] "a1a" 

$d 
[1] 222 
+3

'L.1 [名前(L.2)] <使用することができます - l.2' –

+0

それが動作します。ありがとう! – mattek

+1

論理的なインデックス付け、つまり 'all_digit < - check.digits(l.1); l.1 [all_digit] < - lapply(l.1 [all_digit]、as.numeric) ' – Benjamin

答えて

2

我々は

l.1[names(l.2)] <- l.2 
関連する問題