3行R语言代码绘制泄漏密码直方图

井九

发布于 2024-10-12 08:52:42

10300

代码可运行

文章被收录于专栏：四楼没电梯四楼没电梯

运行总次数：0

代码可运行

根据网上的统计，把密码次数存成以下格式

"Word" "Freq" "1" "123456789" 81839 "2" "12345678" 75513 "3" "11111111" 27157 "4" "dearbook" 18788 "5" "00000000" 12309 "6" "123123123" 6850 "7" "1234567890" 6150 "8" "88888888" 5318 "10" "111111111" 2506 "11" "147258369" 2081 "12" "987654321" 1995 "13" "aaaaaaaa" 1902 "14" "66666666" 1819 "15" "1111111111" 1804 "16" "xiazhili" 1663 "17" "11223344" 1501 "18" "a123456789" 1485 "19" "1qaz2wsx" 1300 "20" "qqqqqqqq" 1241

然后执行R代码

dt<-read.table("pass.txt", sep = " ",header=T,strip.white = TRUE,blank.lines.skip=FALSE,fill=TRUE,comment.char = "");
par(las=2,xpd = TRUE,xaxt="n",mar=c(3, 6, 3, 3));
barplot(dt$Freq[20:1],main="常用密码",names.arg = dt$Word[20:1],horiz=T,col=rev(heat.colors(length(dt$Freq[1:20]))));

结果如下：