In huhuaping/techme: Generate Research Report with Complex Data Sources

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(techme)

This is whole all variables list of this data base:

data("varsList")
head(varsList)

Basic

require(techme)
#require(tidyverse)
#require(purrr)
require(knitr)
library(magrittr)
library(dplyr)
data("varsList")
data("BasicProvince")
data("queryTianyan")
data("ProvinceCity")

varsList

varsList：A data set containing all variables and additional information, such as unit, chn_name, eng_name etc., with wide data format.

• Totally r dim(varsList)[2] columns including: r paste0(names(varsList), collapse =", ").

• Totally r dim(varsList)[1] rows.

varsList %>%
  sample_n(size = 10) %>%
  kable()

BasicProvince

BasicProvince：A data set containing basic information of province and its region, with wide data format.

• Totally r dim(BasicProvince)[2] columns including: r paste0(names(BasicProvince), collapse =", ").

• Totally r dim(BasicProvince)[1] rows.

BasicProvince %>%
  sample_n(size = 10) %>%
  kable()

ProvinceCity

ProvinceCity：A data set containing Province and City of china.

• Totally r dim(ProvinceCity)[2] columns including: r paste0(names(ProvinceCity), collapse =", ").

• Totally r dim(ProvinceCity)[1] rows.

ProvinceCity %>%
  sample_n(size = 10) %>%
  kable()

queryTianyan

queryTianyan：A data set containing basic info of institution enrolled in officer administrator.

• Totally r dim(queryTianyan)[2] columns including: r paste0(names(queryTianyan), collapse =", ").

• Totally r dim(queryTianyan)[1] rows.

queryTianyan %>%
  sample_n(size = 10) %>%
  kable()

Yearbook

Source from Rural Yearbook

data("AgriMachine")
data("AgriFertilizer")
data("AgriPlastic")
data("AgriPesticide")

AgriMachine

AgriMachine：A long format data set containing Agricultural Machine statistics .

• Totally r dim(AgriMachine)[2] columns including: r paste0(names(AgriMachine), collapse =", ").

• Totally r dim(AgriMachine)[1] rows.

• Years range from r min(AgriMachine$year) to r max(AgriMachine$year)

• Variables including: r paste0(sort(unique(AgriMachine$variables)), collapse =", ")

AgriMachine %>%
  sample_n(size = 10) %>%
  kable()

AgriFertilizer

AgriFertilizer：A long format data set containing Agricultural Fertilizer statistics .

• Totally r dim(AgriFertilizer)[2] columns including: r paste0(names(AgriFertilizer), collapse =", ").

• Totally r dim(AgriFertilizer)[1] rows.

• Years range from r min(AgriFertilizer$year) to r max(AgriFertilizer$year)

• Variables including: r paste0(sort(unique(AgriFertilizer$variables)), collapse =", ")

AgriFertilizer %>%
  sample_n(size = 10) %>%
  kable()

AgriPlastic

AgriPlastic：A long format data set containing Agricultural Plastic statistics .

• Totally r dim(AgriPlastic)[2] columns including: r paste0(names(AgriPlastic), collapse =", ").

• Totally r dim(AgriPlastic)[1] rows.

• Years range from r min(AgriPlastic$year) to r max(AgriPlastic$year)

• Variables including: r paste0(sort(unique(AgriPlastic$variables)), collapse =", ")

AgriPlastic %>%
  sample_n(size = 10) %>%
  kable()

AgriPesticide

AgriPesticide：A long format data set containing Agricultural Pesticide statistics .

• Totally r dim(AgriPesticide)[2] columns including: r paste0(names(AgriPesticide), collapse =", ").

• Totally r dim(AgriPesticide)[1] rows.

• Years range from r min(AgriPesticide$year) to r max(AgriPesticide$year)

• Variables including: r paste0(sort(unique(AgriPesticide$variables)), collapse =", ")

AgriPesticide %>%
  sample_n(size = 10) %>%
  kable()

Source from Sci-Tech Yearbook

