ggplot2中的日志轴标签：不带逗号的完整数字？

Question

有没有一种方法可以将轴标签显示为没有逗号的整数（并且不是科学格式）？在下面的示例中，我可以使标签显示为带有逗号的整数（例如10,000），但是我希望它们不带逗号（例如10000）。

library(ggplot2)
library(scales)
df<-data.frame(x=c(10^(3:6)), y=c(10^(3:6)))
ggplot(df, aes(x=x, y=y))+geom_point()+scale_x_log10(labels=comma)+scale_y_log10(labels=comma)

Answer 1

也许有更好的方法，但是我只是看了代码comma()（通过自己输入函数名称）并编写了一个plain()不使用big.mark=","参数的新函数：

plain <- function(x,...) {
   format(x, ..., scientific = FALSE, trim = TRUE)
}
ggplot(df, aes(x=x, y=y))+
 geom_point()+scale_x_log10(labels=plain)+scale_y_log10(labels=plain)