201804nihongobunshoQnnScript

# read the data
data0 <- read.table(header=TRUE, sep=",", text='
id,q1,q2,q3,q4,q5,q6,q7,q8
1,中国,N2,そう思わない,どちらかというとそう思う,そう思う,そう思う,受験します,日本で就職したい
2,中国,N1,どちらかというとそう思う,そう思わない,どちらかというとそう思う,そう思う,たぶん受験します,日本で就職したい
3,ベトナム,なし,そう思う,そう思う,そう思う,そう思う,受験します,日本で就職したい
4,ネパール,N2,そう思う,そう思う,そう思う,そう思う,受験します,日本で就職したい
5,中国,N2,どちらかというとそう思う,どちらかというとそう思う,どちらかというとそう思う,どちらともいえない,決めていません,日本で就職したい
6,ベトナム,なし,そう思わない,どちらともいえない,そう思う,そう思わない,受験します,決めていない
7,ベトナム,N2,そう思う,どちらかというとそう思う,そう思う,そう思う,受験します,日本で就職したい
8,ネパール,なし,どちらかというとそう思わない,どちらかというとそう思う,どちらともいえない,どちらともいえない,受験します,日本で就職したい
9,ネパール,なし,どちらかというとそう思う,そう思う,そう思う,そう思う,受験します,日本で就職したい
10,ベトナム,なし,そう思わない,そう思わない,そう思わない,そう思わない,受験しません,日本で就職したい')
# for Japanese
par(family = "HiraKakuProN-W3")
# give names to the tables of each question
q1 <- table(data0[,"q1"])
q2 <- table(data0[,"q2"])
q3 <- table(data0[,"q3"])
q4 <- table(data0[,"q4"])
q5 <- table(data0[,"q5"])
q6 <- table(data0[,"q6"])
q7 <- table(data0[,"q7"])
q8 <- table(data0[,"q8"])
# give simple bar plots
# Create simple bar plots
barplot(q1, main="Nationality", ylab="number")
barplot(q2, main="Japanse Proficiency Test", ylab="number")
barplot(q3, main="Are you good at vocabulary test?", ylab="number")
# use a Japanese title
barplot(q4, main="聴解問題は得意ですか？", ylab="number")
barplot(q5, main="文法問題は得意ですか？", ylab="number")
barplot(q6, main="読解問題は得意ですか？", ylab="number")
# give color
barplot(q7, main="次の日本語能力試験を受験しますか？", ylab="number", col = "red")
# change orders of answers
barplot(main="次の日本語能力試験を受験しますか？", sort(q7, decreasing = TRUE), col = "red")
barplot(q8, main="卒業後の進路は？", ylab="number", col = "blue")