代码之家 › 专栏 › 技术社区 › oneself

以反方向显示标签的堆叠条形图

ggplot2 r

oneself · 技术社区 · 6 年前

我正在尝试创建一个标签位于条形图中间的堆叠条形图。由于某些原因,标签被放置在第二列(“eIC”)的错误位置。

代码如下:

Role.Type=c("Other", "eIC", "eIC", "Manager", "eIC", "eIC", "Design", "eIC", "eIC", "Other", "Product", "Other", "Manager", "eIC", "eIC")
Role=c('Agile Coach', 'Android', 'Backend', 'Eng Manager', 'Data', 'Data Scientist', 'Design', 'iOS', 'ML', 'Operations', 'Product', 'Quality', 'Director', 'User Research', 'Web')
People=c(3, 3, 20, 11, 10, 7, 2, 2, 21, 1, 11, 3, 2, 2, 5)
df <- data.frame(Role.Type, Role, People)

g <- ggplot(df, aes(Role.Type, People)) +
       geom_col(aes(fill=Role), position='stack') +
       geom_text(aes(label=Role), size=3, position=position_stack(vjust=.5)) +
       scale_y_continuous(breaks=seq(0, 100, by=10)) +
       labs(title="Team Role Breakdown", y="People", x="Role Type")
g

结果呢

1 回复 | 直到 6 年前

Saewon Park 6 年前

只需在第一个ggplot()函数中输入“fill=Role”。这将提供所需的打印,其中文本标签位于正确的位置:

g <- ggplot(df, aes(Role.Type, People, fill = Role)) +
  geom_col(position='stack') + 
  geom_text(aes(label=Role), size=3, position=position_stack(vjust=.5)) +
  scale_y_continuous(breaks=seq(0, 100, by=10)) + 
  labs(title="Team Role Breakdown", y="People", x="Role Type")

推荐文章

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Jeff238 · 为scale\u fill\u连续比例而不是离散比例制作图例

2 年前

jerH · 从ggplot bar plot中省略一些数据标签

2 年前

Stefan · 当facet\u wrap()中的比例设置为“free”时,如何增加ggplot中的默认y轴限制

2 年前

Honorato · 在图形图例中插入两列数据-ggplot2

2 年前

Naota Feykneme · 你能在R中分别控制散点图点的宽度和高度吗?[副本]

2 年前

Shawn Hemelstrand · 如何在ggplot中的许多回归线中为一条特定回归线上色以匹配注释?

2 年前

Jenny · 如何在ggplot2轴上重新排序类别

2 年前

Kirds · 在ggplot中将国家名称添加到地图中

2 年前

MadelineJC · group_by在R中按顺序排列数字

2 年前