R

时间:2018-08-07 04:16:18

标签: r plotly r-plotly

我有一个瀑布图,我想使用两个下拉过滤器框(一个很好,但它是我遇到问题的第二个)。最初似乎提供了正确的图表,但是当我单击一个下拉框时,图表消失或显示给定选择的错误值。

我的数据:

 my_data <- structure(list(Cohort = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L), .Label = c("2003", "2006", "2009"), class = "factor"), ind = structure(c(1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 
4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 
4L, 4L, 4L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 
3L, 3L, 4L, 4L, 4L, 4L, 4L), .Label = c("Aspiration", "Gender", 
"Low_SES", "Parent_edu"), class = "factor"), Category = structure(c(1L, 
2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 
3L, 4L, 5L, 1L, 2L, 3L, 5L, 1L, 2L, 3L, 5L, 1L, 2L, 3L, 5L, 1L, 
2L, 3L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 4L, 5L, 1L, 2L, 3L, 
4L, 5L, 1L, 2L, 3L, 4L, 5L), .Label = c("Aspiration", "Closest_uni_distance_g2", 
"Educ_occupation_quartile", "Family_structure", "Gender"), class = "factor"), 
    roll = c(0.0750803710978645, 0.076436441980399, 0.0925424424098545, 
    0.0950458976596428, 0.0917674134165381, -0.345423918218276, 
    -0.347660661701295, -0.356519150007063, -0.360758049199678, 
    -0.372940308381271, -0.0453779875920708, -0.0465416728725297, 
    -0.047252123130504, -0.0463144654922128, -0.127690827133109, 
    -0.0607795367471432, -0.0598934089046648, -0.0814516006011201, 
    -0.0836894858818226, -0.0840952435220562, 0.0874835324452846, 
    0.0912364919757644, 0.105777226141928, 0.106963827631275, 
    0.356379384253744, 0.36207727951625, 0.370840500815585, 0.384840489694092, 
    -0.0475543917831162, -0.0478582465019799, -0.0487284614746369, 
    -0.13308503060702, 0.0441449522093825, 0.0505563180773581, 
    0.0658006236043333, 0.0683279904326434, 0.07261902634577, 
    0.0778692418494206, 0.0872004492519247, 0.0850098679360723, 
    0.0838837730292262, 0.32446212681395, 0.328231007457026, 
    0.335365279883835, 0.332040073705212, 0.351959150036042, 
    0.0536891922354224, 0.0544669559094648, 0.0551853855166302, 
    0.0555352735715207, 0.133232816312245, 0.0519405537106114, 
    0.0591010371260817, 0.0794756801714813, 0.0793173156131281, 
    0.0777547869099181), base = c(0, 0.0750803710978645, 0.076436441980399, 
    0.0925424424098545, 0.0950458976596428, 0, -0.345423918218276, 
    -0.347660661701295, -0.356519150007063, -0.360758049199678, 
    0, -0.0453779875920708, -0.0465416728725297, -0.047252123130504, 
    -0.0463144654922128, 0, -0.0607795367471432, -0.0598934089046648, 
    -0.0814516006011201, -0.0836894858818226, 0, 0.0874835324452846, 
    0.0912364919757644, 0.105777226141928, 0, 0.356379384253744, 
    0.36207727951625, 0.370840500815585, 0, -0.0475543917831162, 
    -0.0478582465019799, -0.0487284614746369, 0, 0.0441449522093825, 
    0.0505563180773581, 0.0658006236043333, 0, 0.07261902634577, 
    0.0778692418494206, 0.0872004492519247, 0.0850098679360723, 
    0, 0.32446212681395, 0.328231007457026, 0.335365279883835, 
    0.332040073705212, 0, 0.0536891922354224, 0.0544669559094648, 
    0.0551853855166302, 0.0555352735715207, 0, 0.0519405537106114, 
    0.0591010371260817, 0.0794756801714813, 0.0793173156131281
    ), roll_minus_base = c(0.0750803710978645, 0.00135607088253455, 
    0.0161060004294555, 0.00250345524978828, -0.00327848424310467, 
    -0.345423918218276, -0.0022367434830185, -0.00885848830576863, 
    -0.00423889919261472, -0.0121822591815926, -0.0453779875920708, 
    -0.00116368528045896, -0.000710450257974227, 0.000937657638291178, 
    -0.0813763616408965, -0.0607795367471432, 0.000886127842478407, 
    -0.0215581916964553, -0.00223788528070247, -0.000405757640233637, 
    0.0874835324452846, 0.00375295953047973, 0.0145407341661632, 
    0.00118660148934696, 0.356379384253744, 0.00569789526250536, 
    0.00876322129933566, 0.0139999888785068, -0.0475543917831162, 
    -0.000303854718863766, -0.000870214972656977, -0.0843565691323827, 
    0.0441449522093825, 0.00641136586797556, 0.0152443055269752, 
    0.00252736682831006, 0.07261902634577, 0.00525021550365058, 
    0.00933120740250415, -0.00219058131585249, -0.00112609490684605, 
    0.32446212681395, 0.00376888064307568, 0.00713427242680886, 
    -0.00332520617862214, 0.0199190763308294, 0.0536891922354224, 
    0.000777763674042455, 0.000718429607165359, 0.000349888054890515, 
    0.0776975427407239, 0.0519405537106114, 0.00716048341547032, 
    0.0203746430453996, -0.000158364558353163, -0.00156252870321001
    ), Colour = c("rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(255, 0, 0, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", "rgba(120, 162, 47, 0.7)", 
    "rgba(120, 162, 47, 0.7)", "rgba(255, 0, 0, 0.7)", "rgba(255, 0, 0, 0.7)"
    )), row.names = c(NA, -56L), class = "data.frame")

我创建图表的代码:

p <- plot_ly(my_data, x = ~Category, y = ~base, type = 'bar',marker=list(color =  'rgba(1,1,1, 0.0)'),
             transforms = list(list( 
               type = 'filter',
               target = ~Cohort,
               operation = '=',
               value = unique(my_data$Cohort)[1]),
               list( 
                 type = 'filter',
                 target = ~ind,
                 operation = '=',
                 value = unique(my_data$ind)[1]))) %>% 
add_trace(y = ~roll_minus_base,  marker=list(color = ~Colour,
                                             line = list(color = ~Colour,width = 2))) %>% 
  layout(title = 'Decomposition',
         xaxis = list(title = ""),
         yaxis = list(title = "",
                      range = c(floor(min(my_data$roll)*10)/10, ceiling(max(my_data$roll)*10)/10)),
         barmode = 'stack',
         paper_bgcolor = 'rgba(245, 246, 249, 1)',
         plot_bgcolor = 'rgba(245, 246, 249, 1)',
         showlegend = FALSE,
         updatemenus = list(
           list(
             type = 'dropdown',
             active = 0,
             buttons = apply(as.data.frame(unique(my_data$ind)), 1, 
                             function(x) list(method = 'restyle',args = list('transforms[2].value',x),label = x))),
           list(
             type = 'dropdown',
             active = 0,
             buttons = apply(as.data.frame(unique(my_data$Cohort)), 1, 
                             function(x) list(method = 'restyle',args = list('transforms[1].value',x),label = x)))
         ))
p

1 个答案:

答案 0 :(得分:0)

没有重大问题,下拉框仅引用了不正确的转换。

  • $ ind下拉列表应引用'transforms [1] .value'
  • $ cohort下拉列表应引用'transforms [0] .value'

我对Plotly来说还很陌生,但看起来转换具有0:n列表索引,而不是像R中那样的1:n列表索引。