如何在ggplot2中将y轴格式从10000更改为10k

Question

我想将y轴上的数字格式从n000更改为nk，其中n是1到10之间的数字，k只是“k”，其唯一的功能是替换3个零。为什么？为了节省一些空间。 我的代码是：

x <- seq(1:10)
y <- c(0, 500, 1000, 5000, 10000, 13000, 8000, 4000, 1000, 200) 
df <-data.frame(x, y)
library(ggplot2)
ggplot(df, aes(x, y)) +
  geom_bar(stat="identity", fill="white", colour="black") +
  xlab("X (%)") +
  ylab("Número de estructuras") +
  theme_bw()

由于