NCKH

library(ggplot2)
library(viridis)

## Loading required package: viridisLite

library(highcharter)

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## Highcharts (www.highcharts.com) is a Highsoft software product which is

## not free for commercial and Governmental use

cols <- viridis(13)
dat <- read.csv("~/OneDrive/Teaching/R project/Khoa sinh/Sci.csv")
attach(dat)
cols <- viridis(13)
h <- highchart() %>% 
  hc_xAxis(categories = dat$Year) %>%
  hc_add_series(name = "Đề tài cấp quốc gia", data = dat$National_proj) %>%
  hc_add_series(name = "Đề tài cấp bộ", data = dat$Ministry_pro) %>%
  hc_add_series(name = "Đề tài cấp tỉnh", data = dat$Province_pro) %>%
  hc_add_series(name = "Đề tài cấp trường", data = dat$Uni_pro) %>%
  hc_add_series(name = "Bài báo trong nước", data = dat$National_arti) %>%
  hc_add_series(name = "Bài báo quốc tế", data = dat$Inter_arti) %>%
  hc_add_series(name = "Hội thảo quốc gia", data = dat$National_confer) %>%
  hc_add_series(name = "Hội thảo quốc tế", data = dat$Inter_confer) %>%
  hc_add_series(name = "Xuất bản sách", data = dat$Book) %>%
  hc_add_series(name = "Hợp đồng khoa học", data = dat$Contract) %>%
  hc_add_series(name = "Hợp tác quốc tế", data = dat$Inter_cooper) %>%
  hc_add_series(name = "Số cán bộ tham gia NCKH", data = dat$No_researcher) %>%
  hc_add_series(name = "Số cán bộ tham gia xuất bản", data = dat$No_writer) %>%
  hc_colors(cols)
h

h1 <- h %>%
  # Add tên tiêu đề
  hc_title(text = "Thống kê thành qủa nghiên cứu khoa học giai đoạn 2014-2019",
  margin = 20, 
  align = "left",
  style = list(color = "black", fontWeight = "bold")
  ) %>% 
  hc_credits(enabled = T, # add caption
  text = "Nguồn: Faculty of Biology - Dalat University",
  href = "http://dlu.edu.vn") %>% 
  hc_tooltip(crosshairs = TRUE, 
  backgroundColor = "#FCFFC5",
  shared = TRUE, 
  borderWidth = 4)
h1

dat1 <- read.csv("~/OneDrive/Teaching/R project/Khoa sinh/Sci_data.csv")
attach(dat1)
ggplot(data = dat1) + geom_bar(aes(x= Nam, fill = Hoat_dong)) +
 labs(title = "Thống kê thành qủa nghiên cứu khoa học giai đoạn 2014-2019", 
       x = "Năm",
       y = "Số lượng")

library(readxl)
dat2 <- read_excel("~/OneDrive/Teaching/R project/Khoa sinh/dat.xlsx")
attach(dat2)

## The following object is masked from dat1:
## 
##     Hoat_dong

ggplot(data = dat2) + geom_bar(aes(x= Năm, fill = Hoat_dong)) +
 labs(title = "Thống kê thành qủa nghiên cứu khoa học giai đoạn 2014-2019", 
       x = "Năm",
       y = "Số lượng")