ggproto में, समन्वय $ ट्रांसफॉर्म ने कुछ कॉलम को [0, 1]

Question

में परिवर्तित नहीं किया है, मैं एक नया जियोम प्रकार बनाना चाहता हूं: geom_ohlc(), जो कैंडलस्टिक चार्ट की तरह कुछ है, स्टॉक को खोलने के लिए ओपन-हाई-लो- बंद डेटा।

इस Hadley's article सीखने के बाद: मैं इस कोशिश की:

GeomOHLC <- ggproto(`_class` = "GeomOHLC", `_inherit` = Geom, 

       required_aes = c("x", "op", "hi", "lo", "cl"), 

       draw_panel = function(data, panel_scales, coord){ 

        coords <- coord$transform(data, panel_scales) 
        browser() # <<-- here is where I found the problem 
        grid::gList(
        grid::rectGrob(
         x = coords$x, 
         y = pmin(coords$op, coords$cl), 
         vjust = 0, 
         width = 0.01, 
         height = abs(coords$op - coords$cl), 
         gp = grid::gpar(col = coords$color, fill = "yellow") 
        ), 
        grid::segmentsGrob(
         x0 = coords$x, 
         y0 = coords$lo, 
         x1 = coords$x, 
         y1 = coords$hi 
         ) 
        ) 
       }) 
    geom_ohlc <- function(data = NULL, mapping = NULL, stat = "identity", position = "identity", na.rm = FALSE, show.legend = NA, inherit.aes = TRUE, ...) 
    { 
     layer(
     geom = GeomOHLC, mapping = mapping, data = data, 
     stat = stat, position = position, show.legend = show.legend, 
     inherit.aes = inherit.aes, params = list(na.rm = na.rm, ...) 
    ) 
    } 
    dt <- data.table(x = 1:10, open = 1:10, high = 3:12, low = 0:9, close = 2:11) 
    p <- ggplot(dt, aes(x = x, op = open, hi = high, lo = low, cl = close)) + 
     geom_ohlc() 
    p 

सादगी के लिए

, मैं सिर्फ पट्टी का रंग विचार नहीं करते।

परिणाम साजिश इस तरह है:

मैं एक browser() अंदर ggproto समारोह जोड़ने के लिए, और मैंने पाया कि coord$transform interverl में op, hi, lo, cl सौंदर्यशास्त्र को बदलने नहीं हुआ [ 0,1]। इस समस्या से कैसे निपटा जाए ?

इसके अलावा, हैडली के लेख को छोड़कर अपने स्वयं के जियोम प्रकार को बनाने के तरीके के बारे में कोई अन्य दस्तावेज है?

Answer 1

ओपी के प्रश्न के तहत टिप्पणियों में उल्लिखित अनुसार समस्या aes_to_scale()transform_position() के अंदर फ़ंक्शन है, जिसे बदले में coord$transform कहा जाता है। परिवर्तन x, xmin, xmax, xend, xintercept नामक चर के लिए सीमित हैं और वाई धुरी के समकक्ष हैं। यह transform_position के लिए मदद में बताया गया है:

Description

Convenience function to transform all position variables.

Usage

transform_position(df, trans_x = NULL, trans_y = NULL, ...) Arguments

trans_x, trans_y Transformation functions for x and y aesthetics. (will transform x, xmin, xmax, xend etc) ... Additional arguments passed to trans_x and trans_y.

का संभावित हल ओपी द्वारा इस्तेमाल किया चर नाम के बजाय उन चर नाम का उपयोग करने के लिए होगा। निम्नलिखित कोड चर बदलने में काम करता है लेकिन यह कहीं और विफल रहता है (अंत में देखें)। मैं इच्छित साजिश के विवरण नहीं जानता, इसलिए इस त्रुटि को ठीक करने का प्रयास नहीं किया।

GeomOHLC <- ggproto(
    `_class` = "GeomOHLC", 
    `_inherit` = Geom, 

    required_aes = c("x", "yintercept", "ymin", "ymax", "yend"), 

    draw_panel = function(data, panel_scales, coord) { 
    coords <- coord$transform(data, panel_scales) 
    #browser() # <<-- here is where I found the problem 
    grid::gList(
     grid::rectGrob(
     x = coords$x, 
     y = pmin(coords$yintercept, coords$yend), 
     vjust = 0, 
     width = 0.01, 
     height = abs(coords$op - coords$cl), 
     gp = grid::gpar(col = coords$color, fill = "yellow") 
    ), 
     grid::segmentsGrob(
     x0 = coords$x, 
     y0 = coords$ymin, 
     x1 = coords$x, 
     y1 = coords$ymax 
    ) 
    ) 
    } 
) 
geom_ohlc <- 
    function(data = NULL, 
      mapping = NULL, 
      stat = "identity", 
      position = "identity", 
      na.rm = FALSE, 
      show.legend = NA, 
      inherit.aes = TRUE, 
      ...) 
    { 
    layer(
     geom = GeomOHLC, 
     mapping = mapping, 
     data = data, 
     stat = stat, 
     position = position, 
     show.legend = show.legend, 
     inherit.aes = inherit.aes, 
     params = list(na.rm = na.rm, ...) 
    ) 
    } 
dt <- 
    data.table(
    x = 1:10, 
    open = 1:10, 
    high = 3:12, 
    low = 0:9, 
    close = 2:11 
) 
p <- 
    ggplot(dt, aes(
    x = x, 
    yintercept = open, 
    ymin = high, 
    ymax = low, 
    yend = close 
)) + 
    geom_ohlc() 
p 

यह चर बदल देती है, लेकिन निम्न त्रुटि पैदा करता है:

Error in unit(height, default.units) : 
    'x' and 'units' must have length > 0 

लेकिन यहाँ से उम्मीद है कि यह काम करने के लिए बनाया जा सकता है।

नोट: मैंने मूल परिवर्तनीय नामों (ओप, हाय, लो, सीएल) के बीच मैपिंग को मनमाने ढंग से चुना है। विशेष रूप से yintercept अच्छी तरह से फिट नहीं लग रहा है। शायद ggplot2 में मनमाना पैमाने चर नामों का समर्थन करने की आवश्यकता है?