Central product classification

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

Question

What is a good classification system for products?

Answer

⇤--#: . Something wrong with the first-level codes (there is a leading zero although should not be). This was corrected, but is there more problems with the data? --Jouni (talk) 23:05, 27 December 2013 (EET) (type: truth; paradigms: science: attack)

+ Show code- Hide code library(OpasnetUtils) objects.latest("Op_en5914", code_name = "initiate") CPC <- EvalOutput(CPC) oprint(CPC@output[CPC@output$CPC.level < 3 , ]) oprint(head(CPC@output))

Which class do you want to see in detail?: + Show code- Hide code library(OpasnetUtils) objects.latest("Op_en5914", code_name = "initiate") CPC <- EvalOutput(CPC) oprint(CPC@output[regexpr(class, CPC@output$CPC.code) == 1 , ])

Rationale

UN CPC version 2 seems to be an optimal choice. It contains a hierarchical system for products, 4408 rows in total. It is organised in five hierarchical levels. It is based on ten categories at the top level, numbered from 0 to 9: [1] [2]

• Agriculture, forestry and fishery products
• Ores and minerals; electricity, gas and water
• Food products, beverages and tobacco; textiles, apparel and leather products
• Other transportable goods, except metal products, machinery and equipment
• Metal products, machinery and equipment
• Constructions and construction services
• Distributive trade services; accommodation, food and beverage serving services; transport services; and electricity, gas and water distribution services
• Financial and related services; real estate services; and rental and leasing services
• Business and production services
• Community, social and personal services

Calculations

+ Show code- Hide code library(OpasnetUtils) dat <- opbase.data("Op_en5914") dat$CPC.name <- dat$Result temp <- levels(dat$CPC.name) temp <- gsub("\r", "", temp) levels(dat$CPC.name) <- temp dat$Result <- 1 temp2 <- as.character(levels(dat$CPC.code)[dat$CPC.code]) temp2[c(318, 416, 1016, 1734)] <- c("1", "2", "3", "4") dat$CPC.code <- as.factor(temp2) dat$CPC.level <- nchar(temp2) CPC <- Ovariable("CPC", data = dat) objects.store(CPC) cat("Ovariable CPC created.\n")

Related files

<mfanonymousfilelist></mfanonymousfilelist>