tabela_plotly_post_SmartEAD

values <- list(c("<b>affairs</b>", "gender", "age","yearsmarried","children","religiousness","education","occupation","rating"),
  c("Quantas vezes envolvido em caso extraconjugal no último ano", 
    "Sexo", 
    "Idade", 
    "Número de anos casado", 
    "Crianças",
    "Como religioso",
    "Nível de educação",
    "Ocupação",
    "Como classifica o casamento"),
  c("  0 = nenhum, 1 = uma vez, 2 = extraconjugal duas vezes, 3 = 3 vezes, 7 = 4-10 vezes de relações sexuais, 12 = mensalmente, 12 = durante o passado semanalmente, 12 = diariamente",
    c("0 = feminino, 1 = masculino"),
    c("17,5 = menos de 20, 22,0 = 20-24, 27,0 = 25-29, 32,0 = 30-34, 37,0 = 35-39, 42,0 = 40-44, 47,0 = 45-49, 52,0 = 50-54, 57,0 = 55 ou mais"),
    c(".125 = 3 meses ou menos, casado .417 = 4-6 meses, 0,75 = 6 meses-i ano, 1,5 = 1-2 , 4,0 = 3-5 anos, 7,0 = 6-8 anos, 10,0 = 9-11 anos, 15,0 = 12 ou mais anos"),
    c("0 = não, 1 = sim"),
    c("5 = muito, 4 = um pouco, 3 = um pouco, 2 = nada, 1 = anti"),
    c("9,0 = ensino fundamental, 12,0 = ensino médio, 14,0 = alguma faculdade, 16,0 = colégio graduação, 17,0 = algum trabalho de pós-graduação, 18,0 = mestrado, 20,0 = doutorado, mestrado ou outro grau avançado"),
    c("1-7, de acordo com a classificação Hollingshead (numeração reversa)"),
    c("5 = muito feliz, 4 = mais feliz que a média, 3 = mediano, 2 = pouco infeliz, 1 = muito infeliz")
    ))

p <- plot_ly(
  type = 'table',
  columnorder = c(1,2,3),
  columnwidth = c(90,250,450),
  header = list(
    values = list(list('<b>Variáveis</b><br>affairs~.'),
                  list('<b>DESCRIÇÃO</b>'),
                  list('<b>DETALHES</b>')),
    line = list(color = '#9ca5a5'),
    fill = list(color = '#9ca5a5'),
    align = c('left'),
    font = list(color = 'white', size = 12)
  ),
  cells = list(
    values = values,
    line = list(color = '#9ca5a5'),
    fill = list(color = c('#f3f4f4', 'white')),
    align = c('left', 'center'),
    font = list(color = c('#506784'), size = 12)
    ))
p