Вопрос по ggplot2, r – Как я могу отформатировать метки осей с показателями ggplot2 и масштабами?

16

С новой версией ggplot2 и масштабами я не могу понять, как получить метку оси в научной нотации. Например:

x <- 1:4
y <- c(0, 0.0001, 0.0002, 0.0003)

dd <- data.frame(x, y)

ggplot(dd, aes(x, y)) + geom_point()

дает мне

Example ggplot with scales

Мне бы хотелось, чтобы метки осей были 0, 5 × 10 ^ -5, 1 × 10 ^ -4, 1,5 × 10 ^ -4 и т. Д. Я не могу определить правильную комбинациюscale_y_continuous() а такжеmath_format() (по крайней мере, я думаю, что это то, что мне нужно).

scale_y_log10() log преобразует ось, которую я не хочу.scale_y_continuous(label = math_format()) просто дает мне 10 ^ 0, 10 ^ 5e-5 и т. д. Я понимаю, почему последний дает такой результат, но это не то, что я ищу.

Я использую ggplot2_0.9.1 и scale_0.2.1

Error: User Rate Limit Exceeded Ben Bolker
Error: User Rate Limit Exceeded kmm
Error: User Rate Limit Exceeded Brian Diggs
Error: User Rate Limit Exceeded joran
Error: User Rate Limit Exceededstackoverflow.com/questions/9651903/… ? Ben Bolker

Ваш Ответ

5   ответов
26

x <- 1:4
y <- c(0, 0.0001, 0.0002, 0.0003)

dd <- data.frame(x, y)

scientific_10 <- function(x) {
  parse(text=gsub("e", " %*% 10^", scales::scientific_format()(x)))
}

ggplot(dd, aes(x, y)) + geom_point()+scale_y_continuous(label=scientific_10)

enter image description here

Error: User Rate Limit Exceeded
19

trans_formattrans_breaksscales

    library(ggplot2)
    library(scales)

    x <- 1:4
    y <- c(0, 0.0001, 0.0002, 0.0003)
    dd <- data.frame(x, y)

    ggplot(dd, aes(x, y)) + geom_point() +
    scale_y_log10("y",
        breaks = trans_breaks("log10", function(x) 10^x),
        labels = trans_format("log10", math_format(10^.x)))

enter image description here

Error: User Rate Limit Exceededstackoverflow.com/questions/46639120/…Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded
4

scientific_10 <- function(x) {
    xout <- gsub("1e", "10^{", format(x),fixed=TRUE)
    xout <- gsub("{-0", "{-", xout,fixed=TRUE)
    xout <- gsub("{+", "{", xout,fixed=TRUE)
    xout <- gsub("{0", "{", xout,fixed=TRUE)
    xout <- paste(xout,"}",sep="")
    return(parse(text=xout))
}

scale_x_log10nice <- function(name=NULL,omag=seq(-10,20),...) {
    breaks10 <- 10^omag
    scale_x_log10(name,breaks=breaks10,labels=scientific_10(breaks10),...)
}

scale_y_log10nice <- function(name=NULL,omag=seq(-10,20),...) {
    breaks10 <- 10^omag
    scale_y_log10(name,breaks=breaks10,labels=scientific_10(breaks10),...)
}

scale_loglog <- function(...) {
    list(scale_x_log10nice(...),scale_y_log10nice(...))
}

qplot(x=exp(5*rnorm(100)),geom="density",kernel="rectangular") + 
    scale_x_log10nice()
3

scale_y_continuous(label= function(x) {ifelse(x==0, "0", parse(text=gsub("[+]", "", gsub("e", " %*% 10^", scientific_format()(x)))))} ) +
10
scale_y_continuous(label=scientific_format())

enter image description here

scientific_10 <- function(x) {
  gsub("e", " x 10^", scientific_format()(x))
}

ggplot(dd, aes(x, y)) + geom_point() + 
  scale_y_continuous(label=scientific_10)

enter image description here

Error: User Rate Limit Exceeded
Error: User Rate Limit Exceeded kmm
Error: User Rate Limit Exceeded
Error: User Rate Limit Exceededmath_format()Error: User Rate Limit Exceeded

Похожие вопросы