如何统一ggplot中的小数位数?

时间:2019-05-30 18:08:56

标签: r ggplot2 decimal

与所提供的示例相比,我的代码更复杂,无法想象我必须如何更改代码才能为条形图的所有条形获得相同的小数位数。对于大多数条形图,R已经显示了两位小数。每当第二个小数位为“ 0”时,R仅显示一个小数位。有人可以告诉我如何将小数位标准化为2,以及如何将命令集成到我的代码中吗?

我已经尝试过“ digits”并指定了_decimal,但未能将其正确集成到我的代码中(以scale_x_continuous形式)。

df1_long %.>%
  ggplot(
    data = .,
    aes(
      x = xpos,
      y = val,
      fill = Ebene
  )) +
  geom_rect(aes(
      xmin = xpos - .5,
      xmax = xpos + .5,
      ymin = -Inf,
      ymax = Inf,
      fill = Problemzahl
    ),
    alpha = .3
  ) +
  geom_col(
    position = position_dodge(.5),
    colour="black",
    width = .5
  ) +
  geom_errorbar(aes(
      ymin = val - SE,
      ymax = val + SE
    ),
    position = position_dodge(.5),
    width = .2
  ) +
  geom_text(aes(
      y = val + SE + .02,
      label = val %>% str_replace('\\.', ',')
    ),
    position = position_dodge(.5)
  ) +
  scale_fill_manual(
    values = c(
      '#aaaaaa',  # Beide Problemarten
      '#000000',  # Co
      '#dddddd',  # Keine Probleme
      '#CCCCCC',  # Motivationale Probleme
      '#333333',  # Self
      '#666666',  # Shared
      '#bbbbbb'   # Verständnisbezogene Probleme  
    ),
    breaks = c(
      'Self',
      'Co',
      'Shared'
    )
  ) +
  scale_x_continuous(
    breaks = .$xpos %>% unique(),
    labels = .$Problemzahl %>% unique(),
    expand = c(0, 0)
  ) +
  scale_y_continuous(
    labels = function(x) str_replace(x, '\\.', ','),
    limits = c(0, 1.0),
    expand = c(0, 0)
  ) +
  ylab('Allgemeine Regulationsaktivität auf der Self-, Co-, und Shared Ebene\n(KI 95%)') +
  theme_classic() +
  theme(
    legend.position = 'top',
    legend.title = element_blank(),
    legend.spacing.x = unit(1, 'mm'),
    axis.title.x = element_blank()
  )

1 个答案:

答案 0 :(得分:0)

在调用ggplot之前,我会更改您管道中的代码。这是一个使用 formattable 包的不错的示例。

library(tidyverse)
library(formattable)

df1_long %>%
  mutate(val = formattable(val, digits = 2, format = "f")) %>%
  ggplot(
  ...
)

您可以将任何变量名替换为val,具体取决于您希望将哪个变量名标准化为两位小数。