在我的以下代码中:
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))
如何更改scale_y_continuous
的参数以减少000
的数量?即y勾号将显示5、10、15、20、25 ...
像这样将标签除以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)