R 带有分区主x和子x标签的堆叠条形图
我是R新手。我想根据以下数据创建一个堆叠条形图。我想将这些数据绘制成一个堆叠的条形图,该条形图描述x轴上基因型和种族的每个组合的疾病得分百分比,例如76R种族1、rmc种族1。以及如何简化x轴,将每个赛道拆分为76R和rmc组合,而不是标记每个组合,即,不是将每个杆标记为76R赛道1、rmc赛道1等,如何将赛道1标记为主轴,将76R和rmc标记为子轴,等等R 带有分区主x和子x标签的堆叠条形图,r,stack,bar-chart,R,Stack,Bar Chart,我是R新手。我想根据以下数据创建一个堆叠条形图。我想将这些数据绘制成一个堆叠的条形图,该条形图描述x轴上基因型和种族的每个组合的疾病得分百分比,例如76R种族1、rmc种族1。以及如何简化x轴,将每个赛道拆分为76R和rmc组合,而不是标记每个组合,即,不是将每个杆标记为76R赛道1、rmc赛道1等,如何将赛道1标记为主轴,将76R和rmc标记为子轴,等等 disease.nov <- data.frame(disease.score = c(0, 1, 1, 0, 0, 0, 0, 0,
disease.nov <- data.frame(disease.score = c(0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 2, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 6, 7, 5, 5, 4, 4, 6, 5, 8, 5, 5, 5, 6, 4, 7, 5, 8, 6, 1, 2, 2, 4, 5, 8, 5, 6, 7, 4, 4, 4, 2, 3, 5, 6, 7, 7, 5, 2, 6, 6, 6, 4, 5, 8, 7, 5, 2, 5, 6, 3, 7, 4, 7, 7, 8, 6, 8, 8, 7, 9, 9, 7, 4, 9, 9, 5, 3, 8, 8, 6, 5, 7, 7, 8, 6, 6, 5, 7, 7, 8, 8, 8, 8, 7, 6, 6, 8, 4, 7, 7, 8, 6, 7, 7, 8, 6, 5, 6, 7, 7, 4, 6, 8, 7, 0, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
genotype=gl(2,52,624, labels=c("76R","rmc")),
race=gl(6,104,624, labels=c("race 1","race 2","race 3","WAC 7673","WAC 7591","control")))
disease.nov我不确定这是否是您想要的:
library(ggplot2)
library(scales)
ggplot(disease.nov, aes(x=genotype, fill=factor(disease.score))) +
geom_bar(position="fill") +
facet_wrap(~ race) +
scale_y_continuous(labels = percent_format())
产生:
如果你自己尝试一下,会对你有更好的帮助。我发现以下在线资源对于熟悉R绘图非常有用:我将附和@MattWeller所说的内容-ggplot2
软件包,如果你想用R绘图,你应该学习。我非常喜欢它。谢谢大家,特别是rrs,这就是我要找的。干杯。@CahyaPrihatna如果这回答了您的问题,请接受解决方案。