2017-01-26 12 views
1

への書き込み:R - エラー私は、データセット、次のしているCSV

Artist Song.Rank   Song.Title  Word WordCount SentimentScore.text SentimentScore.sentiment 
1 Placeholder  60 More Placeholders alright  40    alright     Neutral 
2 Placeholder  60 More Placeholders  bad  79     bad     Negative 
3 Placeholder  60 More Placeholders  bad  192     bad     Negative 
4 Placeholder  60 More Placeholders better  125    better     Positive 
5 Placeholder  60 More Placeholders  brand  24    brand     Neutral 
6 Placeholder  60 More Placeholders  break  106    break     Negative 
7 Placeholder  60 More Placeholders  cause  18    cause     Neutral 
8 Placeholder  60 More Placeholders  come  59    come     Neutral 

このデータセットは、XLSXファイルからのデータの存在します。最後の列SentimentだけがRSentimentパッケージを使用して自分自身を追加したものです。 csvファイルに挿入しようと、私は次のメッセージを取得すると

:研究のビットの後

> write.csv(dataset,"calculated.csv") 
Error in if (inherits(X[[j]], "data.frame") && ncol(xj) > 1L) X[[j]] <- as.matrix(X[[j]]) : 
missing value where TRUE/FALSE needed 

を、私は私のデータセットは、ネストされたデータフレームが含まれているため、この問題が発生したことが分かったが、提案ソリューションLike Thisは役に立ちませんでした。 (このケースでは、私はinvalid subscript type 'closure'エラーが発生しました。)

EDITを:私はここで想定していますが、ネストされたdata.framesをしたくない

> str(dataset) 
'data.frame': 28 obs. of 6 variables: 
$ Artist  : chr "Placeholder" "Placeholder" "Placeholder" "Placeholder" ... 
$ Song.Rank  : num 60 60 60 60 60 60 60 60 60 60 ... 
$ Song.Title : chr "More Placeholder" "More Placeholder" "More Placeholder" "More Placeholder" ... 
$ Word   : chr "alright" "bad" "bad" "better" ... 
$ WordCount  : num 40 79 192 125 24 106 18 59 138 146 ... 
$ SentimentScore:'data.frame': 28 obs. of 2 variables: 
    ..$ text  : Factor w/ 23 levels "alright","bad",..: 1 2 2 3 4 5 6 7 8 9 ... 
    ..$ sentiment: Factor w/ 3 levels "Negative","Neutral",..: 2 1 1 3 2 1 2 2 2 2 ... 
+0

ネストされたdata.frameをcsvに保存することはできません。複数のcsvが必要です。または、内部データを広げる必要があります。いずれにしても、CSVはネストネスを維持したい場合、ここに行く方法ではないようです。 –

答えて

2

:私はこれを頼まれた記事をたくさん見ました。次に、このようなことをしてください:

new_dataset <- data.frame(subset(dataset, select = -c(SentimentScore)), 
          dataset$SentimentScore) 
write.csv(new_dataset, 
      file = "dataset.csv", 
      quote = FALSE) 
関連する問題