我有以下脚本来创建图形:
histogram_endo_cases_controls <- ggplot(prs_data, aes(x = normalized, fill = as.factor(endometriosis))) +
geom_histogram(position = "identity", alpha = 0.5, binwidth = 0.2, color = "black") +
scale_fill_manual(values = c("blue", "yellow"),
labels = c("Controls", "Cases"),
name = "Group") +
labs(title = "Histogram of Polygenic Risk Scores",
x = "PRS",
y = "Frequency") +
theme_minimal()
我绘制的数据是两组(病例组和对照组)的分数。案例编码为 1,对照编码为 0。
我想绘制在病例和对照中经历相同分数的个体的百分比,因为我的数字有很大差异(对照明显更多)。因此,该图看起来像所附示例(y 轴具有百分比,因此直方图具有相同的高度)。
使用 geom_密度(alpha = .5) 代替 geom_histogram()