Як змінити форматування чисел на осі за допомогою ggplot?

Я використовую R та ggplot, щоб намалювати розсип деяких даних, все добре, за винятком того, що цифри на осі y виходять із форматуванням експонентів комп'ютерного стилю, тобто 4e + 05, 5e + 05 і т. Д. Це очевидно неприйнятні, тому я хочу, щоб вони відображали їх як 500 000, 400 000 тощо. Отримання відповідних позначень експонентів також було б прийнятним.

Код сюжету такий:

p <- ggplot(valids, aes(x=Test, y=Values)) +
  geom_point(position="jitter") +
  facet_grid(. ~ Facet) +
  scale_y_continuous(name="Fluorescent intensity/arbitrary units") +
  scale_x_discrete(name="Test repeat") +
  stat_summary(fun.ymin=median, fun.ymax=median, fun.y=median, geom="crossbar")

Будь-яка допомога дуже цінується.

Іншим варіантом є відформатування міток осей за допомогою коми через використання пакета scalesта додавання

 scale_y_continuous(name="Fluorescent intensity/arbitrary units", labels = comma)

до вашої заяви ggplot.

Якщо ви не хочете завантажувати пакет, використовуйте:

scale_y_continuous(name="Fluorescent intensity/arbitrary units", labels = scales::comma)

Я також знайшов інший спосіб зробити це, який дає належні позначення 'x10 (надзапис) 5' на осях. Я розміщую його тут, сподіваючись, що він може бути корисним. Я отримав код звідси, тому я не претендую на нього, але це правильно відповідає Брайану Діггсу.

fancy_scientific <- function(l) {
     # turn in to character string in scientific notation
     l <- format(l, scientific = TRUE)
     # quote the part before the exponent to keep all the digits
     l <- gsub("^(.*)e", "'\\1'e", l)
     # turn the 'e+' into plotmath format
     l <- gsub("e", "%*%10^", l)
     # return this as an expression
     parse(text=l)
}

Який ви можете потім використовувати як

ggplot(data=df, aes(x=x, y=y)) +
   geom_point() +
   scale_y_continuous(labels=fancy_scientific) 

x <- rnorm(10) * 100000
y <- seq(0, 1, length = 10)
p <- qplot(x, y)
library(scales)
p + scale_x_continuous(labels = comma)

Я запізнююсь на грі тут, але на випадок, коли інші хочуть простого рішення, я створив набір функцій, які можна назвати так:

 ggplot + scale_x_continuous(labels = human_gbp)

які дають вам читати людські номери для осей x або y (або взагалі будь-яке число).

Ви можете знайти тут функції: Github Repo Просто скопіюйте функції у свій сценарій, щоб ви могли їх викликати.

Я вважаю, що відповідь Джека Едлі є корисною.

Я хотів викинути ще один варіант. Припустимо, у вас є серія з безліччю малих чисел, і ви хочете, щоб мітки осей виписали повний десятковий знак (наприклад, 5e-05 -> 0,0005), тоді:

NotFancy <- function(l) {
 l <- format(l, scientific = FALSE)
 parse(text=l)
}

ggplot(data = data.frame(x = 1:100, 
                         y = seq(from=0.00005,to = 0.0000000000001,length.out=100) + runif(n=100,-0.0000005,0.0000005)), 
       aes(x=x, y=y)) +
     geom_point() +
     scale_y_continuous(labels=NotFancy)