library(aplpack)
library(RColorBrewer)
crime <- read.csv("Faces_Data.csv")
crime_filled <- cbind(crime[,1:6], rep(0, length(crime$state)), crime[,7:8])
crime_filled<-crime_filled[order(crime_filled$murder,decreasing=T),]
faces(crime_filled[,2:8],
col.face = colorRampPalette(brewer.pal(9, "Reds"))(20),
col.hair= colorRampPalette(brewer.pal(9, "Blues"))(20),
labels= crime_filled$state,
cex=1)
R语言绘制美国各州的犯罪类型的切尔诺夫脸谱图
最新推荐文章于 2023-01-05 22:45:03 发布