- vignette 그래프 레이블 영문화

haven-jeon · Nov 7, 2016 · e7e817c · e7e817c
1 parent f4ceec6
commit e7e817c
Show file tree

Hide file tree

Showing 5 changed files with 55 additions and 55 deletions.
diff --git a/NIAdic/R/get_dic.R b/NIAdic/R/get_dic.R
@@ -28,7 +28,7 @@
 #' @import RSQLite
 get_dic <- function(dic_name){
 
-  dic_path <- get("hangul_db_path", envir=.NIADicEnv)
+  dic_path <- file.path(system.file(package='NIAdic'), "hangul.db")
   conn <- dbConnect(SQLite(), dic_path)
   on.exit({dbDisconnect(conn)})
   if(!(dic_name %in% dbListTables(conn))){

diff --git a/NIAdic/vignettes/insighter-dic.Rmd b/NIAdic/vignettes/insighter-dic.Rmd
@@ -35,10 +35,10 @@ total_dt <- data.table(get_dic("insighter"))
 
 ```{r,echo=FALSE}
 
-ggplot(total_dt[,.N,.(tag)], aes(x=reorder(tag, N), N)) +geom_bar(stat='identity') + xlab("KAIST 품사(tag)") + coord_flip() + ggtitle("NIA 사전 품사별 빈도수") + scale_y_continuous(labels = comma)
+ggplot(total_dt[,.N,.(tag)], aes(x=reorder(tag, N), N)) +geom_bar(stat='identity') + xlab("KAIST tag") + coord_flip() + ggtitle("Tag frequency") + scale_y_continuous(labels = comma)
 
 
-ggplot(total_dt[,.N,in_category], aes(x=reorder(in_category, N), N)) +geom_bar(stat='identity') + xlab("카테고리") + coord_flip() + ggtitle("NIA 사전  카테고리별 빈도수") +  scale_y_continuous(labels = comma)
+ggplot(total_dt[,.N,in_category], aes(x=reorder(in_category, N), N)) +geom_bar(stat='identity') + xlab("category") + coord_flip() + ggtitle("NIA dictionary  category frequency") +  scale_y_continuous(labels = comma)
 
 ```