如何在 R Studio 中解决这个问题？答案

【问题标题】：How do I fix this in R studio?如何在 R Studio 中解决这个问题？
【发布时间】：2021-05-25 05:50:50
【问题描述】：

我在 R studio 中使用 ggplot2 制作了一个条形图，为了便于阅读，我将 y 轴标签（包含以千为单位的值）替换为后缀“K”。

例如，如果 y 轴标签是“10000”，我将其替换为“10K”等等。

代码：-

full_data_cl %>% 
  group_by(month, rider_type) %>% 
  summarise(number_of_ride = n(), .groups = 'drop') %>% 
  filter(rider_type == 'casual') %>% 
  ggplot(aes(x = month, y = number_of_ride)) + 
    geom_bar(stat = 'identity', colour = "black", fill = "darkorange") + 
    labs(title="No.of Rides Per Month") + 
    theme(plot.title=element_text(hjust = 0.1, size = 40, vjust = -5)) + 
    theme(axis.text.x = element_text(face = "bold", colour = "black", size = 15)) +
    theme(axis.text.y = element_text(face = "bold", colour = "black", size = 15)) +
    theme(panel.background = element_blank(), 
          axis.line = element_line(colour = "black"), 
          axis.ticks.x = element_blank(), 
          axis.title = element_blank()) + 
    geom_text(aes(label = number_of_ride), size = 7, vjust = -1)

我在上面的代码五中包含了以下行以进行必要的更改：-

scale_y_continuous(labels = label_number(suffix = "K",scale = 1e-5))

代码生成了以下可视化：-

我们可以看到，y 轴标签反映了我所做的更改，但条形上方的标签仍然相同。

有人可以指导我如何解决这个问题吗？

【问题讨论】：

如果您创建一个小的可重现示例以及预期的输出，这将更容易提供帮助。阅读how to give a reproducible example。
因为你没有修改number_of_ride的推导。

标签： r ggplot2 data-visualization data-analysis

【解决方案1】：

我认为您的代码中仍有 geom_text 层。这将在您的条上添加带有标签的图层。删除它，你应该很高兴删除这行代码 geom_text(aes(label = number_of_ride), size = 7, vjust = -1)

【讨论】：

这将完全删除标签。问题是我希望我的标签也能反映这些变化。例如：- 第一个标签显示值“14614”，我希望它显示为 14.6K 等。