分类导航

程序问答发布时间：2022-06-01 发布网站：大佬教程 code.js-code.com

大佬教程收集整理的这篇文章主要介绍了当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

如何解决当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部？

开发过程中遇到当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部的问题如何解决？下面主要结合日常开发的经验，给出你关于当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部的解决方法建议，希望对你解决当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部有所启发或帮助；

我正在尝试调整此图的 y 轴，使其从 1 开始，而不是从 0 开始。这样做的最佳方法是什么？

提供的解决方案 here 切断了图表的底部。我希望条形看起来与下图几乎相同，但 y 下限为 1，并且每个条向下移动 1 个单位以匹配。我想保留每个条形下方的少量灰色空间。

当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部

代码：

groups %>% 
  ungroup() %>% 
  mutate(message = fct_relevel(message,"Personal","General"),enviroattitudeshalf = fct_relevel(enviroattitudeshalf,"Low Environmental Attitudes","High Environmental Attitudes")) %>% 
  ggplot(aes(x = message,y = mean)) + 
  geom_col(wIDth = 0.5,fill = "003900") +
  geom_text(aes(label = round(R_388_11845@ean,digits = 1),vjust = -2)) + 
  geom_errorbar(aes(ymin = mean - se,ymax = mean + sE),wIDth = .2,position = position_dodge(.9)) + 
  labs(title = "Environment: Evaluations of Personal and General Convincingness",y = "raTing",x = "Personal evaluation or general evaluation") + 
  ylim(0,8) +
  faCET_wrap(~enviroattitudeshalf)

数据：

structure(List(enviroattitudeshalf = c("Low Environmental Attitudes","High Environmental Attitudes","High Environmental Attitudes"),message = c("General","General","Personal"),mean = c(3.89473684210526,3.37894736842105,4.43636363636364,5.10909090909091),se = c(0.145460372156746,0.19522803582675,0.160549137262631,0.171509247396541)),row.names = c(NA,-4L),groups = structure(List(enviroattitudeshalf = c("High Environmental Attitudes","Low Environmental Attitudes"),.rows = structure(List(3:4,1:2),ptype = Integer(0),class = c("vctrs_List_of","vctrs_vctr","List"))),row.names = 1:2,class = c("tbl_df","tbl","data.frame"),.drop = TRUE),class = c("grouped_df","tbl_df","data.frame"))

解决方法

作为重新标记 y 轴的替代方法，您可以通过设置 oob = scales::oob_squish 在 1 处将其切断。越界挤压函数将越界的值设置为最接近的限制。这保留了条形的上部，给出了相同的解释，而重新标记会表明第一个条形超过值 4，而事实并非如此。

groups %>% 
  ungroup() %>% 
  mutate(message = fct_relevel(message,"Personal","General"),enviroattitudeshalf = fct_relevel(enviroattitudeshalf,"Low Environmental Attitudes","High Environmental Attitudes")) %>% 
  ggplot(aes(x = message,y = mean)) + 
  geom_col(width = 0.5,fill = "003900") +
  geom_text(aes(label = round(R_388_11845@ean,digits = 1),vjust = -2)) + 
  geom_errorbar(aes(ymin = mean - se,ymax = mean + sE),width = .2,position = position_dodge(.9)) + 
  labs(title = "Environment: Evaluations of Personal and General Convincingness",y = "RaTing",x = "Personal evaluation or general evaluation") + 
  faCET_wrap(~enviroattitudeshalf) +
  scale_y_conTinuous(limits = c(1,8),oob = scales::oob_squish)

当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部

使用 scale_y_conTinuous 可以调整 breaks 和 labels。

library(tidyversE)

groups %>% 
  ungroup() %>% 
  mutate(message = fct_relevel(message,vjust = -3)) + 
  geom_errorbar(aes(ymin = mean - se,x = "Personal evaluation or general evaluation") + 
  scale_y_conTinuous(breaks = 0:8,labels = 1:9) + 
  faCET_wrap(~enviroattitudeshalf,scales = 'free_y')

当 x 是离散变量时更改图形 y 轴的下限而不切断条形底部