ggplotでの日時の逆転（POSIXctデータ）軸

Question

私はggplotを使ってPOSIXct時間のプロットを作成しようとしていますが、軸を逆にしたいのですが、動作させるのが苦労しています。 私はscale_y_datetimeを使っています。実際のアプリケーションでは、この軸でブレークを制御することが重要です。

これは私の問題の例です。最初は通常の順序で、次に軸を逆転しようとしました。私は限界を反転させることにより、Y軸を逆転しようとすると

、私はこのように、すべてのブレークやデータを失う：

ggplot(MyData, aes(x=Value, y=Date)) + 
    geom_point() + 
    scale_y_datetime(limits=c(max(MyData$Date),min(MyData$Date))) 

この生成

# Some random dates and values to plot 
MyData <- 
    structure(list(Date = structure(c(1492979809.99827, 1492602845.68722, 
    1493093428.90318, 1492605578.0691, 1492961342.65056, 1492771976.83545, 
    1493020588.88485, 1493057018.85104, 1492852011.23873, 1492855996.55059 
), class = c("POSIXct", "POSIXt")), Value = c(4.52885504579172, 
    6.0024610790424, 8.96430060034618, 7.06435370026156, 5.08460514713079, 
    3.47828012891114, 6.29844291834161, 0.898315710946918, 1.44857675535604, 
    5.74641009094194)), .Names = c("Date", "Value"), row.names = c(NA, 
    -10L), class = "data.frame") 

library(ggplot2) 
library(scales) 
ggplot(MyData, aes(x=Value, y=Date)) + 
    geom_point() + 
    scale_y_datetime(limits=c(min(MyData$Date),max(MyData$Date))) 

datetime軸を反転する簡単な方法はありますか？ここハドレーウィッカムからこのpostから助けを借りて

Answer 1

を使用すると、逆日時スケールを得ることができる方法である：ここでは

c_trans <- function(a, b, breaks = b$breaks, format = b$format) { 
    a <- as.trans(a) 
    b <- as.trans(b) 

    name <- paste(a$name, b$name, sep = "-") 

    trans <- function(x) a$trans(b$trans(x)) 
    inv <- function(x) b$inverse(a$inverse(x)) 

    trans_new(name, trans, inv, breaks, format) 
} 

rev_date <- c_trans("reverse", "time") 

ggplot(MyData, aes(x=Value, y=Date)) + 
    geom_point() + 
    scale_y_continuous(trans = rev_date) 

はプロットである：