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

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

axis-labels ggplot2 r

Jenny · 技术社区 · 2 年前

我试着对它们重新排序,条形图显示了正确的顺序,但介质和光的标签没有切换以反映正确的顺序。

df = data.frame(Group = c(rep('A',6), rep('B',6), rep('C',6)),
               Status = c('0', '0', '0', '1', '1', '1', '0', '0', '0', '1', '1', '1','0', '0', '0', '1', '1', '1'),
               Color = c('Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium','Dark','Light','Medium'),
               Count = c(3,6,9,3,4,1,5,2,7,3,4,8,5,3,7,6,2,6))

df <- df %>% group_by(Group, Status) %>% dplyr::mutate(percent = round(Count*100/sum(Count), 1))


ggplot(data = df, aes(x = Color, fill = Group, alpha= Status)) +
 scale_alpha_manual(values = c(1, 0.5)) +
 geom_bar(data=df[df$Status=="1",], aes(y=percent), stat="identity") +
 geom_bar(data=df[df$Status=="0",], aes(y=-percent), stat="identity") +
 scale_x_discrete(labels = df$Color) +
 coord_flip(ylim=c(-80,80)) +
 theme(text = element_text(size=16)) +
 scale_y_continuous(breaks=seq(-80,80,20),labels=abs(seq(-80,80,20))) + 
 scale_fill_brewer(palette="Set2") +
 facet_wrap(~Group, ncol=1) + theme(legend.position="right") +
 labs(y="Percentage", x="Colour", fill="Group", alpha = "Status") +
 theme_light()

下面是生成的绘图:

我试着用一些方法重新排序类别,比如增加限制

scale_x_discrete(labels = df$Color, limits = c("Dark", "Medium", "Light"))

df$Color2 <- factor(df$Color, level = c('Dark', 'Medium', 'Light'))

我得到的是图的表示方式,我希望他们被调平,但与标签媒体和轻,而不是被切换:

1 回复 | 直到 2 年前

Adam Quek 2 年前

这是你想要的吗?

df$Color <- factor(df$Color, levels=c("Light", "Medium", "Dark"))

ggplot(data = df, aes(x = Color, fill = Group, alpha= Status)) +
  scale_alpha_manual(values = c(1, 0.5)) +
  geom_bar(data=df[df$Status=="1",], aes(y=percent), stat="identity") +
  geom_bar(data=df[df$Status=="0",], aes(y=-percent), stat="identity") +
  #scale_x_discrete(labels = df$Color) +
  coord_flip(ylim=c(-80,80)) +
  theme(text = element_text(size=16)) +
  scale_y_continuous(breaks=seq(-80,80,20),labels=abs(seq(-80,80,20))) + 
  scale_fill_brewer(palette="Set2") +
  facet_wrap(~Group, ncol=1) + theme(legend.position="right") +
  labs(y="Percentage", x="Colour", fill="Group", alpha = "Status") +
  theme_light()

推荐文章

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 年前