Отобразить проценты круговой диаграммы в R studio от Dataset

Question

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

Эта простая строка кода создает таблицу из указанного столбца и отображает идеальную круговую диаграмму справильные распределения.Однако я не могу отобразить процентные значения.

Я считаю, что есть короткий и простой способ сделать это.

Это то, что я имею до сих пор.Пожалуйста, что мне нужно добавить?

> workclass <- table(adult$workclass)
> pie(workclass) 

Спасибо.

Это значения в моем столбце "рабочий класс", для которых у меня есть круговая диаграмма.Мне просто нужно отобразить их процентное распределение на круговой диаграмме.

Federal-gov - 1836 Occurrences     
Local-gov - 960 Occurrences
Never-worked - 2093 Occurrences
Private - 120 Occurrences
Self-emp-inc - 2541 Occurrences
Self-emp-not-inc - 1116 Occurrences
State-gov - 2093 Occurrences
Without-pay - 1298 Occurrences

Answer 1

Я надеюсь, что этот код работает для вас, чтобы отобразить проценты на круговой диаграмме.

adult <- data.frame(workclass = c(rep("Federal-gov",1836),rep("Local-gov",960),rep("Never-worked",2093),
                                  rep("Private",120), rep("Self-emp-inc",2541), rep("Self-emp-not-inc",1116),
                                  rep("State-gov",2093),rep("Without-pay",1298))) 
           Occurrences = c(1836,960,2093,120,2541,1116,2093,1298))

workclass <- table(adult$workclass)


par(mar = c(2,2,2,2))
lb = paste0(round(prop.table(workclass)*100,2),"%")
pie(workclass,labels = lb, col = rainbow(8))
legend(-2.1,0.4,legend=names(workclass),cex=0.7,yjust=0.2, xjust = -0.1,
       fill = rainbow(8), bty = "n")

prop.table(workclass)
Federal-gov        Local-gov     Never-worked          Private     Self-emp-inc Self-emp-not-inc 
     0.152276686      0.079621796      0.173592104      0.009952725      0.210748943      0.092560338 
       State-gov      Without-pay 
     0.173592104      0.107655304