Как изменить форматирование чисел на оси с помощью 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")

Любая помощь высоко ценится.

Источник

5 ответов

Решение

Я также нашел другой способ сделать это, который дает правильное обозначение "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)
Источник

Другой вариант - отформатировать метки осей с запятыми, используя пакет scales, и добавить

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

к вашему заявлению ggplot.

Если вы не хотите загружать пакет, используйте:

scale_y_continuous(name="Fluorescent intensity/arbitrary units", labels = scales::comma)
Источник 
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)
Источник
Другие вопросы по тегам