> dput(gene_cancer2_f)
structure(list(Gender = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Female", "Male"
), class = "factor"), Gene = c("ATM", "ATM", "ATM", "ATM", "Population",
"Population", "Population", "Population", "ATM", "ATM", "ATM",
"ATM", "Population", "Population", "Population", "Population"
), Cancer = structure(c(2L, 3L, 5L, 12L, 2L, 3L, 5L, 12L, 2L,
3L, 5L, 12L, 2L, 3L, 5L, 12L), .Label = c("Brain", "Breast",
"Colorectal", "Endometrial", "Gastric", "Hepatobiliary", "Kidney",
"Leukemia", "Melanoma", "Osteosarcoma", "Ovarian", "Pancreatic",
"Prostate", "Soft Tissue Sarcoma", "Thyroid", "Urinary Bladder"
), class = "factor"), Type = c("RiskToAge70", "RiskToAge70",
"RiskToAge70", "RiskToAge70", "RiskToAge70", "RiskToAge70", "RiskToAge70",
"RiskToAge70", "RiskToAge85", "RiskToAge85", "RiskToAge85", "RiskToAge85",
"RiskToAge85", "RiskToAge85", "RiskToAge85", "RiskToAge85"),
Risk = c(21.59862, 3.27479, 1.10073, 1.70754, 8.85253, 1.66318,
0.23228, 0.44844, 39.61044, 7.07614, 2.50735, 4.46698, 13.66465,
3.59502, 0.52923, 1.17365)), row.names = c(NA, -16L), .Names = c("Gender",
"Gene", "Cancer", "Type", "Risk"), class = "data.frame")
ggplot(gene_cancer2_f, aes(x = Gene, y = Risk, fill = Type)) +
geom_bar(stat = 'identity', position = 'stack') +
facet_grid(~ Cancer) +
scale_y_continuous(limits = c(0, 100)) +
labs(x = "Cancer", y = "Risk %") +
guides(fill = guide_legend(title = NULL)) +
theme_minimal() +
theme(plot.title = element_text(size = 12, hjust = 0.5),
legend.position = "bottom") +
scale_fill_manual(values = c("dodgerblue4", "sandybrown"),
breaks=c("RiskToAge70", "RiskToAge85"),
labels=c(paste("Risk to Age 70", " "), "Risk to Age 85"))
这是我现在的图表:
但这就是我希望图表看起来像:
我想
1)翻转我的图表以使条形图是水平的(我已尝试过coord_flip,但这并不起作用)
2)对并排的酒吧进行不同的颜色编码(例如"人口,"的不同颜色,当然还有相应的传说(总共4个图例)
3)摆脱" ATM"和#34;人口"标签
答案 0 :(得分:3)
我们还可以使用ggstance
包
geom_barh
library(ggstance)
ggplot(gene_cancer2_f, aes(x = Risk, y = forcats::fct_reorder(Gene, Risk),
group = Gene,
fill = Type)) +
facet_grid(Cancer ~ ., switch = 'y') +
geom_barh(aes(fill = interaction(Gene, Type)),
stat = 'identity', position = 'stackv') +
scale_x_continuous(limits = c(0, 100)) +
labs(y = "Cancer", x = "Risk %") +
theme_minimal() +
theme(
strip.text.y = element_text(angle = 180),
axis.text.y=element_blank(),
axis.ticks.y=element_blank(),
plot.title = element_text(size = 12, hjust = 0.5),
legend.position = "bottom") +
scale_fill_manual("",
values = c("dodgerblue4", "darkgreen",
"cornflowerblue", "darkseagreen"),
labels = c("ATM Risk to age 70", "ATM Risk to age 85",
"Population Risk to age 70", "Population Risk to age 85"))
答案 1 :(得分:1)
执行堆栈和闪避条形图超出了ggplot()的功能,请参阅here,通常使用facet是最佳选择。
这是一个非常接近的黑客。
ggplot(gene_cancer2_f, aes(x = paste(Cancer, Gene), y = Risk, group = Gene, fill = Gene)) +
geom_col(position = "stack", aes(alpha = Type)) +
scale_y_continuous(limits = c(0, 100)) +
scale_x_discrete(labels = c("Breast", "", "Colo","", "Gas","", "Pan", "")) +
scale_alpha_manual(values = c(1, .7)) +
labs(x = "Cancer", y = "Risk %") +
coord_flip() +
theme(axis.ticks.y = element_blank(),
axis.text.y = element_text(vjust = -2),
legend.position = "bottom",
legend.box = "horizontal")
答案 2 :(得分:1)
您可以使用Gene
同时为Type
和interaction()
着色。此代码接近第二个示例中的输出,但在此过程中使用了大量操作,因此您应该仔细检查可视化是否符合您的预期。
ggplot(gene_cancer2_f, aes(Gene, Risk)) +
geom_col(aes(fill = interaction(Gene, Type, lex.order = TRUE)),
position = position_stack(reverse = TRUE)) +
facet_grid(Cancer~., switch = "y") +
coord_flip() +
theme(axis.text.y = element_blank(),
axis.ticks.y = element_blank()) +
labs(x = "Cancer",
y = "Risk of Cancer %") +
scale_fill_manual(name = "Risk",
values = c("dodgerblue4", "dodgerblue",
"darkseagreen4", "darkseagreen1"),
labels = c("To age 70 carrier", "To age 85 carrier",
"To age 70 non-carrier", "To age 85 non-carrier"))