ggplot kippen und Koordinate transformieren

Ich möchte die Koordinate (nicht die Skala / Werte) transformieren, damit die y-Variable (gespiegelt zu x) einen besseren Abstand hat. Ich dachte es wärecoord_trans(y="log10") odercoord_trans(y="log2") oder so, aber das scheint nicht zu funktionieren.

library(ggplot2)
library(scales)

dat <- structure(list(median=c(2893, 0, 907.5, 1315, 0, 84, 98, 953, 
                               0, 0, 1349, 17.5, 48.5, 7, 28, 18, 14, 37.5, 0, 383, 220.5, 49, 
                               86.5, 816.5, 38, 41, 38, 1302, 14, 0, 1304, 754, 424.5, 0, 35.5, 
                               28, 32, 0, 39), 
                      name = c("name 1", "name 2", "name 3", "name 4", 
                               "name 5", "name 6", "name 7", "name 8", "name 9", "name 10", 
                               "name 11", "name 12", "name 13", "name 14", "name 15", "name 16", 
                               "name 17", "name 18", "name 19", "name 20", "name 21", "name 22", 
                               "name 23", "name 24", "name 25", "name 26", "name 27", "name 28", 
                               "name 29", "name 30", "name 31", "name 32", "name 33", "name 34", 
                               "name 35", "name 36", "name 37", "name 38", "name 39")), 
                 .Names = c("median", "name"), row.names = c(NA, -39L), class = "data.frame")


dat = transform(dat, name = reorder(name, median))

ggplot(dat) +
  geom_point(aes(y=median, x=name)) +
  #coord_trans(y="log10") +
  coord_flip() +
  theme_bw() +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    axis.line = element_line(color = 'black'),
    panel.background = element_blank(),
    axis.title.y = element_blank())

Ich möchte die Werte NICHT neu skalieren:

ggplot(dat) +
  geom_point(aes(y=median, x=name)) +
  scale_y_log10() +
  coord_flip() +
  theme_bw() +
  theme(
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    axis.line = element_line(color = 'black'),
    panel.background = element_blank(),
    axis.title.y = element_blank())

Antworten auf die Frage(1)

Ihre Antwort auf die Frage