[英]R ggplot2: labels inside bars, no stacked geom_bar
我有以下数据集:
data <- structure(list(Q14 = c("< 5 people", "> 11 people", "6-10 people",
NA), count = c(148L, 13L, 34L, 21L), var = c("Team Size", "Team Size",
"Team Size", "Team Size")), row.names = c(NA, -4L), class = c("tbl_df",
"tbl", "data.frame"))
而我 plot 我的 geom_bar 如下:
library(ggplot2)
library(wesanderson)
ggplot(data) +
geom_bar( aes(x = var, y = count, fill = Q14), stat = "identity", position = "fill") +
coord_flip() +
theme(legend.position = "none",
axis.title.x=element_blank(), axis.title.y=element_blank()) +
scale_fill_manual(values = wes_palette("Zissou1", 3, type = "continuous"))
我想在栏内打印标签,如下所示。 注意:我的编辑技巧很烂,我当然希望标签对齐,它们也可以逆时针旋转。
另一种选择是获得以下内容,我也喜欢:
一种选择是使用geom_text
:
ggplot(data, aes(x = var, y = count, fill = Q14, label = Q14)) +
geom_bar(stat = "identity", position = "fill", ) +
geom_text(position = position_fill(vjust = 0.5), size = 3) +
coord_flip() +
theme(legend.position = "none",
axis.title.x=element_blank(),
axis.title.y=element_blank()) +
scale_fill_manual(values = wes_palette("Zissou1", 3, type = "continuous"))
另一种选择是使用geom_label_repel
的ggrepel
:
library(ggrepel)
ggplot(data, aes(x = var, y = count, fill = Q14, label = Q14)) +
geom_bar(stat = "identity", position = "fill", ) +
geom_label_repel(position = position_fill(vjust = 0.5),
direction = "y",
point.padding = 1,
segment.size = 0.2,
size = 3,
seed = 3) +
coord_flip() +
theme(legend.position = "none",
axis.title.x=element_blank(),
axis.title.y=element_blank()) +
scale_fill_manual(values = wes_palette("Zissou1", 3, type = "continuous"))
注意seed
参数设置每个label走向哪个方向的随机过程。 如果您不喜欢我喜欢的号码,请选择其他号码。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.