从数据集中在 R studio 中显示饼图百分比
Display Pie Chart Percentages in R studio from Dataset
我正在尝试使用 R 显示数据集中每一列的不同值出现的百分比。
这行简单的代码从指定的列创建一个 table 并显示一个具有正确分布的完美饼图。但是,我似乎无法显示百分比值。
我相信有一个简短的方法可以做到这一点。
这就是我目前所拥有的。请问我需要补充什么?
> workclass <- table(adult$workclass)
> pie(workclass)
谢谢。
这些是我的 "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
我希望这段代码对你有用,在饼图中显示百分比。
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
我正在尝试使用 R 显示数据集中每一列的不同值出现的百分比。
这行简单的代码从指定的列创建一个 table 并显示一个具有正确分布的完美饼图。但是,我似乎无法显示百分比值。
我相信有一个简短的方法可以做到这一点。
这就是我目前所拥有的。请问我需要补充什么?
> workclass <- table(adult$workclass)
> pie(workclass)
谢谢。
这些是我的 "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
我希望这段代码对你有用,在饼图中显示百分比。
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