在ggplot中繪制密度函數時出現錯誤消息

Question

我有一個包含750個觀測值和250列的數據框，我想在彼此之上繪制兩個密度圖。 在一種情況下，存在一個特定因素，而在另一種情況下則不存在（商業活動與非商業活動相對）。

我創建了數據的子集

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

編輯：新代碼！

我無權訪問您的數據集，因此我模擬了您的數據：

# 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必須是一個因素！