ggplot перевернуть и преобразовать координаты

Я хочу преобразовать координату (не масштаб / значения), чтобы переменная y (перевернутая на x) была лучше разнесена. Я думал, что это будетcoord_trans(y="log10") или жеcoord_trans(y="log2") или что-то, но это не похоже на работу.

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())

Я не хочу, чтобы изменить масштаб значений:

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())

Ответы на вопрос(1)

Ваш ответ на вопрос