代码之家 › 专栏 › 技术社区 › Dr. Fabian Habersack

如何减少一根钢筋在土工格栅中的宽度?

geom-bar ggplot2 r

Dr. Fabian Habersack · 技术社区 · 6 年前

我想用ggplot得到一个并排的条形图 geom_bar() . 以下是我为复制目的编写的一些示例数据:

dat <- data.frame("x"=c(rep(c(1,2,3,4,5),5)),
                  "by"=c(NA,0,0,0,0,NA,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1))

我要绘制“X”,按“by”分组。现在,因为我不需要策划 NA 值,我筛选 !is.na(by) )

library(dplyr)
dat <- filter(dat, !is.na(by))

现在来看情节:

library(ggplot2)
ggplot(dat, aes(x=x, fill=as.factor(by))) + geom_bar(position="dodge") + theme_tufte()

这将返回我需要的;几乎。不幸的是,第一个条看起来真的很奇怪,因为它的binwidth是原来的两倍(因为在“by”中“x”=1没有零)。

有没有办法把第一根横杆的宽度缩小到“正常”的程度?

2 回复 | 直到 6 年前

Roman LuÅ¡trik 6 年前

你也可以这样做。预先计算桌子并使用 geom_col .

ggplot(as.data.frame(table(dat)), aes(x = x, y = Freq, fill = by)) +
  theme_bw() +
  geom_col(position = "dodge")

Dr. Fabian Habersack 6 年前

没关系,我只是觉得你可以操纵 binwidth 参数使用 ifelse 语句。

...geom_bar(..., binwidth = ifelse("by"==1 & is.na("x"), .5, 1)))

所以如果你玩这个,它会起作用的。至少对我有用。

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

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

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前