Как построить карту дерева / хороплета в г? для блестящего приложения - PullRequest
Новая
       38

Как построить карту дерева / хороплета в г? для блестящего приложения

0 голосов
/ 28 июня 2018

Я пытаюсь построить интерактивную древовидную карту, чтобы изобразить движение инвентаря на основе ввода различных данных

Необработанные данные: 

sraw <- structure(list(Date = c("2018-02-28", "2018-02-28", "2018-02-28", 
"2018-02-28", "2018-02-28", "2018-02-28"), Category = c("Bakery ", 
"Household ", "Household ", "Personal care", "Personal care", 
"Breakfast "), Sub_Category = c("Wafers ", "laundry ", "Pet Care", 
"Womens grooming ", "Womens grooming ", "Instant food"), Product 
= c("strawbery", 
"washing powder ", "Cat food ", "sanitary pad ", "sanitary pad ", 
"Noodles "), Brand = c("NO BRAND", "wheel ", "Whiskars", "whisper", 
"whisper", "Yipee"), Day = c(28L, 28L, 28L, 28L, 28L, 28L), Month = c(2L, 
2L, 2L, 2L, 2L, 2L), Year = c(2018L, 2018L, 2018L, 2018L, 2018L, 
2018L), MRP = c("5", "48", "160", "34", "40", "45"), Quantity = c(2, 
1, 1, 1, 1, 1), Sales = c(10, 48, 160, 34, 40, 45), Wday = c("Wednesday", 
"Wednesday", "Wednesday", "Wednesday", "Wednesday", "Wednesday"
), Week = c(9L, 9L, 9L, 9L, 9L, 9L), X = c(NA, NA, NA, NA, NA, 
NA), X. = c(NA, NA, NA, NA, NA, NA)), .Names = c("Date", "Category", 
"Sub_Category", "Product", "Brand", "Day", "Month", "Year", "MRP", 
"Quantity", "Sales", "Wday", "Week", "X", "X."), row.names = 870158:870163, 
class = "data.frame")

Я вмешивался в карту дерева, но ничего положительного в этом нет: 

  treeMapCoordinates <- treemapify(sraw,
                                 area = sraw$Quantity,
                                 fill = sraw$Category,
                                 label = sraw$Sub_Category,
                                 group = sraw$Category)

treeMapPlot <- ggplotify(treeMapCoordinates) + 
  scale_x_continuous(expand = c(0, 0)) +
  scale_y_continuous(expand = c(0, 0)) +
  scale_fill_brewer(palette = "Dark2")

print(treeMapPlot)

но это показывает ошибку. :

Ошибка в древовидной карте (sraw, area = sraw $ Количество, fill = sraw $ Категория,: неиспользованные аргументы (fill = sraw $ Category, label = sraw $ Sub_Category, group = sraw $ Category)

Может кто-нибудь помочь мне в этом?

Спасибо

1 Ответ

0 голосов
/ 14 сентября 2018

Кажется, пакет был обновлен, и некоторые из этих функций устарели. Вместо этого вы можете попробовать это (с теми же данными): 

library(devtools)
install_github("wilkox/treemapify")
ggplot2::ggplot(sraw, ggplot2::aes(area = Quantity,
                                   fill = Category,
                                   label = Sub_Category,
                                   group = Category)) + geom_treemap()

Это даст вам следующий сюжет:

enter image description here

Нет данных о Shiny, которые вы предоставили, или о карте для хороплета.

...