# data("RDIntense") from public site
data("RDActivity")
data("IndustryOperation")
data("IndustryRD")
data("IndustryTrade")
data("MarketPull")
data("MarketPush")

RDIntense

来自于中国政府网历年“全国科技经费投入统计公报”：

• 2021年全国科技经费投入统计公报

• 2020年全国科技经费投入统计公报

说明：《中国科技统计年鉴》也有数据发布，但是把经费和强度指标分别存放了，不符合本数据包的更新流程。

RDIntense：A long format data set containing R&D Intense statistics.

• Totally r dim(RDIntense)[2] columns including: r paste0(names(RDIntense), collapse =", ").

• Totally r dim(RDIntense)[1] rows.

• Years range from r min(RDIntense$year) to r max(RDIntense$year)

• Variables including: r paste0(sort(unique(RDIntense$variables)), collapse =", ")

RDIntense %>%
  sample_n(size = 10) %>%
  kable()

RDActivity

RDActivity：A long format data set containing R&D Activity statistics .

• Totally r dim(RDActivity)[2] columns including: r paste0(names(RDActivity), collapse =", ").

• Totally r dim(RDActivity)[1] rows.

• Years range from r min(RDActivity$year) to r max(RDActivity$year)

• Variables including: r paste0(sort(unique(RDActivity$variables)), collapse =", ")

RDActivity %>%
  sample_n(size = 10) %>%
  kable()

IndustryOperation

IndustryOperation：A long format data set containing Industry Operation statistics .

• Totally r dim(IndustryOperation)[2] columns including: r paste0(names(IndustryOperation), collapse =", ").

• Totally r dim(IndustryOperation)[1] rows.

• Years range from r min(IndustryOperation$year) to r max(IndustryOperation$year)

• Variables including: r paste0(sort(unique(IndustryOperation$variables)), collapse =", ")

IndustryOperation %>%
  sample_n(size = 10) %>%
  kable()

IndustryRD

IndustryRD：A long format data set containing Industry R&D statistics .

• Totally r dim(IndustryRD)[2] columns including: r paste0(names(IndustryRD), collapse =", ").

• Totally r dim(IndustryRD)[1] rows.

• Years range from r min(IndustryRD$year) to r max(IndustryRD$year)

• Variables including: r paste0(sort(unique(IndustryRD$variables)), collapse =", ")

IndustryRD %>%
  sample_n(size = 10) %>%
  kable()

MarketPull

MarketPull：A long format data set containing Tech Market Pull statistics .

说明：数据包括合同数（amount-xxxx.xlsx）和金额（funds-xxxx.xlsx）两个表格来源，需要独立更新全部xlsx后，再读取整合为一个数据表。

• Totally r dim(MarketPull)[2] columns including: r paste0(names(MarketPull), collapse =", ").

• Totally r dim(MarketPull)[1] rows.

• Years range from r min(MarketPull$year) to r max(MarketPull$year)

• Variables including: r paste0(sort(unique(MarketPull$variables)), collapse =", ")

MarketPull %>%
  sample_n(size = 10) %>%
  kable()

MarketPush

MarketPush：A long format data set containing Tech Market Push statistics .

说明：数据包括合同数（amount-xxxx.xlsx）和金额（funds-xxxx.xlsx）两个表格来源，需要独立更新全部xlsx后，再读取整合为一个数据表。

• Totally r dim(MarketPush)[2] columns including: r paste0(names(MarketPush), collapse =", ").

• Totally r dim(MarketPush)[1] rows.

• Years range from r min(MarketPush$year) to r max(MarketPush$year)

• Variables including: r paste0(sort(unique(MarketPush$variables)), collapse =", ")

MarketPush %>%
  sample_n(size = 10) %>%
  kable()

IndustryTrade

IndustryTrade：A long format data set containing Industry Trade statistics .

说明：2018年以后年鉴不再发布该数据！

• Totally r dim(IndustryTrade)[2] columns including: r paste0(names(IndustryTrade), collapse =", ").

• Totally r dim(IndustryTrade)[1] rows.

• Years range from r min(IndustryTrade$year) to r max(IndustryTrade$year)

