Carregando os pacotes

Você vai precisar dos seguintes pacotes:

library(dplyr) # para conseguir utilizar o pipe (%>%)
library(plotly) # pra fazer os gráficos

O código é composto pelos seguintes elementos:

plot_ly(
    type = 'scatterpolar', # pra dizer que é em círculo
    mode = "closest", # esse comando adiciona o texto quando hover.
    fill = 'toself', # para colorir a parte de dentro das linhas
) %>%
  add_trace(# Adiciona linha no gráfico. 
            # Se quiser mais um conjunto de dados use esse comando mais de uma vez.
      r = c( #lista dos scores. Segue os padrões do parâmetro theta abaixo
          30, # Realista
          44, # Investigativo
          98, # Artístico
          79, # Social
          10, # Empreendedor
          50 # convencional
      ),
      theta = c( # nome dos eixos
          "Realista",
          "Investigativo",
          "Artístico",
          "Social",
          "Empreendedor",
          "Convencional"
      ),
      fillcolor = 'rgba(0, 250, 0, .5)', # define a cor das linhas e a opacidade
      marker = list( # define as características dos marcadores
        color = "#8090c7", # cor
        symbol = 'round', # forma
        size = 5 # tamanho
      ),
      showlegend = TRUE, # mostra legenda
      mode = "markers", # gera os pontos
      name = "Nome da pessoa" # lista do que aparece no hover. PRECISA ARRUMAR
  ) %>%
  layout(
      polar = list( # polar indica que é em círculo
          radialaxis = list(
              visible = F, # retira o eixo
              range = c(1,100) # limites
          )
      ),
      showlegend=FALSE # retira a legenda
  ) %>%
  config(displayModeBar = F) #retira a barra de comando padrão. Tirei pq é feio