r - ggplot2 : full number without comma? 中的日志轴标签

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)