R:ggplot自定义变换轴标签以减少零点

问题描述 投票:0回答:1

在我的以下代码中:

library(ggplot2) 
library(scales)
myData <- data.frame(
  platform = c("Windows", "MacOs", "Linux"),
  number = c(27000, 16000, 9000)
)

ggplot(myData, aes(x = reorder(platform, -number), y = number))+ 
  geom_bar(stat="identity", fill="darkturquoise", width = 0.5)+
  geom_text(aes(label = number), vjust=-0.3)+
  xlab("Platform")+
  scale_y_continuous(breaks = round(seq(0,40000, by = 5000), 1))

产生此图:enter image description here

如何更改scale_y_continuous的参数以减少000的数量?即y勾号将显示5、10、15、20、25 ...

r ggplot2
1个回答
0
投票

像这样将标签除以1000:

ggplot(myData, aes(x = reorder(platform, -number), y = number))+ 
  geom_bar(stat="identity", fill="darkturquoise", width = 0.5)+
  geom_text(aes(label = number), vjust=-0.3)+
  xlab("Platform")+
  scale_y_continuous(breaks = seq( 0,40000, by = 5000),
                     labels = function(y_value) y_value / 1000) 
© www.soinside.com 2019 - 2024. All rights reserved.