Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.