0

Age、Info、Target、および Info を含むデータフレーム (df2) が、以下のようにワンホット エンコードされた列に変換されています。

library(qdapTools)
require(reshape)

mydf <- structure(list(Age = c(99L, 10L, 40L, 15L),
                       Info = c("good, bad, sad", "nice, good, happy, joy", "NULL", "okay, nice, good, wild, go"),
                       Target = c("Boy", "Girl", "Boy", "Boy")), 
                  .Names = c("Age", "Info", "Target"),
                  row.names = c(NA, 4L),
                  class = "data.frame")

df_with_ohe <- cbind(mydf, mtabulate(strsplit(mydf$Info, ", ")))

mydf
df_with_ohe

added_cols = names(df_with_ohe)[length(names(mydf))+1:length(names(df_with_ohe))]

 [1] "bad"   "go"    "good"  "happy" "joy"   "nice"  "NULL"  "okay"  "sad"   "wild"

そしてこれがdf2

  Age                       Info Target bad go good happy joy nice NULL okay sad wild
1  99             good, bad, sad    Boy   1  0    1     0   0    0    0    0   1    0
2  10     nice, good, happy, joy   Girl   0  0    1     1   1    1    0    0   0    0
3  40                       NULL    Boy   0  0    0     0   0    0    1    0   0    0
4  15 okay, nice, good, wild, go    Boy   0  1    1     0   0    1    0    1   0    1

さまざまな情報タイプの年齢の分布、つまり「良い」、「悪い」などのプロットをプロットしたいと考えています。例えば：

# considering on "good" column

df = subset(df_with_ohe, df_with_ohe[,"good"] == 1)

ggplot(df, aes(Target, Age)) + geom_boxplot()

年齢対年齢の分布

added_colsOne-Hot-Encoded 機能を使用して、単一のプロットですべての列のこのようなプロットをファセットするにはどうすればよい ですか? おそらくファセットを使用していますか？

4

1 に答える 1

1

このようなものはどうですか？

df <- do.call(rbind, apply(mydf, 1, function(x) cbind.data.frame(Age=x[1], 
                                  Type=unlist(strsplit(x[2], split=', ')), 
                                  Target=x[3])))
df$Age <- as.integer(as.character(df$Age))
ggplot(df, aes(Target, Age)) + 
   geom_boxplot() + 
   facet_wrap(~Type, scales = 'free')

ここに画像の説明を入力

于 2016-10-01T13:10:45.810 に答える