# Get this figure: fig <- get_figure("snawel", 32)
# Get this figure's data: data <- get_figure("snawel", 32)$data
# Add data to this figure: p <- add_trace(p, x=c(4, 5), y=c(4, 5), kwargs=list(filename="plot from API (7)", fileopt="extend"))
# Get y data of first trace: y1 <- get_figure("snawel", 32)$data[[1]]$y

# Get figure documentation: https://plotly.com/r/get-requests/
# Add data documentation: https://plotly.com/r/file-options/

# You can reproduce this figure in R with the following code!

# Learn about API authentication here: https://plotly.com/r/getting-started
# Find your api_key here: https://plotly.com/settings/api

library(plotly)
trace1 <- list(
  type = "heatmap", 
  x = c("Isuzu", "Mercury", "Suzuki", "Saturn", "Saab", "Pontiac", "Hummer", "Ram", "Fiat", "Scion", "Mitsubishi", "Range Rover", "Mini", "Other", "Chrysler", "Mazda", "Land Rover", "Porsche", "Gmc", "Dodge", "Jeep", "Kia", "Subaru", "Jaguar", "Volkswagen", "Hyundai", "Lincoln", "Buick", "Tesla", "Chevrolet", "Nissan", "Volvo", "Infiniti", "Cadillac", "Acura", "Ford", "Don't Know", "Honda", "Toyota", "Audi", "Mercedes", "Lexus", "BMW"), 
  y = c("Lexus", "BMW", "Mercedes", "Audi", "Toyota", "Don't Know", "Acura", "Cadillac", "Honda", "Ford", "Infiniti", "Volvo", "Tesla", "Lincoln", "Chevrolet", "Nissan", "Buick", "Hyundai", "Jaguar", "Subaru", "Dodge", "Volkswagen", "Porsche", "Kia", "Jeep", "Gmc", "Chrysler", "Land Rover", "Mazda", "Other", "Mitsubishi", "Mini", "Range Rover", "Ram", "Fiat", "Hummer", "Scion", "Saab", "Isuzu", "Suzuki", "Saturn", "Pontiac"), 
  z = list(c(0.375, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.25, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.375),list("None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None", "None"),list(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.16666666666666666, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.8333333333333334, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0, 0.3076923076923077, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.23076923076923078, 0.23076923076923078, 0.0, 0.15384615384615385, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.07692307692307693, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 1.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.25, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.125, 0.125, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.5, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0, 0.0, 0.037037037037037035, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.25925925925925924, 0.0, 0.0, 0.0, 0.0, 0.0, 0.07407407407407407, 0.1111111111111111, 0.0, 0.0, 0.0, 0.25925925925925924, 0.0, 0.0, 0.0, 0.1111111111111111, 0.1111111111111111, 0.037037037037037035, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.043478260869565216, 0.21739130434782608, 0.0, 0.043478260869565216, 0.0, 0.0, 0.21739130434782608, 0.13043478260869565, 0.13043478260869565, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.13043478260869565, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.08695652173913043, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.2, 0.0, 0.0, 0.13333333333333333, 0.0, 0.0, 0.0, 0.0, 0.13333333333333333, 0.3333333333333333, 0.0, 0.0, 0.0, 0.0, 0.0, 0.2, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.6349206349206349, 0.0, 0.0, 0.0, 0.047619047619047616, 0.031746031746031744, 0.047619047619047616, 0.0, 0.031746031746031744, 0.0, 0.1111111111111111, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.031746031746031744, 0.047619047619047616, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.015873015873015872, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.05660377358490566, 0.1509433962264151, 0.2641509433962264, 0.07547169811320754, 0.0, 0.018867924528301886, 0.018867924528301886, 0.018867924528301886, 0.0, 0.0, 0.0, 0.03773584905660377, 0.0, 0.05660377358490566, 0.0, 0.018867924528301886, 0.0, 0.0, 0.18867924528301888, 0.0, 0.0, 0.0, 0.0, 0.0, 0.03773584905660377, 0.05660377358490566, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.14285714285714285, 0.25, 0.07142857142857142, 0.05357142857142857, 0.14285714285714285, 0.0, 0.0, 0.0, 0.05357142857142857, 0.08928571428571429, 0.05357142857142857, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.017857142857142856, 0.0, 0.0, 0.03571428571428571, 0.0, 0.0, 0.017857142857142856, 0.0, 0.0, 0.0, 0.07142857142857142, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.022988505747126436, 0.10919540229885058, 0.08620689655172414, 0.07471264367816093, 0.011494252873563218, 0.05747126436781609, 0.0, 0.07471264367816093, 0.034482758620689655, 0.12643678160919541, 0.0, 0.0, 0.028735632183908046, 0.022988505747126436, 0.0, 0.011494252873563218, 0.022988505747126436, 0.0, 0.07471264367816093, 0.0, 0.017241379310344827, 0.0, 0.034482758620689655, 0.0, 0.011494252873563218, 0.011494252873563218, 0.017241379310344827, 0.017241379310344827, 0.0, 0.13218390804597702, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.1067193675889328, 0.06719367588932806, 0.06324110671936758, 0.011857707509881422, 0.03162055335968379, 0.0, 0.0, 0.19367588932806323, 0.03162055335968379, 0.11067193675889328, 0.019762845849802372, 0.019762845849802372, 0.007905138339920948, 0.05138339920948617, 0.039525691699604744, 0.011857707509881422, 0.003952569169960474, 0.023715415019762844, 0.023715415019762844, 0.003952569169960474, 0.09486166007905138, 0.0, 0.0, 0.0, 0.02766798418972332, 0.019762845849802372, 0.0, 0.0, 0.0, 0.023715415019762844, 0.0, 0.0, 0.0, 0.0, 0.011857707509881422, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.078125, 0.041666666666666664, 0.0625, 0.09895833333333333, 0.07291666666666667, 0.0, 0.052083333333333336, 0.015625, 0.07291666666666667, 0.078125, 0.0, 0.036458333333333336, 0.015625, 0.020833333333333332, 0.03125, 0.078125, 0.0, 0.041666666666666664, 0.036458333333333336, 0.0625, 0.010416666666666666, 0.010416666666666666, 0.0, 0.03125, 0.010416666666666666, 0.005208333333333333, 0.0, 0.010416666666666666, 0.005208333333333333, 0.015625, 0.005208333333333333, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.10204081632653061, 0.1469387755102041, 0.1469387755102041, 0.08571428571428572, 0.04897959183673469, 0.0, 0.0163265306122449, 0.10204081632653061, 0.02857142857142857, 0.04081632653061224, 0.00816326530612245, 0.024489795918367346, 0.004081632653061225, 0.02040816326530612, 0.0, 0.0163265306122449, 0.00816326530612245, 0.0, 0.0326530612244898, 0.00816326530612245, 0.012244897959183673, 0.004081632653061225, 0.07346938775510205, 0.0, 0.02040816326530612, 0.0, 0.0, 0.00816326530612245, 0.0, 0.02040816326530612, 0.0, 0.004081632653061225, 0.0163265306122449, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.04643962848297214, 0.17647058823529413, 0.22910216718266255, 0.14860681114551083, 0.021671826625386997, 0.02786377708978328, 0.030959752321981424, 0.034055727554179564, 0.0, 0.021671826625386997, 0.009287925696594427, 0.009287925696594427, 0.03715170278637771, 0.0, 0.01238390092879257, 0.018575851393188854, 0.0, 0.009287925696594427, 0.018575851393188854, 0.0, 0.0, 0.021671826625386997, 0.018575851393188854, 0.006191950464396285, 0.009287925696594427, 0.009287925696594427, 0.006191950464396285, 0.02476780185758514, 0.006191950464396285, 0.02786377708978328, 0.0, 0.0030959752321981426, 0.015479876160990712, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.11347517730496454, 0.06382978723404255, 0.0425531914893617, 0.04964539007092199, 0.0673758865248227, 0.010638297872340425, 0.028368794326241134, 0.10638297872340426, 0.0070921985815602835, 0.19858156028368795, 0.010638297872340425, 0.031914893617021274, 0.010638297872340425, 0.0070921985815602835, 0.07801418439716312, 0.014184397163120567, 0.024822695035460994, 0.0, 0.0070921985815602835, 0.010638297872340425, 0.014184397163120567, 0.0070921985815602835, 0.0035460992907801418, 0.010638297872340425, 0.01773049645390071, 0.01773049645390071, 0.0035460992907801418, 0.010638297872340425, 0.0, 0.0, 0.0, 0.0, 0.0070921985815602835, 0.0, 0.0, 0.014184397163120567, 0.0070921985815602835, 0.0, 0.0, 0.0, 0.0, 0.0035460992907801418),list(0.02577319587628866, 0.14432989690721648, 0.14175257731958762, 0.04639175257731959, 0.06443298969072164, 0.0, 0.0, 0.03350515463917526, 0.01288659793814433, 0.11597938144329897, 0.01288659793814433, 0.0, 0.01288659793814433, 0.007731958762886598, 0.16494845360824742, 0.059278350515463915, 0.005154639175257732, 0.015463917525773196, 0.005154639175257732, 0.0, 0.03865979381443299, 0.005154639175257732, 0.0, 0.0, 0.01804123711340206, 0.01288659793814433, 0.02577319587628866, 0.007731958762886598, 0.0, 0.0, 0.0, 0.005154639175257732, 0.005154639175257732, 0.0, 0.007731958762886598, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.005154639175257732),list(0.03571428571428571, 0.08116883116883117, 0.08116883116883117, 0.048701298701298704, 0.048701298701298704, 0.03571428571428571, 0.012987012987012988, 0.05519480519480519, 0.06168831168831169, 0.1331168831168831, 0.02922077922077922, 0.02922077922077922, 0.006493506493506494, 0.00974025974025974, 0.025974025974025976, 0.048701298701298704, 0.01948051948051948, 0.003246753246753247, 0.003246753246753247, 0.003246753246753247, 0.048701298701298704, 0.022727272727272728, 0.0, 0.01948051948051948, 0.016233766233766232, 0.00974025974025974, 0.025974025974025976, 0.01948051948051948, 0.0, 0.00974025974025974, 0.0, 0.006493506493506494, 0.0, 0.012987012987012988, 0.006493506493506494, 0.012987012987012988, 0.006493506493506494, 0.0, 0.00974025974025974, 0.0, 0.0, 0.0),list(0.08227848101265822, 0.08544303797468354, 0.03164556962025317, 0.04113924050632911, 0.11075949367088607, 0.0, 0.03164556962025317, 0.0189873417721519, 0.10126582278481013, 0.10126582278481013, 0.012658227848101266, 0.022151898734177215, 0.0189873417721519, 0.02531645569620253, 0.0379746835443038, 0.03481012658227848, 0.015822784810126583, 0.06645569620253164, 0.03164556962025317, 0.028481012658227847, 0.015822784810126583, 0.012658227848101266, 0.0, 0.0, 0.0, 0.015822784810126583, 0.012658227848101266, 0.022151898734177215, 0.022151898734177215, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.06896551724137931, 0.09852216748768473, 0.03201970443349754, 0.11083743842364532, 0.14285714285714285, 0.0024630541871921183, 0.019704433497536946, 0.007389162561576354, 0.1354679802955665, 0.03694581280788178, 0.007389162561576354, 0.06403940886699508, 0.014778325123152709, 0.0, 0.029556650246305417, 0.024630541871921183, 0.0049261083743842365, 0.024630541871921183, 0.007389162561576354, 0.0, 0.03940886699507389, 0.06403940886699508, 0.007389162561576354, 0.0, 0.024630541871921183, 0.0, 0.0, 0.0, 0.0049261083743842365, 0.0, 0.0, 0.017241379310344827, 0.0, 0.0, 0.0, 0.0, 0.0024630541871921183, 0.0, 0.0, 0.007389162561576354, 0.0, 0.0),list(0.0670611439842209, 0.19723865877712032, 0.15976331360946747, 0.09072978303747535, 0.021696252465483234, 0.0039447731755424065, 0.013806706114398421, 0.10453648915187377, 0.015779092702169626, 0.05719921104536489, 0.009861932938856016, 0.01775147928994083, 0.013806706114398421, 0.01775147928994083, 0.0019723865877712033, 0.013806706114398421, 0.0, 0.023668639053254437, 0.0, 0.0, 0.009861932938856016, 0.0019723865877712033, 0.04339250493096647, 0.03747534516765286, 0.0, 0.0, 0.02564102564102564, 0.01775147928994083, 0.021696252465483234, 0.0, 0.0, 0.0, 0.005917159763313609, 0.0, 0.0, 0.0, 0.0039447731755424065, 0.0, 0.0, 0.0, 0.0019723865877712033, 0.0),list(0.06068601583113457, 0.14511873350923482, 0.0712401055408971, 0.25065963060686014, 0.0316622691292876, 0.010554089709762533, 0.021108179419525065, 0.002638522427440633, 0.06596306068601583, 0.0395778364116095, 0.0395778364116095, 0.0395778364116095, 0.0, 0.013192612137203167, 0.010554089709762533, 0.013192612137203167, 0.010554089709762533, 0.029023746701846966, 0.0, 0.055408970976253295, 0.010554089709762533, 0.0, 0.005277044854881266, 0.018469656992084433, 0.0, 0.0079155672823219, 0.0, 0.002638522427440633, 0.005277044854881266, 0.026385224274406333, 0.0, 0.0079155672823219, 0.005277044854881266, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.10144927536231885, 0.11755233494363929, 0.05314009661835749, 0.06280193236714976, 0.10950080515297907, 0.00322061191626409, 0.030595813204508857, 0.030595813204508857, 0.07890499194847021, 0.08051529790660225, 0.02254428341384863, 0.00644122383252818, 0.01932367149758454, 0.033816425120772944, 0.027375201288244767, 0.028985507246376812, 0.00644122383252818, 0.0, 0.01610305958132045, 0.024154589371980676, 0.008051529790660225, 0.01932367149758454, 0.0, 0.057971014492753624, 0.008051529790660225, 0.00644122383252818, 0.01288244766505636, 0.0, 0.020933977455716585, 0.001610305958132045, 0.004830917874396135, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.00644122383252818),list(0.13817330210772832, 0.08665105386416862, 0.07728337236533958, 0.04918032786885246, 0.03864168618266979, 0.00936768149882904, 0.03044496487119438, 0.13700234192037472, 0.01756440281030445, 0.19789227166276346, 0.05035128805620609, 0.00351288056206089, 0.00468384074941452, 0.00234192037470726, 0.00819672131147541, 0.01053864168618267, 0.04332552693208431, 0.01288056206088993, 0.01405152224824356, 0.00702576112412178, 0.00585480093676815, 0.00468384074941452, 0.0, 0.01522248243559719, 0.00585480093676815, 0.00351288056206089, 0.01873536299765808, 0.00234192037470726, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.00234192037470726, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.0752212389380531, 0.05604719764011799, 0.02064896755162242, 0.05457227138643068, 0.0752212389380531, 0.01327433628318584, 0.035398230088495575, 0.14454277286135694, 0.045722713864306784, 0.06932153392330384, 0.016224188790560472, 0.029498525073746312, 0.008849557522123894, 0.058997050147492625, 0.05014749262536873, 0.02359882005899705, 0.0, 0.045722713864306784, 0.008849557522123894, 0.03687315634218289, 0.017699115044247787, 0.007374631268436578, 0.0, 0.022123893805309734, 0.017699115044247787, 0.025073746312684365, 0.025073746312684365, 0.004424778761061947, 0.007374631268436578, 0.0, 0.0, 0.0014749262536873156, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0029498525073746312),list(0.14835164835164835, 0.21978021978021978, 0.11208791208791209, 0.08901098901098901, 0.06593406593406594, 0.015384615384615385, 0.03406593406593406, 0.03076923076923077, 0.02967032967032967, 0.023076923076923078, 0.03076923076923077, 0.014285714285714285, 0.005494505494505495, 0.012087912087912088, 0.014285714285714285, 0.024175824175824177, 0.004395604395604396, 0.015384615384615385, 0.013186813186813187, 0.01098901098901099, 0.001098901098901099, 0.014285714285714285, 0.012087912087912088, 0.005494505494505495, 0.001098901098901099, 0.0, 0.006593406593406593, 0.013186813186813187, 0.01098901098901099, 0.012087912087912088, 0.0, 0.005494505494505495, 0.001098901098901099, 0.0, 0.0, 0.0, 0.0032967032967032967, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.05813953488372093, 0.05426356589147287, 0.046511627906976744, 0.05555555555555555, 0.08139534883720931, 0.003875968992248062, 0.002583979328165375, 0.07622739018087855, 0.04780361757105943, 0.21188630490956073, 0.020671834625323, 0.01808785529715762, 0.00904392764857881, 0.011627906976744186, 0.0, 0.02454780361757106, 0.03875968992248062, 0.015503875968992248, 0.015503875968992248, 0.003875968992248062, 0.05167958656330749, 0.003875968992248062, 0.0012919896640826874, 0.027131782945736434, 0.012919896640826873, 0.059431524547803614, 0.015503875968992248, 0.007751937984496124, 0.014211886304909561, 0.007751937984496124, 0.002583979328165375, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.08831521739130435, 0.08016304347826086, 0.050271739130434784, 0.06929347826086957, 0.1453804347826087, 0.0, 0.059782608695652176, 0.03804347826086957, 0.11548913043478261, 0.08831521739130435, 0.05570652173913043, 0.010869565217391304, 0.020380434782608696, 0.004076086956521739, 0.029891304347826088, 0.006793478260869565, 0.004076086956521739, 0.017663043478260868, 0.0, 0.008152173913043478, 0.006793478260869565, 0.010869565217391304, 0.0, 0.014945652173913044, 0.021739130434782608, 0.012228260869565218, 0.004076086956521739, 0.006793478260869565, 0.012228260869565218, 0.004076086956521739, 0.005434782608695652, 0.006793478260869565, 0.0, 0.001358695652173913, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.09137577002053388, 0.13552361396303902, 0.1457905544147844, 0.11704312114989733, 0.05646817248459959, 0.006160164271047228, 0.04209445585215606, 0.02053388090349076, 0.08213552361396304, 0.060574948665297744, 0.01026694045174538, 0.001026694045174538, 0.007186858316221766, 0.017453798767967144, 0.021560574948665298, 0.014373716632443531, 0.008213552361396304, 0.024640657084188913, 0.01026694045174538, 0.04620123203285421, 0.0, 0.021560574948665298, 0.0, 0.006160164271047228, 0.014373716632443531, 0.007186858316221766, 0.007186858316221766, 0.003080082135523614, 0.007186858316221766, 0.003080082135523614, 0.0, 0.009240246406570842, 0.0, 0.0, 0.0, 0.0, 0.002053388090349076, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.22851805728518057, 0.09775840597758406, 0.09464508094645081, 0.08156911581569116, 0.050435865504358655, 0.007471980074719801, 0.08468244084682441, 0.03798256537982565, 0.0460772104607721, 0.024906600249066, 0.0006226650062266501, 0.0186799501867995, 0.019925280199252802, 0.014943960149439602, 0.02054794520547945, 0.0547945205479452, 0.014321295143212951, 0.02303860523038605, 0.00933997509339975, 0.007471980074719801, 0.00311332503113325, 0.0062266500622665, 0.010585305105853052, 0.0062266500622665, 0.011830635118306352, 0.0037359900373599006, 0.0062266500622665, 0.0012453300124533001, 0.0112079701120797, 0.0012453300124533001, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0006226650062266501, 0.0, 0.0, 0.0, 0.0),list(0.13243847874720358, 0.10380313199105146, 0.1087248322147651, 0.04697986577181208, 0.043400447427293064, 0.021029082774049218, 0.027293064876957495, 0.004026845637583893, 0.028635346756152126, 0.050559284116331094, 0.02058165548098434, 0.008501118568232663, 0.013422818791946308, 0.05592841163310962, 0.06353467561521253, 0.012527964205816556, 0.10111856823266219, 0.016554809843400447, 0.027293064876957495, 0.0008948545861297539, 0.01476510067114094, 0.0, 0.0058165548098434005, 0.0044742729306487695, 0.018344519015659956, 0.02237136465324385, 0.028635346756152126, 0.008053691275167786, 0.0026845637583892616, 0.003131991051454139, 0.0, 0.0, 0.0008948545861297539, 0.0026845637583892616, 0.0008948545861297539, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.22942430703624733, 0.10405117270788912, 0.04221748400852878, 0.09893390191897655, 0.05415778251599147, 0.008955223880597015, 0.00810234541577825, 0.029424307036247335, 0.16162046908315564, 0.03837953091684435, 0.07121535181236674, 0.02857142857142857, 0.008955223880597015, 0.006396588486140725, 0.005970149253731343, 0.016631130063965886, 0.014498933901918977, 0.014072494669509595, 0.00255863539445629, 0.017057569296375266, 0.00255863539445629, 0.0021321961620469083, 0.0021321961620469083, 0.003411513859275053, 0.006396588486140725, 0.00511727078891258, 0.001279317697228145, 0.0, 0.009808102345415778, 0.0, 0.0008528784648187633, 0.00255863539445629, 0.00042643923240938164, 0.0, 0.001279317697228145, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0008528784648187633, 0.0),list(0.05782312925170068, 0.0966958211856171, 0.0413022351797862, 0.05053449951409135, 0.08600583090379009, 0.014091350826044704, 0.024295432458697766, 0.0413022351797862, 0.07774538386783285, 0.007288629737609329, 0.013119533527696793, 0.012633624878522837, 0.01020408163265306, 0.0641399416909621, 0.11321671525753159, 0.038386783284742466, 0.02575315840621963, 0.01652089407191448, 0.017006802721088437, 0.006316812439261419, 0.03984450923226433, 0.007288629737609329, 0.006316812439261419, 0.034499514091350825, 0.017006802721088437, 0.022351797862001945, 0.017978620019436346, 0.0029154518950437317, 0.012633624878522837, 0.016034985422740525, 0.0, 0.0009718172983479105, 0.0, 0.0024295432458697765, 0.0024295432458697765, 0.0, 0.001943634596695821, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.005359535506922733, 0.021438142027690933, 0.01205895489057615, 0.009379187137114784, 0.008485931219294328, 0.8878963823135329, 0.0008932559178204555, 0.006699419383653417, 0.005359535506922733, 0.010719071013845467, 0.0026797677534613666, 0.00401965163019205, 0.0026797677534613666, 0.0, 0.003573023671281822, 0.0008932559178204555, 0.0026797677534613666, 0.0013398838767306833, 0.00044662795891022776, 0.0008932559178204555, 0.0, 0.003573023671281822, 0.00044662795891022776, 0.0026797677534613666, 0.00044662795891022776, 0.0013398838767306833, 0.0008932559178204555, 0.0, 0.0, 0.0031263957123715946, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.07430617726051925, 0.08057296329453895, 0.04118173679498657, 0.048343777976723366, 0.2802148612354521, 0.006714413607878245, 0.08683974932855863, 0.01611459265890779, 0.0026857654431512983, 0.07967770814682185, 0.022829006266786033, 0.024619516562220233, 0.008504923903312443, 0.003133393017009848, 0.021038495971351837, 0.049239033124440466, 0.019247985675917637, 0.022829006266786033, 0.0004476275738585497, 0.03178155774395703, 0.0022381378692927483, 0.018352730528200537, 0.0017905102954341987, 0.017905102954341987, 0.008504923903312443, 0.0026857654431512983, 0.007609668755595345, 0.0008952551477170994, 0.011190689346463742, 0.0004476275738585497, 0.0017905102954341987, 0.0004476275738585497, 0.0, 0.0, 0.0008952551477170994, 0.0, 0.0017905102954341987, 0.0022381378692927483, 0.0, 0.0, 0.0008952551477170994, 0.0),list(0.1741958800144561, 0.08420672208167691, 0.04156125767979761, 0.04372967112396097, 0.014094687387061799, 0.011203469461510662, 0.033610408384531984, 0.013010480664980123, 0.2396096855800506, 0.06685941452837008, 0.011926273942898446, 0.020238525478857967, 0.01734730755330683, 0.0068666425731839535, 0.02168413444163354, 0.05059631369714492, 0.014817491868449585, 0.04011564871702204, 0.003975424647632815, 0.022406938923021324, 0.006505240332490061, 0.0093964582580412, 0.0, 0.014456089627755691, 0.007228044813877846, 0.006143838091796169, 0.0046982291290206, 0.0032526201662450307, 0.00795084929526563, 0.003614022406938923, 0.0, 0.0010842067220816769, 0.0, 0.0, 0.0018070112034694614, 0.0, 0.0018070112034694614, 0.0, 0.0, 0.0, 0.0, 0.0),list(0.11105663152733514, 0.26722235842118164, 0.10419220397156166, 0.008580534444716842, 0.03456729590585928, 0.003187055650894827, 0.06349595489090464, 0.0250061289531748, 0.041431723461632756, 0.0402059328266732, 0.03211571463594018, 0.03628340279480265, 0.028438342731061536, 0.009070850698700662, 0.015690120127482225, 0.020348124540328513, 0.006128953174797744, 0.011032115714635941, 0.01078695758764403, 0.0100514832066683, 0.004658004412846286, 0.04707036038244668, 0.011032115714635941, 0.006128953174797744, 0.008090218190733023, 0.005883795047805835, 0.004167688158862467, 0.012257906349595489, 0.01054179946065212, 0.002206423142927188, 0.0007354743809757293, 0.004658004412846286, 0.002206423142927188, 0.0004903162539838195, 0.00024515812699190976, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0007354743809757293),list(0.1590713671539123, 0.2912725709372313, 0.0045141874462596735, 0.11349957007738606, 0.03503869303525366, 0.007308684436801376, 0.023860705073086845, 0.04299226139294927, 0.027730008598452278, 0.024935511607910577, 0.030524505588993982, 0.035898538263112637, 0.02880481513327601, 0.011822871883061048, 0.011607910576096303, 0.013112639724849526, 0.009458297506448839, 0.011822871883061048, 0.02343078245915735, 0.006448839208942391, 0.0030094582975064487, 0.010318142734307825, 0.018056749785038694, 0.0015047291487532244, 0.01354256233877902, 0.0060189165950128975, 0.0045141874462596735, 0.01354256233877902, 0.0010748065348237317, 0.007523645743766122, 0.00021496130696474635, 0.0012897678417884782, 0.00408426483233018, 0.0006448839208942391, 0.0, 0.0, 0.0006448839208942391, 0.0004299226139294927, 0.0, 0.0004299226139294927, 0.0, 0.0),list(0.0035007405412683453, 0.16116870876531575, 0.12117948027467348, 0.08388312912346843, 0.15376329608186348, 0.008751851353170864, 0.10677258650868453, 0.036623131816345765, 0.06220546654099906, 0.02329338898613168, 0.07149589336205736, 0.017638346573313587, 0.01938871684394776, 0.01184866029352363, 0.0043086037430995015, 0.014810825366904538, 0.011983304160495489, 0.016157264036623133, 0.010232933889861316, 0.011310084825636193, 0.002558233472465329, 0.004173959876127642, 0.0032314528073246265, 0.009155782954086441, 0.005116466944930658, 0.004981823077958799, 0.0021543018715497507, 0.005116466944930658, 0.004173959876127642, 0.00242358960549347, 0.0026928773394371886, 0.0010771509357748754, 0.0020196580045778916, 0.0, 0.00026928773394371884, 0.0, 0.0004039316009155783, 0.0, 0.0, 0.0, 0.00013464386697185942, 0.0),list(0.13375187662071789, 0.011191483553978436, 0.17606114371502662, 0.17783540330285247, 0.04913334243210045, 0.009144260952640917, 0.0434011191483554, 0.02975296847277194, 0.042991674628087895, 0.04790500887129794, 0.023474819162003547, 0.03480278422273782, 0.029343523952504436, 0.013921113689095127, 0.013921113689095127, 0.013648150675583458, 0.012283335608025112, 0.007370001364815067, 0.017333151357990993, 0.010645557526955098, 0.0051862972567217145, 0.019516855466084344, 0.01337518766207179, 0.007233519858059233, 0.011191483553978436, 0.007915927391838405, 0.0025931486283608573, 0.012965743141804285, 0.007370001364815067, 0.004913334243210045, 0.0001364815067558346, 0.004640371229698376, 0.0036850006824075336, 0.00040944452026750374, 0.0, 0.0, 0.0002729630135116692, 0.0006824075337791729, 0.0, 0.0, 0.0, 0.0)), 
  colorbar = list(
    x = 0.99, 
    y = 0.35, 
    len = 0.75, 
    thickness = 15
  ), 
  colorscale = "Greens", 
  reversescale = TRUE
)
trace2 <- list(
  name = "BF1_2: Second Choice", 
  type = "bar", 
  x = c("BMW", "Lexus", "Mercedes", "Audi", "Toyota", "Honda", "Don't Know", "Ford", "Acura", "Cadillac", "Infiniti", "Volvo", "Nissan", "Chevrolet", "Tesla", "Buick", "Lincoln", "Hyundai", "Volkswagen", "Jaguar", "Subaru", "Kia", "Jeep", "Dodge", "Gmc", "Porsche", "Land Rover", "Mazda", "Chrysler", "Other", "Mini", "Range Rover", "Mitsubishi", "Scion", "Fiat", "Ram", "Hummer", "Pontiac", "Saab", "Saturn", "Suzuki", "Mercury", "Isuzu"), 
  y = c(0.12608346544234214, 0.10403327088180189, 0.08799489407259475, 0.0839595643490972, 0.07490066088818431, 0.06075641843898623, 0.049556319614584836, 0.048588664017623684, 0.04737394741718309, 0.03500030882625435, 0.03158263161145539, 0.02318255749315435, 0.021700191472277697, 0.021617837804451215, 0.018406044759218462, 0.016429556731382924, 0.015770727388771076, 0.015708962137901218, 0.013217763686150172, 0.012703053262234667, 0.012332461757015504, 0.01004714747483066, 0.00996479380700418, 0.008564781453954005, 0.008503016203084145, 0.007700067941775957, 0.007370653270470034, 0.00695888493133763, 0.006794177595684668, 0.00498239690350209, 0.002408844783924564, 0.0018941343600090588, 0.0008441250952214284, 0.0006794177595684668, 0.0006176525086986061, 0.0004941220069588849, 0.00032941467130592327, 0.00030882625434930307, 0.00026764942043606266, 0.00012353050173972123, 0.00010294208478310102, 8.235366782648082e-05, 6.176525086986061e-05), 
  xaxis = "x1", 
  yaxis = "y2"
)
trace3 <- list(
  name = "BF1_1: First Choice", 
  type = "bar", 
  x = c(0.15295710331171325, 0.1494615182558445, 0.09522943565496757, 0.08314643066416116, 0.05669717726455315, 0.052817684023357785, 0.04746317512274959, 0.045866925299549416, 0.04560425127801014, 0.04196722636438949, 0.03283425269240872, 0.0200642541068073, 0.018609444141359035, 0.017316279727627247, 0.01563920712856883, 0.015517972964781475, 0.013699460507971146, 0.01256794164595583, 0.010365521003818877, 0.00820351174961104, 0.007900426340142652, 0.007678163706532501, 0.006526439150552626, 0.006384999292800711, 0.006223353741084237, 0.005698005698005698, 0.005112040573033481, 0.004990806409246125, 0.0038794932411953687, 0.0036572306075852174, 0.0014952213533773817, 0.0011315188620153159, 0.0010709017801216383, 0.0005455537370430987, 0.0004647309611848619, 0.0003232911034329474, 0.0003030854094683882, 0.0002626740215392698, 0.0001616455517164737, 0.00012123416378735527, 2.0205693964559212e-05, 2.0205693964559212e-05), 
  y = c("Lexus", "BMW", "Mercedes", "Audi", "Toyota", "Don't Know", "Acura", "Cadillac", "Honda", "Ford", "Infiniti", "Volvo", "Tesla", "Lincoln", "Chevrolet", "Nissan", "Buick", "Hyundai", "Jaguar", "Subaru", "Dodge", "Volkswagen", "Porsche", "Kia", "Jeep", "Gmc", "Chrysler", "Land Rover", "Mazda", "Other", "Mitsubishi", "Mini", "Range Rover", "Ram", "Fiat", "Hummer", "Scion", "Saab", "Isuzu", "Suzuki", "Saturn", "Pontiac"), 
  xaxis = "x2", 
  yaxis = "y1", 
  orientation = "h"
)
data <- list(trace1, trace2, trace3)
layout <- list(
  font = list(
    size = 9, 
    family = "PT Sans Narrow, sans-serif"
  ), 
  title = "brand choices ", 
  xaxis = list(
    title = "BF1_1: First Choice", 
    domain = c(0, 0.75), 
    zeroline = TRUE
  ), 
  yaxis = list(
    title = "BF1_2: Second Choice", 
    domain = c(0, 0.75), 
    zeroline = TRUE
  ), 
  xaxis2 = list(domain = c(0.8, 1)), 
  yaxis2 = list(domain = c(0.8, 1))
)
p <- plot_ly()
p <- add_trace(p, type=trace1$type, x=trace1$x, y=trace1$y, z=trace1$z, colorbar=trace1$colorbar, colorscale=trace1$colorscale, reversescale=trace1$reversescale)
p <- add_trace(p, name=trace2$name, type=trace2$type, x=trace2$x, y=trace2$y, xaxis=trace2$xaxis, yaxis=trace2$yaxis)
p <- add_trace(p, name=trace3$name, type=trace3$type, x=trace3$x, y=trace3$y, xaxis=trace3$xaxis, yaxis=trace3$yaxis, orientation=trace3$orientation)
p <- layout(p, font=layout$font, title=layout$title, xaxis=layout$xaxis, yaxis=layout$yaxis, xaxis2=layout$xaxis2, yaxis2=layout$yaxis2)