[英]Migrate base R stacked bar plot to ggplot2 and distinguish bar levels with B/W structures instead of colors
我有一張這樣的桌子:
p_well <- structure(c(0, 0, 0.45, 0, 0, 0, 68.1, 0, 0, 0, 0, 0.45, 0.23,
0, 12.22, 0.23, 0, 0, 0, 0.23, 0.23, 1.36, 1.13, 0.23, 0, 0.23,
0, 0.45, 0, 0, 0, 0.23, 0.23, 0, 0, 0.45, 0, 0.45, 0, 0.9, 0.68,
0.9, 0, 1.13, 0, 0, 0, 0, 0, 0.9, 0, 0.23, 0.23, 0.23, 0, 0,
0.45, 0.23, 0, 0.45, 0.23, 0, 0, 0, 0, 5.88, 0, 0.45, 0, 0, 0,
0.23), class = "table", .Dim = 8:9, .Dimnames = structure(list(
c("adjective", "as_well", "dispreferred_marker", "manner_adverb",
"quote_marker", "restart_marker", "turn_preface", "unclear"
), c("W1", "W2", "W3", "W4", "W5", "W6", "W7", "W8", "W9"
)), .Names = c("", "")))
並想在 ggplot2 中繪制一個堆疊條ggplot2
。 我知道如何在base R
中做到這一點,如下所示:
par(mar = c(4.4,4,3,1))
barplot(p_well, main = "Functions of 'well' by positions in turn", cex.main = 0.9,
cex.axis = 0.8, cex.lab = 0.8, cex.names = 0.8,
names.arg = colnames(p_well),
xlab = "Positions", ylab = "%",
col = c("red", "orange", "yellow", "green", "darkgreen", "lightblue", "blue"))
legend("topright", rownames(p_well),
fill = c("red", "orange", "yellow", "green", "darkgreen", "lightblue", "blue"),
bty = "n", cex = 0.8)
但是,我想將 plot 遷移到ggplot2
。 另外,我需要使用黑白結構而不是 colors 來區分條的不同級別。 怎么可能呢?
我認為這可能是您正在尋找的
p_well <- structure(c(0, 0, 0.45, 0, 0, 0, 68.1, 0, 0, 0, 0, 0.45, 0.23,
0, 12.22, 0.23, 0, 0, 0, 0.23, 0.23, 1.36, 1.13, 0.23, 0, 0.23,
0, 0.45, 0, 0, 0, 0.23, 0.23, 0, 0, 0.45, 0, 0.45, 0, 0.9, 0.68,
0.9, 0, 1.13, 0, 0, 0, 0, 0, 0.9, 0, 0.23, 0.23, 0.23, 0, 0,
0.45, 0.23, 0, 0.45, 0.23, 0, 0, 0, 0, 5.88, 0, 0.45, 0, 0, 0,
0.23), class = "table", .Dim = 8:9, .Dimnames = structure(list(
c("adjective", "as_well", "dispreferred_marker", "manner_adverb",
"quote_marker", "restart_marker", "turn_preface", "unclear"
), c("W1", "W2", "W3", "W4", "W5", "W6", "W7", "W8", "W9"
)), .Names = c("", "")))
p_well <- as.data.frame(p_well)
ggplot(p_well, aes(fill=Var1, x=Var2, y=Freq )) +
geom_bar(position="stack", stat="identity") +
xlab("Positions") +
ylab("%") +
theme_bw() +
scale_fill_grey(start = 0, end = .9) +
theme(legend.title=element_blank(),
axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
legend.position = c(.8,.7))
如果你想從底部消除間隙
ggplot(p_well, aes(fill=Var1, x=Var2, y=Freq )) +
geom_bar(position="stack", stat="identity") +
xlab("Positions") +
ylab("%") +
theme_bw() +
scale_fill_grey(start = 0, end = .9) +
scale_y_continuous(expand = c(0,0)) +
theme(legend.title=element_blank(),
axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
legend.position = c(.8,.7))
您也可以使用forcats::fct_rev()
反轉順序,但您還需要將黑白 colors 從scale_fill_grey(start = 0, end =.9)
更改為scale_fill_grey(start =.9, end = 0)
ggplot(p_well, aes(x=Var2, y=Freq,fill = forcats::fct_rev(Var1))) +
geom_bar(position="stack", stat="identity") +
xlab("Positions") +
ylab("%") +
theme_bw() +
scale_fill_grey(start = .9, end = 0) +
scale_y_continuous(expand = c(0,0)) +
theme(legend.title=element_blank(),
axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
legend.position = c(.8,.7))
向 plot 添加模式,您可以使用ggpattern()
。 但是,使用黑白刻度和某些條形的大小,很難區分組之間的差異
library(ggpattern)
ggplot(p_well, aes(x=Var2, y=Freq)) +
geom_bar_pattern(position="stack",stat="identity",
mapping=aes(pattern=Var1)) +
xlab("Positions") +
ylab("%") +
theme_bw() +
scale_fill_grey(start = .9, end = 0) +
scale_y_continuous(expand = c(0,0)) +
theme(legend.title=element_blank(),
axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
legend.position = c(.8,.7))
使填充的顏色以不同的灰度變化
ggplot(p_well, aes(x=Var2, y=Freq, fill=Var1)) +
geom_bar_pattern(position="stack",stat="identity",
mapping=aes(pattern=Var1)) +
xlab("Positions") +
ylab("%") +
theme_bw() +
scale_fill_grey(start = .9, end = 0) +
scale_y_continuous(expand = c(0,0)) +
theme(legend.title=element_blank(),
axis.line = element_line(colour = "black"),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
panel.border = element_blank(),
panel.background = element_blank(),
legend.position = c(.8,.7))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.