ggplotで密度関数をプロットする際のエラーメッセージ

Question

私は750の観測値と250の列を持つデータフレームを持っていました。お互いの上に2つの密度プロットをプロットしたいと思います。あるケースでは、特定の要因が存在し、他の要因は存在しない（非商業活動に対する商業活動）。

は私が

CommercialActivityData <- subset(MbadSurvey, Q2== 1) 
NonCommercialActivityData <- subset(MbadSurvey, Q2== 2) 

私はその後、私が行うとき、私は次のエラーメッセージが表示されます、しかし

p1 <- ggplot(CommercialActivityData, aes(x = water_use_PP)) + geom_density() 
p1 

を次のようにこれをプロットしようとしたデータのサブセットを作成し

Error: Aesthetics must be either length 1 or the same as the data (51): x 

私は商業があるところでは51のデータ値があり、存在しないところには699のデータ値があります。

Answer 1

EDIT：新しいコード！

# Creating the data frame 
MbadSurvey <- data.frame("water_use_PP"=runif(1000,1,100), 
       "Q2"=as.factor(round(runif(1000,1,2),0))) 

# Requiring the package 
require(ggplot2) 

# Creating 3 different density plots based on the Species 
p1 <- ggplot(MbadSurvey, aes(x = water_use_PP,colour = Q2)) + geom_density() 
p1 

注：

私はあなたのデータをシミュレートしているので、データセットへのアクセス権を持っていない変数Q2が要因でなければなりません！