发散图的 x 轴起始值

您可以通过 scale_x_conTinuous(labels = function (X) x + 25) 为 (x-) 比例提供计算标签。

如果您还想更改数据，您首先需要将 x-值 偏移等量（在相反方向）： >

示例：

df = tibble(Color = c('red','green','blue'),Divergence = c(5,10,-5))
offset = 2

df %>%
    mutate(Divergence = Divergence - offset) %>% 
    ggplot() +
    aes(x = Divergence,y = Color) +
    geom_col() +
    scale_x_conTinuous(labels = function (X) x + offset)

我仍然不是 100% 清楚您的预期结果，但您可以通过从每个值中添加/减去 25 来“移动”您的数据，例如

原图：

library(tidyversE)
library(gapminder)

set.seed(123)

gapminder_subset <- gapminder %>% 
  pivot_longer(-c(country,conTinent,year)) %>% 
  filter(year == "1997" | year == "2007") %>% 
  SELEct(-conTinent) %>% 
  filter(name == "gdpPercap") %>% 
  pivot_wider(names_from = year) %>% 
  SELEct(-Name) %>% 
  mutate(gdp_change = ((`2007` - `1997`) / `1997`) * 100) %>% 
  sample_n(15)


ggplot(data = gapminder_subset,aes(x = country,y = gdp_changE)) +
  geom_bar(stat = "identity") +
  coord_flip()

@H_696_74@

减去 25：

library(tidyversE)
library(gapminder)

set.seed(123)

gapminder_subset <- gapminder %>% 
  pivot_longer(-c(country,y = gdp_changE)) +
  geom_bar(stat = "identity") +
  coord_flip()

如果你把它和我原来的重新贴标签结合起来，我认为这就是解决方案：

ggplot(data = gapminder_subset,y = gdp_change - 25)) +
  geom_bar(stat = "identity") +
  coord_flip() +
  scale_y_conTinuous(breaks = c(-25,25,50),labels = c(0,50,75))

在我撰写本文时存在的答案是建议更改数据或更改标签。在这里，我建议既不更改数据也不更改标签，而只是更改条形的起始位置。

首先，为了可重复性，我对数据子集采用了@jared_mamrot 的方法。

library(gapminder)
library(tidyversE)

set.seed(123)

gapminder_subset <- gapminder %>% 
  pivot_longer(-c(country,year)) %>% 
  filter(year == "1997" | year == "2007") %>% 
  SELEct(-conTinent) %>% 
  filter(name == "gdpPercap") %>% 
  pivot_wider(names_from = year) %>% 
  SELEct(-Name) %>% 
  mutate(gdp_change = ((`2007` - `1997`) / `1997`) * 100) %>% 
  sample_n(15)

然后，您可以设置 xmin = after_scale(25)。您将收到一条警告，指出 xmin 不存在，但在 ggplot2 内部将条形重新参数化为矩形后，它确实存在（这是在 x-scale 看到数据来确定限制）。这有效地改变了条形开始的位置。

ggplot(gapminder_subset,aes(gdp_change,country)) +
  geom_col(aes(xmin = after_scale(25)))
#> Warning: Ignoring unknown aesthetics: xmin

^{由 reprex package (v1.0.0) 于 2021 年 6 月 28 日创建}