OpasnetUtils/Translate

This page is a knowledge crystal of subtype method. The page identifier is Op_en7392
Moderator:Jouni (see all)
Upload data {{#opasnet_base_link:Op_en7392}}

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.

Data updated successfully!

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ökeskukset		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	Kaukolämpövirrat		District heat flow
30	Omaan käyttöön		Domestic
31	Opetusala		Educational
32	Opetusrakennukset		Educational buildings
33	Tehollinen vuotuinen rahavirta (Meur/a)		Effective annual cash flow (Meur/a)
34	Tehokkuus		Efficiency
35	Sähkö		Electricity
36	Sähkön virrat		Electricity flow
37	Verotettu sähkö		Electricity_taxed
38	Päästöt Helsingin lämmityksestä		Emissions from heating in Helsinki
39	Energiamuotojen virrat\nVoimalapäätös = BAU		Energy commodity flows \n Plant policy = BAU
40	Energiamuotojen virrat 2005\nVoimalapäätös = BAU		Energy commodity flows in 2005 \n Plant policy = BAU
41	Energiantuotantokapasiteetti voimalapäätöksen mukaan		Energy production capacity by plant policy
42	Kohtuullinen energiansäästö		Energy saving moderate
43	Täysi energiansäästö		Energy saving total
44	Energiansäästöpolitiikka		EnergySavingPolicy
45	Polttoaine		Fuel
46	Polttoainekustannus		Fuel cost
47	Polttoöljy		Fuel oil
48	Polttoaineiden hinnat (verolliset)		Fuel prices (with tax)
49	Maakaasu		Gas
50	Yleinen		General
51	Maalämpö		Geothermal
52	Hanasaari		Hanasaari
53	Hanasaari bio		Hanasaari biofuel renovation
54	Terveys		Health
55	Terveys- ja sosiaaliala		Health and social sector
56	Terveyskustannus		Health cost
57	Terveysvaikutukset (DALY/a)		Health effects (DALY /a)
58	Pienhiukkasten terveysvaikutukset lämmityksestä Helsingissä		Health effects of PM2.5 from heating in Helsinki
59	Lämpö		Heat
60	Lämmitys		Heating
61	Raskas polttoöljy		Heavy oil
62	Isot biolämpökeskukset		Helen proposition
63	Kotitalouden ilmastointi		Household air conditioning
64	Kotitalouden ilmalämpöpumppu		Household air heat pumps
65	Kotitalouden maalämpö		Household geothermal heat
66	Kotitalouden aurinkovoima		Household solar
67	Tulot ja menot voimaloittain		Incomes and costs by plant
68	Tulot ja menot voimalapäätöksen mukaan		Incomes and costs by plant policy
69	Teollisuus		Industrial
70	Teollisuusrakennukset		Industrial buildings
71	Investointikustannus		Investment cost
72	Katri Vala viilennys		Katri Vala cooling
73	Katri Vala lämpö		Katri Vala heat
74	Kellosaaren varavoimala		Kellosaari back-up plant
75	Kymijoen vesivoimalat		Kymijoki River's plants
76	Mökki		Leisure houses
77	Kevytöljy		Light oil
78	Loviisan ydinvoimalämpö		Loviisa nuclear heat
79	Matalaenerginen		Low-energy
80	Ylläpitokustannus		Management cost
81	Maksimikapasiteetti (MW)		Maximum capacity (MW)
82	Nesteen öljyjalostamolämpö		Neste oil refinery heat
83	Uusi		New
84	Ei mitään		None
85	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
86	Toimistot		Offices
87	Öljy		Oil
88	Vanha		Old
89	Käyttökustannus		Operation cost
90	Vaihtoehto		Option
91	Muu		Other
92	Muut lähteet		Other sources
93	Passiivitalo		Passive
94	Turve		Peat
95	Voimala		Plant
96	Voimalapolitiikka		PlantPolicy
97	Saaste		Pollutant
98	Sähköntuotanto, päivän keskiarvo (MW)		Power output daily average (MW)
99	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
100	Voimalan aktiivisuus lämpötilan mukaan, päiväoptimi 2035		Power plant activity by temperature daily optim in 2035
101	Voimalan aktiivisuus lämpötilan mukaan, päiväoptimi\nVoimalapäätös = tätä menoa, vuosi 2005		Power plant activity by temperature daily optim \nPlant policy = BAU, Year = 2005
102	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
103	Voimalan aktiivisuus, päivän keskiarvo (MW)		Power plant activity daily average (MW)
104	Hinta (Eur/MWh)		Price (Eur/MWh)
105	Prosessilämpö		Process heat
106	Julkinen		Public
107	Korjaukset		Renovation
108	Rivitalot		Row houses
109	Myyntivoitto		Sales proceeds
110	Salmisaari biokorjaus		Salmisaari biofuel renovation
111	Merilämpö		Sea heat pump
112	Merilämpö viilennykseen		Sea heat pump for cooling
113	Seinät ja katto		Sheath reform
114	Pienet öljylämpökeskukset		Small fuel oil heat plants
115	Pienet kaasulämpökeskukset		Small gas heat plants
116	Puun pienpoltto		Small-scale wood burning
117	Urheilu		Sports
118	Suvilahden voimavaraaja		Suvilahti power storage
119	Suvilahden aurinkovoima		Suvilahti solar
120	Taulukko 1. Kokonaistautitaakka DALY/a eri päätösvaihtoehtoyhdistelmissä.		Table 1: Total DALYs/a by different combinations of policy options.
121	Tekniset		Techical systems
122	Lämpötila		Temperature
123	Päivän keskilämpötila		Temperature of the day
124	Aika		Time
125	Kokonaisvuosienergia (GWh/a)		Total annual energy (GWh/a)
126	Energiantuotannon kokonaiskustannus		Total costs of energy production
127	Kokonaistautitaakka DALY/a eri päätösvaihtoehtoyhdistelmissä.\n		Total DALYs/a by different combinations of policy options.\n
128	Perinteinen		Traditional
129	Liikennerakennukset		Transport and communications buildings
130	Vanhankaupungin voimala		Vanhakaupunki museum
131	Vuosaari C bio		Vuosaari C biofuel
132	Varastot		Warehouses
133	Jäte		Waste
134	Tuulivoimalat		Wind mills
135	Ikkunat		Windows
136	Puu		Wood
137	Vuosikustannus (Meur)		Yearly costs (Meur)
138	Investointikielto		Zero investment
139	Rakennuskanta Helsingissä		Building stock in Helsinki
140	Rakennuskanta Helsingissä lämmityksen mukaan		Building stock in Helsinki by heating
141	Rakennuskanta Helsingissä tehokkuuspolitiikan mukaan		Building stock in Helsinki by efficiency policy
142	Rakennuskanta Helsingissä korjauspolitiikan mukaan		Building stock in Helsinki by renovation policy
143	Tekniset systeemit		Technical systems
144	Kerrosala (M m2)		Floor area (M m2)
145	Maatalousrakennukset		Agricultural buildings
146	Kokoontumisrakennukset		Assembly buildings
147	Palo- ja pelastustoimen rakennukset		Fire fighting and rescue service buildings
148	Vapaa-ajan rakennukset		Free-time residential buildings
149	Muut rakennukset		Other buildings
150	WWF-energiansäästö		WWF energy saving
151	Rakennusten korjaus politiikan ja tehokkuuden mukaan		Renovation of buildings by policy and efficiency
152	Päästö (ton /a)		Emissions (ton /a)
153	CO2suora		CO2direct
154	CO2ekv		CO2eq
155	CO2kauppa		CO2trade
156	Maakaasu		Natural gas
157	Kaukokylmä		District cooling
158	Kuluttajasähkö		Consumer electricity
159	Ilmastointi		Electric cooling
160	Kuuma vesi		Hot water
161	Kokonaisenergia (GWh/a)		Total energy (GWh /a)
162	Sukupuoli		Sex
163	Mies		Male
164	Nainen		Female
165	Ikä		Age
166	Ikäluokka		Age_group
167	Altistuminen silakassa oleville aineille		Exposure to compounds in Baltic herrin
168	Todennäköisyystiheys		Probability density
169	Altistuminen, g /d		Exposure, g /d
170	Altiste		Compound
171	D-vitamiini		Vitamin D
172	Dioksiini		Dioxin
173	TEQ		Dioxin+PCB
174	Metyylielohopea		Methylmercury
175	Silakan kokonaissyönti maakunnittain		Consumption of Baltic herring by district
176	Vastaajat iän ja sukupuolen mukaan		Respondents by age and sex
177	Kyllä		Yes
178	Ei		No
179	Vaste		Response
180	Aivohalvaus		Stroke
181	D-vitamiinin saantisuositus		Vitamin D recommendation
182	Hammasvaurio		Dental defect
183	Lapsen ÄO		Child's IQ
184	Sydänkuolema		Cardiac death
185	Syöpä		Cancer
186	Tausta		Background
187	Energiankulutus kaikissa rakennuksissa		Energy consumption in all buildings
188	Hyödyke		Consumable
189	Energiantarve verkossa		Energy demand in the network
190	Vuosittainen rahavirta (Meur)		Yearly cash flow (Meur)
191	Energiantuotannon kokonaishyödyt ja -kustannukset		Total benefits and costs of energy production
192	Ostosähkö		Electricity bought

+ 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" for(i in colnames(dictionary)) { dictionary[[i]] <- gsub("\\n", "#n#", dictionary[[i]], fixed = TRUE) dictionary[[i]] <- gsub("\n", "#n#", dictionary[[i]], fixed = TRUE) } 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)) 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 temp <- gsub("\\n", "#n#", temp, fixed = TRUE) temp <- gsub("\n", "#n#", temp, fixed = TRUE) out <- as.character(dic[[lang]][match(temp, dic$From)]) out[is.na(out)] <- temp[is.na(out)] out <- gsub("#n#", "\n", 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")