如何在没有手动限制的情况下在一侧扩展 ggplot 条形刻度而不是另一侧
Posted
技术标签:
【中文标题】如何在没有手动限制的情况下在一侧扩展 ggplot 条形刻度而不是另一侧【英文标题】:How expand ggplot bar scale on one side but not the other without manual limits 【发布时间】:2016-08-02 08:14:21 【问题描述】:目标是消除刻度线和条形底部之间的空间,而不切断条形另一端之外的任何百分比标签。
我正在使用 R 的 ggplot2 运行数十个条形图,并尝试遵循我们的组织风格指南,该指南是使用 Excel 为每个图表手动开发的。最大长度条在不同图表中的长度不同,并且可能随着源数据的变化而变化,所以我不想手动设置限制。 [也许这里有一个解决方法:有没有办法根据输入自动调整限制?]
我已经咨询过:
Removing negative plot area in ggplot2
How to remove space between axis & area-plot in ggplot2?
Force the origin to start at 0 in ggplot2 (R)
http://docs.ggplot2.org/dev/vignettes/themes.html
从下面的代码生成一个几乎可以工作的图表。出于公共目的,我使用 MASS 包中的“quine”数据集。首先,我按年龄分组找到女性的百分比。然后我按女性百分比对年龄组进行排序。
require(MASS)
attach(quine)
p.SexAge <- prop.table(table(Sex, Age), 2)
perc.SexAge <- round(p.SexAge * 100)
perc.SexAge.flattened <- as.data.frame(perc.SexAge)
perc.SexAge.flattened.F <- subset(perc.SexAge.flattened, Sex == "F")
require(ggplot2)
ggplot(data=perc.SexAge.flattened.F, aes(x=reorder(Age, -Freq), y=Freq)) +
geom_bar(stat="identity", fill = "#00ABE1") +
scale_x_discrete(expand = c(0, 0)) +
scale_y_continuous(expand = c(0,6)) +
ggtitle("Percent Female By Age") +
ylab("Percent Female") +
xlab("Age Group\n") +
#theme_classic() +
theme(plot.margin = unit(c(0,0,0,0), "in")) +
coord_flip() +
geom_text(aes(label = Freq), vjust = 0.4, hjust = - 0.4, size = 3.5)
当取消注释 theme_classic()
以创建空白区域以满足我们的样式指南时,很明显在垂直轴刻度线和条形底部之间存在过多的空间。如果有更多的条(未显示),这个问题会变得更糟。
如果我将scale_y_continuous(expand = c(0,6))
更改为
scale_y_continuous(expand = c(0,0))
,
标签在最长的条上被切掉,
违反组织风格指南。
【问题讨论】:
【参考方案1】:注意:expand
的实现将随着即将发布的ggplot2
2.3.0 版的发布而改变,并且两端都将具有灵活性。以下答案将继续有效,但不再需要。见?expand_scale
。
expand
不会成为你的朋友,因为这两个参数是双方的乘法和加法扩展常数。所以c(0, 6)
总是每边增加 6 个单位。连续数据的默认值为c(0.05, 0)
,即两端范围增加 5%。
我们可以预先计算所需的范围。左边界应始终设置为 0,我们将右边界设置为 max + 6。(如果图之间的范围变化很大,您也可以使用乘法因子。)
lim <- c(0, max(perc.SexAge.flattened.F$Freq) + 6)
#lim <- c(0, max(perc.SexAge.flattened.F$Freq) * 1.1) # 10% increase
ggplot(data=perc.SexAge.flattened.F, aes(x=reorder(Age, -Freq), y=Freq)) +
geom_bar(stat="identity", fill = "#00ABE1") +
scale_x_discrete(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0), limits = lim) + #This changed!
ggtitle("Percent Female By Age") +
ylab("Percent Female") +
xlab("Age Group\n") +
theme_classic() +
theme(plot.margin = unit(c(0,0,0,0), "in")) +
coord_flip() +
geom_text(aes(label = Freq), vjust = 0.4, hjust = - 0.4, size = 3.5)
附言请不要使用attach
,尤其是在其他人加载到他们的环境中的代码上。
【讨论】:
【参考方案2】:在 ggplot2 版本 3.3.3 中,scale_y_continuous(expand = expansion(mult = c(0, .1)))
完成了这项工作。这只会将 Y 轴的右端延长 10% (.1)。您还可以将该端扩展固定数量:例如,scale_y_continuous(expand = expansion(add = c(0, 5)))
将其扩展 5 个空间单位。
【讨论】:
以上是关于如何在没有手动限制的情况下在一侧扩展 ggplot 条形刻度而不是另一侧的主要内容,如果未能解决你的问题,请参考以下文章
如何在没有扩展内联 asm 的情况下在 gcc 内联汇编中声明和初始化局部变量?
C90:如何在没有 C99 扩展的情况下在 C 中全局初始化此结构
如何在不使用扩展的情况下在 Autodesk forge 查看器上显示图标
如何在没有环视的情况下在 RegEx 中捕获“搜索”而不是“/搜索”?