デリミタ付き文字列をデータフレーム内の数値ベクトルに変換してください

Question

これは基本的な質問ですが、私は尋ねるのが恥ずかしいです。

のは、私は次のような形式のデータを含む列の完全なデータフレームを持っているとしましょう：

test <-"3000,9843,9291,2161,3458,2347,22925,55836,2890,2824,2848,2805,2808,2775,2760,2706,2727,2688,2727,2658,2654,2588" 

私はそうのように行っている数値ベクトル、これを変換したい：

test <- as.numeric(unlist(strsplit(test, split=","))) 

このデータでいっぱいの大きなデータフレームを数値ベクトルに変換したいと考えています：

mutate(data, 
    converted = as.numeric(unlist(strsplit(badColumn, split=","))), 
) 

これはおそらく、それが数値ベクトルに列全体を変換し、その値を持つ単一の行を置き換えているため動作しません：

Error in mutate_impl(.data, dots) : Column converted must be length 20 (the number of rows) or one, not 1274

は、私はこれをどのように行うのですか？

Answer 1

はあなたのエラーを再現するいくつかのサンプルデータです：

data <- data.frame(a = 1:3, 
        badColumn = c("10,20,30,40,50", "1,2,3,4,5,6", "9,8,7,6,5,4,3"), 
        stringsAsFactors = FALSE) 

はここでエラーです：

library(tidyverse) 
mutate(data, converted = as.numeric(unlist(strsplit(badColumn, split=",")))) 
# Error in mutate_impl(.data, dots) : 
# Column `converted` must be length 3 (the number of rows) or one, not 18 

簡単な方法は、単に全体の列、およびlapplyにstrsplitを使用することです... as.numericを使用して、結果のリスト値を文字ベクトルから数値ベクトルに変換します。

x <- mutate(data, converted = lapply(strsplit(badColumn, ",", TRUE), as.numeric)) 
str(x) 
# 'data.frame': 3 obs. of 3 variables: 
# $ a  : int 1 2 3 
# $ badColumn: chr "10,20,30,40,50" "1,2,3,4,5,6" "9,8,7,6,5,4,3" 
# $ converted:List of 3 
# ..$ : num 10 20 30 40 50 
# ..$ : num 1 2 3 4 5 6 
# ..$ : num 9 8 7 6 5 4 3 

Answer 2

ベースR

A=c(as.numeric(strsplit(test,',')[[1]])) 

A 
[1] 3000 9843 9291 2161 3458 2347 22925 55836 2890 2824 2848 2805 2808 2775 2760 2706 2727 2688 2727 2658 2654 2588 


df$NEw2=lapply(df$NEw, function(x) c(as.numeric(strsplit(x,',')[[1]]))) 

df%>%mutate(NEw2=list(c(as.numeric(strsplit(NEw,',')[[1]])))) 

Answer 3

これは役立つかもしれない：

library(purrr) 

mutate(data, converted = map(badColumn, function(txt) as.numeric(unlist(strsplit(txt, split = ","))))) 

をあなたは何を得る数値ベクトルを含むリスト列です。ここで