• Variables including: r paste0(sort(unique(IndustryTrade$variables)), collapse =", ")

IndustryTrade %>%
  sample_n(size = 10) %>%
  kable()

Source from China National Yearbook

data("PublicBudget")

PublicBudget

PublicBudget：A long format data set containing Public Budget statistics.

说明：来源于《中国统计年鉴》，表7-6 分地区一般公共预算支出。我们只整理更新如下列变量："地方一般公共预算支出","教育支出","科学技术支出","农林水支出"。

• Totally r dim(PublicBudget)[2] columns including: r paste0(names(PublicBudget), collapse =", ").

• Totally r dim(PublicBudget)[1] rows.

• Years range from r min(PublicBudget$year) to r max(PublicBudget$year)

• Variables including: r paste0(sort(unique(PublicBudget$variables)), collapse =", ")

data("PublicBudget")

PublicBudget %>%
  sample_n(size = 10) %>%
  kable()

Source from Livestock Yearbook

LivestockBreeding：A long format data set containing Livestock Breeding statistics.

• Totally r dim(LivestockBreeding)[2] columns including: r paste0(names(LivestockBreeding), collapse =", ").

• Totally r dim(LivestockBreeding)[1] rows.

• Years range from r min(LivestockBreeding$year) to r max(LivestockBreeding$year)

• Variables including: r paste0(head(sort(unique(LivestockBreeding$variables)),20), collapse =", ")（top 20 of totally r glue::glue("{length(unique(LivestockBreeding$variables))} variables").

data("LivestockBreeding")

LivestockBreeding %>%
  sample_n(size = 10) %>%
  kable()

Public site

Source from Government site

some data set

Source from MOST

Several data set sources from Ministry of Sci-Tech (MOST).

data("PubNKRDP")
data("PubAgriParkList")
data("PubAgriParkEval")

PubNKRDP

PubNKRDP：A wide format data set containing Details of National Key R&D Plans(NKRDP) statistics.

• Totally r dim(PubNKRDP)[2] columns including: r paste0(names(PubNKRDP), collapse =", ").

• Totally r dim(PubNKRDP)[1] rows.

• Years range from r min(PubNKRDP$year) to r max(PubNKRDP$year)

PubNKRDP %>%
  sample_n(size = 10) %>%
  kable()

PubAgriParkList

说明：本数据集直接在techme包开发环境下进行原始数据（data-raw）的清洗和整理（"techme/data-raw/public-site/agri-park/03-list-raw/"）；然后清洗后的xlsx文件复制到（"techme/data-raw/data-tidy/public-site/agri-park/xlsx/"），最后再经由"techme/data-raw/wfl_useData_agriPark.R"进行批量读取和数据集编译。

PubAgriParkList：A wide format data set containing Details of Approved List of National Agricultural Sci-tech Park.

• Totally r dim(PubAgriParkList)[2] columns including: r paste0(names(PubAgriParkList), collapse =", ").

• Totally r dim(PubAgriParkList)[1] rows.

• Years (Batch) range from r min(PubAgriParkList$batch) to r max(PubAgriParkList$batch)

PubAgriParkList %>%
  sample_n(size = 10) %>%
  kable()

PubAgriParkEval

说明：本数据集直接在techme包开发环境下进行原始数据（data-raw）的清洗和整理（"techme/data-raw/public-site/agri-park/02-eval-raw/"）；然后清洗后的xlsx文件复制到（"techme/data-raw/data-tidy/public-site/agri-park/xlsx/"），最后再经由"techme/data-raw/wfl_useData_agriPark.R"进行批量读取和数据集编译。

PubAgriParkEval：A wide format data set containing Details of Evaluation result of National Agricultural Sci-tech Park.

• Totally r dim(PubAgriParkEval)[2] columns including: r paste0(names(PubAgriParkEval), collapse =", ").

• Totally r dim(PubAgriParkEval)[1] rows.

• Years range from r min(PubAgriParkEval$year) to r max(PubAgriParkEval$year)

PubAgriParkEval %>%
  sample_n(size = 10) %>%
  kable()

PubAgriParkCheck

