Xia YIwei, Nemo Sunday, January 01, 2017
In the year 2014, the Chinese supreme people's court has release a document to collect and publish all the sentence documents made by court at each level in China.
The goal of current R package(functions) is tried to develop some useful tools to analyzing those Chinese document.
Current R package depends on Rwordseg package made by Lijian, please install the package before make full use of the current package.
- Develop a useful R package process the Chinese characters in Legal documents
- Other types of Chinese documents
library(devtools)
install_github("xxxw567/legalwordproc")
library(legalwordproc)See the ?functions for more details
- chinntoda Translate a single Chinse Date or Chinese number into Arabic number
- cnextract Cut a chinese sentence based on a given start and end
- codemoney Translate Chinese number into Arabic number
- cutsentence Cut the Chinese sentences by given characters
- findpos Find the position of a certain Chinese word.
- is.num_coma Detech whether a given chinese word is numeric or "." * ischinexist Check whether a certain word is exist.
- detectnegative Detect whether there exist negative words
- Cut a chinese sentence based on a given start and end
cnextract("判处有期徒刑十二年,缓刑一年","判处",",")## [1] "有期徒刑" "十二年" ","
- Chinese words to date/number
chinntoda("五")## [1] 5
chinntoda("一年")## [1] 12
chinntoda("one")## [1] "one"
- Convert Chinese number to Arabic Number > 这个有点难,其实交给其他软件做更好
a<-"181208900.00"
b<-"三十万"
c<-"45万"
d<-"5.9万"
e<-"三千余"
f<-"6万余"
g<-"3百万"
h<-"310万"
i<-"300000余"
j<-"3.98万"
k<-"九万"
l<-"壹佰万"
m<-"三十三万"
n<-"三百三十三万"
o<-"三千三百三十三万"
p<-"三千三百三十三万四千五百二十九"
q<-"五点九万"
r<-"五千零三万"
matrix(sapply(c(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r),codemoney))## [,1]
## [1,] 181208900
## [2,] 300000
## [3,] 450000
## [4,] 59000
## [5,] 3000
## [6,] 60000
## [7,] 3000000
## [8,] 3100000
## [9,] 300000
## [10,] 39800
## [11,] 90000
## [12,] 1000000
## [13,] 330000
## [14,] 3330000
## [15,] 33330000
## [16,] 33334529
## [17,] 59000
## [18,] 50030000
- Cut the Chinese sentences by given characters
cutsentence ("本院认为，被告人王兴玖、梅潋耀身为安全管理人员，在生产作业中违反安全管理规定，不认真履行职责、发生重大安全事故，致一人死亡，其行为均已构成重大责任事故罪。公诉机关指控的事实、罪名成立，予以确认。",c("，","。"))## [[1]]
## [1] "本" "院" "认为" "，"
##
## [[2]]
## [1] "，" "被告人" "王" "兴" "玖" "、" "梅"
## [8] "潋" "耀" "身" "为" "安全" "管理" "人员"
## [15] "，"
##
## [[3]]
## [1] "，" "在" "生产" "作业" "中" "违反" "安全" "管理" "规定" "，"
##
## [[4]]
## [1] "，" "不" "认真" "履行" "职责" "、" "发生" "重大" "安全" "事故"
## [11] "，"
##
## [[5]]
## [1] "，" "致" "一" "人" "死亡" "，"
##
## [[6]]
## [1] "，" "其" "行为" "均" "已" "构成"
## [7] "重大" "责任事故" "罪" "。"
##
## [[7]]
## [1] "。" "公诉" "机关" "指控" "的" "事实" "、" "罪名" "成立" "，"
##
## [[8]]
## [1] "，" "予以" "确认" "。"
##
## [[9]]
## [1] "。"