Диаграмма Санки в R с использованием GoogleVis - PullRequest
Новая
       61

Диаграмма Санки в R с использованием GoogleVis

0 голосов
/ 03 декабря 2018

Вот мои фиктивные данные: 

df <- data.frame(First_Area=c('group1', 'group1', 'group1', 'group2', 'group2', 'group2', 'group2', 'group3', 'group3', 'group3', 'group3', 'group3', 'group4', 'group4', 'group4', 'group4', 'group5', 'group5', 'group5', 'group5', 'group6', 'group6', 'group6', 'group7', 'group7', 'group8', 'group8', 'group8', 'group8', 'group8', 'group9', 'group9', 'group9', 'group10', 'group10', 'group10', 'group11', 'group11', 'group11'), record_count=c(25000, 25000, 25000, 5555, 5555, 5555, 8335, 5556, 5556, 5556, 5556, 2776, 5555, 5555, 5555, 5555, 2500, 2500, 500, 55, 1851, 1851, 1853, 5000, 555, 1100, 500, 1500, 1500, 956, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852), Second_Area=c('group2', 'group3', 'group12', 'group13', 'group5', 'group6', 'group7', 'group8', 'group9', 'group10', 'group11', 'group14', 'group15', 'group16', 'group17', 'group18', 'group19', 'group20', 'group21', 'group22', 'group23', 'group24', 'group25', 'group26', 'group27', 'group28', 'group29', 'group30', 'group31', 'group32', 'group33', 'group34', 'group35', 'group36', 'group37', 'group38', 'group39', 'group40', 'group41'))

, и я попытался создать диаграмму Санки с помощью Googlevis с этим кодом: 

plot(
  gvisSankey(df, from="First_Area", 
             to="Second_Area", weight="record_count",
             options=list(
               height=1250,
               sankey="{link:{color:{fill:'lightblue'}}}"
               ))
)

, и я продолжаю получать эту ошибку Неверноформат в datatable: столбец # 1 должен иметь тип 'string'

Я попытался превратить первую и вторую области в фактор и символ, и я все еще получаю ту же ошибку.Может кто-нибудь помочь, пожалуйста?

1 Ответ

0 голосов
/ 03 декабря 2018

Трудно поверить, но вам нужно изменить порядок столбцов в вашем фрейме данных.

Данные 

df <- data.frame(First_Area=c('group1', 'group1', 'group1', 'group2', 'group2', 'group2', 'group2', 'group3', 'group3', 'group3', 'group3', 'group3', 'group4', 'group4', 'group4', 'group4', 'group5', 'group5', 'group5', 'group5', 'group6', 'group6', 'group6', 'group7', 'group7', 'group8', 'group8', 'group8', 'group8', 'group8', 'group9', 'group9', 'group9', 'group10', 'group10', 'group10', 'group11', 'group11', 'group11'), Second_Area=c('group2', 'group3', 'group12', 'group13', 'group5', 'group6', 'group7', 'group8', 'group9', 'group10', 'group11', 'group14', 'group15', 'group16', 'group17', 'group18', 'group19', 'group20', 'group21', 'group22', 'group23', 'group24', 'group25', 'group26', 'group27', 'group28', 'group29', 'group30', 'group31', 'group32', 'group33', 'group34', 'group35', 'group36', 'group37', 'group38', 'group39', 'group40', 'group41'), record_count=c(25000, 25000, 25000, 5555, 5555, 5555, 8335, 5556, 5556, 5556, 5556, 2776, 5555, 5555, 5555, 5555, 2500, 2500, 500, 55, 1851, 1851, 1853, 5000, 555, 1100, 500, 1500, 1500, 956, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852))

Код 

plot(
    googleVis::gvisSankey(df, from="First_Area", 
               to="Second_Area", weight="record_count",
               options=list(
                   height=1250,
                   sankey="{link:{color:{fill:'lightblue'}}}"
               ))
)

Результат

1

...