Круговая диаграмма пользовательской цветовой палитры в процентах

Question

Я должен использовать цветовую палитру, предоставленную моей организацией.Но у меня есть сообщение об ошибке.

DT <- data.table(induse = c("C29", "P7","TOTAL"), values = c(570,100,600))
paletteEcoFin <- c("9A5EA6", "E5C473", "B98B50", "61276D", "2E368F","D8C5E0", "0000FF", "800080")
pie = ggplot(DT, aes(x="", y=values, fill=induse)) + geom_bar(stat="identity", width=1)
pie = pie + coord_polar("y", start=0) 
+  scale_fill_manual(values=paletteEcoFin) 

Ошибка, когда я пытаюсь просмотреть круговую диаграмму, равна

  Error in grDevices::col2rgb(colour, TRUE) : invalid color name 'B98B50'

Кроме того, как я могу автоматически рассчитать% и показать его на круговой диаграмме?Спасибо.

Answer 1

Пожалуйста, обратите внимание на изменение первых трех значений вектора paletteEcoFin (то есть добавление # как обычного шестнадцатеричного цвета):

paletteEcoFin <- c("#9A5EA6", "#E5C473", "#B98B50", "61276D", "2E368F","D8C5E0", "0000FF", "800080")

ggplot(DT, aes(x="", y=values, fill=induse)) + 
  geom_bar(stat="identity", width=1) +
  coord_polar("y", start=0) + 
  scale_fill_manual(values=paletteEcoFin)