R
!!!barplot()

{{pre
> head(nice2jp)
[1] 233 518 638 341 499 321
> head(nice1jp)
[1] 438 332 213 252 396 500
}}

 plot.new()
 
 barplot(
	sort(nice2jp), 
	xlim=c(0,250), ylim=c(0,1600), 
	col = "#00ffff40", border = "#00ffff", 
	ylab="words", 
	main="NICE1 (Blue) and NICE2 (Light Blue)",
	yaxp=c(0, 1600, 16)
	)
 
 par(new=T)
 
 barplot(
	sort(nice1jp), 
	xlim=c(0,250), ylim=c(0,1600), 
	col = "#0000ff40", border = "#0000ff", 
	yaxp=c(0, 1600, 16)
	)
 
	grid(NA, 16)
----
{{ref_image barplot-sample.png}}
----
*以下がわかりやすい
https://stats.biopapyrus.jp/r/graph/barplot.html