说明：本数据集直接在techme包开发环境下进行原始数据（data-raw）的清洗和整理（"techme/data-raw/public-site/agri-park/01-check-raw/"）；然后清洗后的xlsx文件复制到（"techme/data-raw/data-tidy/public-site/agri-park/xlsx/"），最后再经由"techme/data-raw/wfl_useData_agriPark.R"进行批量读取和数据集编译。

PubAgriParkCheck：A wide format data set containing Details of Check result of National Agricultural Sci-tech Park.

• Totally r dim(PubAgriParkCheck)[2] columns including: r paste0(names(PubAgriParkCheck), collapse =", ").

• Totally r dim(PubAgriParkCheck)[1] rows.

• Years range from r min(PubAgriParkCheck$year) to r max(PubAgriParkCheck$year)

PubAgriParkCheck %>%
  sample_n(size = 10) %>%
  kable()

HitechFirmsPub

数据来源：科学技术部火炬高技术产业开发中心http://www.innocom.gov.cn。

说明：本数据集直接在tech-report项目下进行原始数据（data-raw）的清洗和整理（"tech-report/data-raw/public-site/torch-innocom/xlsx/"）；然后清洗后的xlsx文件复制到（"tech-report/data-raw/data-tidy/public-site/torch-innocom/xlsx/"）。最后再一次复制到techme包开发环境下的"techme/data-raw/data-tidy/public-site/torch-innocom/xlsx/"，再经由"techme/data-raw/wfl_useData_HitechFirms.R"进行批量读取和数据集编译。

HitechFirmsPub：A wide format data set containing Details of Hi-tech Firms Numbers on Public Site.

• Totally r dim(HitechFirmsPub)[2] columns including: r paste0(names(HitechFirmsPub), collapse =", ").

• Totally r dim(HitechFirmsPub)[1] rows.

• Years range from r min(HitechFirmsPub$year) to r max(HitechFirmsPub$year)

HitechFirmsPub %>%
  sample_n(size = 10) %>%
  kable()

Source from MOA or MOE

data("PubObsStation")

Several data set sources from Ministry of Agriculture (MOA) or Ministry of Education (MOE).

PubObsStation

PubObsStation：A wide format data set containing Details of Evaluation result of National Agricultural Sci-tech Details list of Observe Stations of MOA and MOE.

• Totally r dim(PubObsStation)[2] columns including: r paste0(names(PubObsStation), collapse =", ").

• Totally r dim(PubObsStation)[1] rows.

• Years range from r min(PubObsStation$year) to r max(PubObsStation$year)

data("PubCars")

PubCars：A wide format data set containing Details of China Agricultural Research System(CARS) from MOA.

• Totally r dim(PubCars)[2] columns including: r paste0(names(PubCars), collapse =", ").

• Totally r dim(PubCars)[1] rows.

• Years range from r min(PubCars$year) to r max(PubCars$year)

PubObsStation %>%
  sample_n(size = 10) %>%
  kable()

PubBreedingXmj

data("PubBreedingXmj")

PubBreedingXmj：A wide format data set containing details of Officer' Livestock Breeding List from MOA (Xmj).

• Totally r dim(PubBreedingXmj)[2] columns including: r paste0(names(PubBreedingXmj), collapse =", ").

• Totally r dim(PubBreedingXmj)[1] rows.

• Years range from r min(PubBreedingXmj$year) to r max(PubBreedingXmj$year)

PubBreedingXmj %>%
  sample_n(size = 10) %>%
  kable()

PubStandardXmj

data("PubStandardXmj")

PubStandardXmj：A wide format data set containing details of Officer' Livestock Breeding List from MOA (Xmj).

• Totally r dim(PubStandardXmj)[2] columns including: r paste0(names(PubStandardXmj), collapse =", ").

• Totally r dim(PubStandardXmj)[1] rows.

• Years range from r min(PubStandardXmj$year) to r max(PubStandardXmj$year)

PubStandardXmj %>%
  sample_n(size = 10) %>%
  kable()

huhuaping/techme documentation built on June 16, 2024, 3:38 a.m.