ggplot2を使用して複数のx変数の数をグラフにまとめます

Question

私はサーベイデータのcsvを使用しています。各行は個別の調査です。質問される質問の1つは、「あなたはビーチで何の活動に参加していますか？」です。リストされた12のアクティビティのそれぞれの列があります。面接者が活動に参加したと回答した場合、csvには1があり、そうでない場合には2があります。ggplot2にいくつの参加者がすべての活動に参加しているかを示すバープロットを作成し、 、場所、年齢など）を入力してください。

私は基本Rでこれをやった：

私が探していますテーブルを提供しますが、完全なゴミのように見える

swim.all.13=table(b13$actswim) 
surf.all.13=table(b13$actsurf) 
walk.all.13=table(b13$actwalk) 
relax.all.13=table(b13$actrelx) 
shell.all.13=table(b13$actshell) 
picnic.all.13=table(b13$actpic) 
sun.all.13=table(b13$actsun) 
read.all.13=table(b13$actread) 
fish.all.13=table(b13$actfish) 
work.all.13=table(b13$actwork) 
eat.all.13=table(b13$acteat) 

act.all.13.test=cbind(swim.all.13,surf.all.13,walk.all.13,relax.all.13,shell.all.13,picnic.all.13,sun.all.13,read.all.13,fish.all.13,work.all.13,eat.all.13) 
act.all.13=act.all.13.test[2,] 

barplot(act.all.13,xlab="Activity",ylab="NUmber of Responses",names.arg=" ",legend=c("Swim", "Surf", "Walk", "Relax", "Shell", "Picnic", "Sun", "Read", "Fish", "Work", "Eat"),main="What activities do you engage in while at the beach?") 

。私は調査データの残りがグラフ化されたものであるggplot2でグラフを、好むOPのコメントに基づいて

Screenshot of CSV I'm working with

Answer 1

編集：

はいかが

data %>% 
    gather(activity, ct, ActSwim:acteat) %>% 
    filter(ct == 1) %>% 
    count(activity) %>% 
    ggplot(., aes(activity, n)) + geom_barplot(stat = "identity") 

基本的に変換し、データを幅ではなく高さの揃ったデータセットに変換し、値として1だけフィルタリングし、dplyr :: count（）を使用して集計してプロットに入力します。

編集：性別によって、ファセットに：

data %>% 
    gather(activity, ct, ActSwim:acteat) %>% 
    filter(ct == 1) %>% 
    count(activity, gender) %>% 
    ggplot(., aes(activity, n)) + 
    geom_barplot(stat = "identity") + 
    facet_wrap(~gender, ncol = 2)