提交: 34c84b4317434dc90ad996efbea7c0ce4cdbf4c1 - myprojects-hg-reborn (hg)

Commit MetaInfo

• 修订版: 34c84b4317434dc90ad996efbea7c0ce4cdbf4c1 (tree)
• 时间: 2020-01-31 22:33:59
• 作者: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

A script showing how to use the new excel functions.

更改概述

• add: R-codes/process_eu_korea.R

差异

diff -r 4e1547a4c9c3 -r 34c84b431743 R-codes/process_eu_korea.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/process_eu_korea.R	Fri Jan 31 14:33:59 2020 +0100
@@ -0,0 +1,106 @@
+rm(list=ls())
+library(tidyverse)
+library(openxlsx)
+
+
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
+
+
+## append_xlsx <- function(df_for_workbook, out_xlsx, name_worksheet)
+## if (!file.exists(out_xlsx))  {
+##     # Create workbook using openxlsx
+##     wb <- createWorkbook()
+##     # Add worksheet
+##     addWorksheet(wb, name_worksheet)
+##     # Write data frame to new worksheet
+##     writeData(wb, name_worksheet, df_for_workbook)
+##     # Save file
+##     saveWorkbook(wb, file = out_xlsx)
+##   } else {
+##     # Read in existing data
+##     old_wb <-
+##       readWorkbook(out_xlsx,
+##                    sheet = name_worksheet,
+##                    detectDates = TRUE)
+##     # Append new data
+##     new_data <-
+##       bind_rows(old_wb,
+##                 df_for_workbook)
+##     # Load and write updated data frame to existing worksheet
+##     wb <-  loadWorkbook(out_xlsx)
+##     writeData(wb, name_worksheet, new_data)
+##     # Save file
+##     saveWorkbook(wb, out_xlsx, overwrite = TRUE)
+##   }
+
+
+
+## add_sheet_xlsx <- function(df, filename, sheet_name){
+
+## wb <- loadWorkbook(filename)
+## addWorksheet(wb, sheet_name)
+## writeData(wb, sheet = sheet_name, df,keepNA = TRUE)
+##     saveWorkbook(wb,filename,overwrite = T)
+## }
+
+
+
+df_ini <- read_tsv("eu-korea.tsv") %>%
+    mutate(month=as.integer(month),
+           year=as.integer(year))%>% 
+    arrange(desc(year), desc(month))
+
+df <- df_ini  %>%
+    filter(month %in% seq(1,11) ) %>%
+    group_by(reporterlabel, partnerlabel ,year) %>%
+    summarise(tot_imports=sum(i_value),
+              tot_exports=sum(e_value)) %>%
+    calc_growth(tot_imports, growth_imports) %>% 
+    calc_growth(tot_exports, growth_exports)  %>%
+    mutate(growth_exports=growth_exports*100,
+           growth_imports=growth_imports*100)
+
+
+
+write.xlsx(df_ini, file = "EU-Korea2.xlsx",
+      sheetName = "raw_data", row.names=F,keepNA = TRUE)
+
+
+add_sheet_xlsx(df, "EU-Korea2.xlsx", "results")
+
+
+
+## wb <- loadWorkbook("EU-Korea2.xlsx")
+
+## addWorksheet(wb, "results")
+
+## writeData(wb, sheet = "results", df,keepNA = TRUE)
+
+## saveWorkbook(wb,"EU-Korea2.xlsx",overwrite = T)
+
+
+
+
+## wb <- loadWorkbook("EU-Korea2.xlsx")
+
+## addWorksheet(wb, "results")
+
+## writeData(wb, sheet = "results", df,keepNA = TRUE)
+
+## saveWorkbook(wb,"EU-Korea2.xlsx",overwrite = T)
+
+
+
+
+
+
+
+
+
+
+
+
+
+## append_xlsx(df_ini,"EU-Korea.xlsx" ,"test")
+
+print("So far so good")