OpasnetUtils/Translate

This page is a method. The page identifier is Op_en7392
Moderator:Jouni (see all)
Give your opinion to the peer rating of the content of this page. {{ #opasnet_rater: }}
Upload data Show results

Question

How to automatically translate texts in ovariables and graphs from one language to another?

Answer

Use the translate function (will be put as a part of OpasnetUtils package at some point). It goes through index names and locations and replaces terms in one language with those of another. The matching terms must be given in a data.frame called dictionary, where each language has a column. If no dictionary exists, the t2b table from this page will be used.

Rationale

Data table for the default dictionary.

Dictionary(-)

Obs	Finnish	Swedish	English
1	Kerrostalot		Apartment houses
2	Rivitalot		Attached houses
3	Keskimääräinen päiväaktiivisuus (MW)		Average daily activity (MW)
4	Tätä menoa		BAU
5	Biopolttoaine		Biofuel
6	Biolämpölaitokset		Biofuel heat plants
7	Kerrostalo		Blocks of flats
8	Rakennuttaja		Builders
9	Rakennus		Building
10	Rakennuksen omistaja		Building owner
11	Hoitolaitokset		Buildings for institutional care
12	Hiilineutraaliksi 2050		Carbon neutral 2050
13	Yhdistettyä biolla		CHP bio
14	CHP dieselgeneraattorit		CHP diesel generators
15	Ilmasto		Climate
16	Kivihiili		Coal
17	Kaupalliset		Commercial
18	Jäähdytys		Cooling
19	Kustannus		Cost
20	Käyttäjä		Custom
21	Datakeskusten lämpö		Data center heat
22	Päätös		Decision
23	Päätöksentekijä		Decision_maker
24	Syväporattu maalämpö		Deep-drill heat
25	Omakotitalot ja paritalot		Detached and semi-detached houses
26	Omakotitalot		Detached houses
27	Hajautettu ja merilämpö		Distributed and sea
28	Kaukolämpö		District
29	Omaan käyttöön		Domestic
30	Opetusala		Educational
31	Opetusrakennukset		Educational buildings
32	Tehollinen vuotuinen rahavirta (Meur/a)		Effective annual cash flow (Meur/a)
33	Tehokkuus		Efficiency
34	Sähkö		Electricity
35	Verotettu sähkö		Electricity_taxed
36	Päästöt Helsingin lämmityksestä		Emissions from heating in Helsinki
37	Energiamuotojen virrat\nVoimalapäätös = BAU		Energy commodity flows \n Plant policy = BAU
38	Energiamuotojen virrat 2005\nVoimalapäätös = BAU		Energy commodity flows in 2005 \n Plant policy = BAU
39	Energiantuotantokapasiteetti voimalapäätöksen mukaan		Energy production capacity by plant policy
40	Kohtuullinen energiansäästö		Energy saving moderate
41	Täysi energiansäästö		Energy saving total
42	Energiansäästöpolitiikka		EnergySavingPolicy
43	Polttoaine		Fuel
44	Polttoainekustannus		Fuel cost
45	Polttoöljy		Fuel oil
46	Polttoaineiden hinnat (verolliset)		Fuel prices (with tax)
47	Maakaasu		Gas
48	Yleinen		General
49	Maalämpö		Geothermal
50	Hanasaari		Hanasaari
51	Hanasaari bio		Hanasaari biofuel renovation
52	Terveys		Health
53	Terveys- ja sosiaaliala		Health and social sector
54	Terveyskustannus		Health cost
55	Terveysvaikutukset (DALY/a)		Health effects (DALY /a)
56	Lämpö		Heat
57	Lämmitys		Heating
58	Raskas polttoöljy		Heavy oil
59	Isot biolämpökeskukset		Helen proposition
60	Kotitalouden ilmastointi		Household air conditioning
61	Kotitalouden ilmalämpöpumppu		Household air heat pumps
62	Kotitalouden maalämpö		Household geothermal heat
63	Kotitalouden aurinkovoima		Household solar
64	Tulot ja menot voimaloittain		Incomes and costs by plant
65	Tulot ja menot voimalapäätöksen mukaan		Incomes and costs by plant policy
66	Teollisuus		Industrial
67	Teollisuusrakennukset		Industrial buildings
68	Investointikustannus		Investment cost
69	Katri Vala viilennys		Katri Vala cooling
70	Katri Vala lämpö		Katri Vala heat
71	Kellosaaren varavoimala		Kellosaari back-up plant
72	Kymijoen vesivoimalat		Kymijoki River's plants
73	Mökki		Leisure houses
74	Kevytöljy		Light oil
75	Loviisan ydinvoimalämpö		Loviisa nuclear heat
76	Matalaenerginen		Low-energy
77	Ylläpitokustannus		Management cost
78	Maksimikapasiteetti (MW)		Maximum capacity (MW)
79	Nesteen öljyjalostamolämpö		Neste oil refinery heat
80	Uusi		New
81	Ei mitään		None
82	HUOM! Kaikissa kuvissa ja taulukoissa oletetaan täysi energiansäästö ellei erikseen mainita.\n		NOTE! In all graphs and tables, the Total energy saving policy is assumed unless otherwise noted\n
83	Toimistot		Offices
84	Öljy		Oil
85	Vanha		Old
86	Käyttökustannus		Operation cost
87	Vaihtoehto		Option
88	Muu		Other
89	Muut lähteet		Other sources
90	Passiivitalo		Passive
91	Turve		Peat
92	Voimala		Plant
93	Voimalapolitiikka		PlantPolicy
94	Saaste		Pollutant
95	Sähköntuotanto, päivän keskiarvo (MW)		Power output daily average (MW)
96	Voimalan aktiivisuus lämpötilan mukaan, päiväoptimi\nenergian kohtuusäästö 2035		Power plant activity by temperature daily optim \nmoderate energy saving in 2035
97	Voimalan aktiivisuus lämpötilan mukaan, päiväoptimi 2035		Power plant activity by temperature daily optim in 2035
98	Voimalan aktiivisuus lämpötilan mukaan, päiväoptimi\nVoimalapäätös = tätä menoa, vuosi 2035		Power plant activity by temperature daily optim \nPlant policy = BAU, Year = 2035
99	Voimalan aktiivisuus, päivän keskiarvo (MW)		Power plant activity daily average (MW)
100	Hinta (Eur/GWh)		Price (Eur/MWh)
101	Prosessilämpö		Process heat
102	Julkinen		Public
103	Korjaukset		Renovation
104	Rivitalot		Row houses
105	Myyntivoitto		Sales proceeds
106	Salmisaari biokorjaus		Salmisaari biofuel renovation
107	Merilämpö		Sea heat pump
108	Merilämpö viilennykseen		Sea heat pump for cooling
109	Seinät ja katto		Sheath reform
110	Pienet öljylämpölaitokset		Small fuel oil heat plants
111	Pienet kaasulämpölaitokset		Small gas heat plants
112	Puun pienpoltto		Small-scale wood burning
113	Urheilu		Sports
114	Suvilahden voimavaraaja		Suvilahti power storage
115	Suvilahden aurinkovoima		Suvilahti solar
116	Taulukko 1. Kokonaistautitaakka DALY/a eri päätösvaihtoehtoyhdistelmissä.		Table 1: Total DALYs/a by different combinations of policy options.
117	Tekniset		Techical systems
118	Lämpötila		Temperature
119	Päivän keskilämpötila		Temperature of the day
120	Aika		Time
121	Kokonaisvuosienergia (GWh/a)		Total annual energy (GWh/a)
122	Energiantuotannon kokonaiskustannus		Total costs of energy production
123	Kokonaistautitaakka DALY/a eri päätösvaihtoehtoyhdistelmissä.\n		Total DALYs/a by different combinations of policy options.\n
124	Perinteinen		Traditional
125	Liikennerakennukset		Transport and communications buildings
126	Vanhankaupungin voimala		Vanhakaupunki museum
127	Vuosaari C bio		Vuosaari C biofuel
128	Varastot		Warehouses
129	Jäte		Waste
130	Tuulivoimalat		Wind mills
131	Ikkunat		Windows
132	Puu		Wood
133	Vuosikustannus (Meur)		Yearly costs (Meur)
134	Investointikielto		Zero investment

+ Show code- Hide code ### This is code Op_en7392/dictionary) on page [[OpasnetUtils/Tranlate]]. library(OpasnetUtils) dictionary <- tidy(opbase.data("Op_en7392.dictionary")) colnames(dictionary)[colnames(dictionary) == "Result"] <- "English" objects.store(dictionary) cat("Data.frame dictionary stored.\n")

+ Show code- Hide code ### This is code Op_en7392/translate on page [[OpasnetUtils/Translate]]. library(OpasnetUtils) translate <- function( # Previously suomenna x, # object to be translated (ovariable, data.frame, or vector) lang = NULL, # language to translate to. dict = NULL # rcode containing the dictionary ) { if(is.null(lang)) if(exists("language")) lang <- language else lang <- "English" # Use dict if it is given. Otherwise use existing dictionary, or fetch the default one. if(is.null(dict)) dict <- "Op_en7392/dictionary" else rm(dictionary, envir = .GlobalEnv) Fetch(data.frame(Name = "dictionary", Ident = dict)) # if(!is.null(dict) | !exists("dictionary")) { # if(is.null(dict)) dict <- "Op_en7392.dictionary" # dictionary <- tidy(opbase.data(dict)) # colnames(dictionary)[colnames(dictionary) == "Result"] <- "English" # } require(reshape2) dic <- melt(dictionary, id.vars = lang, value.name = "From") tr <- function(a) { if(is.numeric(a)) return(a) if(is.factor(a)) temp <- levels(a) else temp <- a out <- as.character(dic[[lang]][match(temp, dic$From)]) out[is.na(out)] <- temp[is.na(out)] if(is.factor(a)) { out2 <- a; levels(out2) <- out } else { out2 <- out } return(out2) } if(class(x) == "ovariable") { colnames(x@output) <- tr(colnames(x@output)) for(i in colnames(x@output)) { x@output[[i]] <- tr(x@output[[i]]) } } if(is.data.frame(x)) { colnames(x) <- tr(colnames(x)) for(i in colnames(x)) { x[[i]] <- tr(x[[i]]) } } if(is.vector(x)) { x <- tr(x) } return(x) } objects.store(translate) cat("Function translate stored.\n")