Manufacturing data of India

Source of Data : GOI
The actual data of Manufacturing data upto 2015 is analysed as under. Let us see the output.
The Meta data
1.Industry Description
2.Number of Factories
3.Productive Capital
4.No. of Employees
5.Total Output
6.Net Value Added

Units for the above is not available to substantiate.

f<-read.csv("mfg.csv")
###########################################################
totalop<-tail(sort(f$Total.Output),5)
totalop<-sort(totalop,decreasing =TRUE)
print("The top five outputs values and the corresponding industries are")
for(i in 1:5)
{
  a[i]=which(f$Total.Output==totalop[i])
}
print(paste(f$Industry.Description[a],totalop))
print("************************************************")

##############################################################
print("The top five Segments with more employee count are")
totalemp<-tail(sort(f$No..of.Employees),5)
totalemp<-sort(totalemp,decreasing =TRUE)
for(i in 1:5)
{
  a[i]=which(f$No..of.Employees==totalemp[i])
}
print(paste(f$Industry.Description[a],totalemp))
print("************************************************")
###############################################################
print("The top five Segments with more Factories")
totalfac<-tail(sort(f$Number.of.Factories),5)
totalfac<-sort(totalfac,decreasing =TRUE)
for(i in 1:5)
{
  a[i]=which(f$Number.of.Factories==totalfac[i])
}
print(paste(f$Industry.Description[a],totalfac))
print("************************************************")
###############################################################
print("The top five Segments with more Productive capital")
totalpc<-tail(sort(f$Productive.Capital),5)
totalpc<-sort(totalpc,decreasing =TRUE)
for(i in 1:5)
{
  a[i]=which(f$Productive.Capital==totalpc[i])
}
print(paste(f$Industry.Description[a],totalpc))
print("************************************************")
##############################################################
print("The top five Segments which added more value")
totalva<-tail(sort(f$Net.Value.Added),5)
totalva<-sort(totalva,decreasing =TRUE)
for(i in 1:5)
{
  a[i]=which(f$Net.Value.Added==totalva[i])
}
print(paste(f$Industry.Description[a],totalva))
********************************************************************************
OUTPUT

[1] "The top five outputs values and the corresponding industries are"
[1] "Manufacture of refined petroleum products 877330.93"                                                                   
[2] "Manufacture of basic iron and steel 607845.93"                                                                         
[3] "Manufacture of basic chemicals fertilizer and nitrogen compounds plastics and synthetic rubber in primary forms 272185.06"
[4] "Others 270214.59"                                                                                                       
[5] "Spinning weaving and finishing of textiles. 247030.36"     

                                                          
[1] "************************************************"
[1] "The top five Segments with more employee count are"
[1] "Spinning weaving and finishing of textiles. 1182643"   
[2] "Manufacture of nonmetallic mineral products n.e.c. 864994"
[3] "Manufacture of other food products 822043"             
[4] "Preparation and spinning of textile fibers 714510"     
[5] "Manufacture of basic iron and steel 714307"   

       
[1] "************************************************"
[1] "The top five Segments with more Factories"
[1] "Manufacture of nonmetallic mineral products n.e.c. 23361"                         
[2] "Manufacture of grain mill products starches and starch products 19010"             
[3] "Manufacture of grain mill products  18244"                                         
[4] "Spinning weaving and finishing of textiles. 13134"                                 
[5] "Manufacture of other fabricated metal products metalworking service activities 10713"
[1] "************************************************"
[1] "The top five Segments with more Productive capital"
[1] "Manufacture of basic iron and steel 472212.59"             
[2] "Others 233988.44"                                         
[3] "Manufacture of refined petroleum products 191739.79"       
[4] "Manufacture of nonmetallic mineral products n.e.c. 133685.59"
[5] "Spinning weaving and finishing of textiles. 129478.7"     
[1] "************************************************"
[1] "The top five Segments which added more value"
[1] "Manufacture of basic iron and steel 119211.95"                                 
[2] "Manufacture of pharmaceuticals medicinal chemical and botanical products 58152.85"
[3] "Manufacture of refined petroleum products 47180.63"                             
[4] "Manufacture of other chemical products 46698.02"                               
[5] "Others 44645.49"