有没有办法可以绘制这个密度图答案

【问题标题】：Is there a way I can plot this density graph有没有办法可以绘制这个密度图
【发布时间】：2020-02-18 21:45:23
【问题描述】：

我正在尝试为小型和大型两部电梯绘制密度图，它们包含小型电梯中 5 人的体重中位数和大型电梯中 10 人的体重中位数的数据，但是，我我对如何绘制密度图感到困惑，所以我可以比较两个升降机的重量中值

我使用的数据集是here;

500 人性别-身高-体重-体重指数

身高体重随机生成，体重指数计算

但是，我删除了高度和索引，因为这与我的研究无关

我在这里创建了两个示例；

  Large <- replicate(n=1000, mean(sample(Weight$Weight, size = 10)))
    Small <- replicate(n=1000, mean(sample(Weight$Weight, size = 10)))

然后我将它们放入一个名为 Lifts 的数据帧中；

  Lifts<-data.frame(Large, Small)

我试图通过绘制以下密度图自己想出一个解决方案；

ggplot(Lifts, aes(Large)) + geom_density(fill = "blue") + labs(x = "Median of Weight", y =     "Distribution of Data")

任何帮助将不胜感激

【问题讨论】：

标签： r ggplot2

【解决方案1】：

如果您想比较两个组，您可以使用pivot_longer 来制作它们，然后在您的情节中设置分组美学

library(ggplot)
library(tidyr)

Large <- replicate(n=1000, mean(sample(Weight$Weight, size = 10)))
Small <- replicate(n=1000, mean(sample(Weight$Weight, size = 10)))
Lifts<-data.frame(Large, Small)

Lifts_long <- pivot_longer(Lifts, cols = c(Small, Large), names_to = "name", values_to = "value")

ggplot(Lifts_long, aes(value)) +
  geom_density(aes(group = name, fill = name), alpha = 0.5) +
  labs(x = "Median of Weight",
       y = "Distribution of Data",
       fill = "Group Name")

【讨论】：