types<-table(unlist(costume$objectName, costume$Culture))
print(types)
Accessory Accessory Set
5 55
Afternoon apron Afternoon bodice
3 1
Afternoon dress Afternoon ensemble
81 3
Afternoon hat Afternoon jacket
1 3
Afternoon suit Aiguillette
1 1
Angarkha Apron
1 55
Armlet Armor
2 1
Bag Bag (Chatelaine)
48 1
Ball gown Banyan
25 8
Barbe Bashlik
10 4
Basque Basquine
4 1
Bathing suit Beachwear
7 1
Bed Jacket Belt
8 12
Belt Buckle Beret
8 1
Bergère Bergère hat
1 1
Bertha Bib
21 5
Bicorne Biggin
2 1
Binder Blouse
2 22
Boa Boater
6 4
Bodice Bonnet
50 175
Book Bootees
2 16
Booties Boots
2 56
Boudoir cap Bouquet Holder
1 2
Bracelet Brassiere
17 1
Breeches Bridesmaid dress
23 2
Brisé fan Brogans
19 3
Brooch Brush
12 6
Buckle Burnus
5 1
Busk Bust forms
22 1
Bustle Button
28 192
Caftan Cage crinoline
2 22
Calash Cane
16 7
Cap Cape
210 62
Cape (Tippet) Capelet
1 2
Capote Capuchin
2 2
Caraco Card Case
4 5
Carpetbag Carriage boots
2 3
Case Chatelaine
5 1
Chemise Chemisette
38 18
Choga Choker
1 1
Chopines Christening Cap
3 4
Christening Dress Christening ensemble
11 1
Christening Ensemble Christening Mitts
3 2
Christening robe Clip earrings
1 1
Cloak Cloche
12 1
Clogs Clutch
1 2
Coat Coatdress
126 1
Cockade fan Cocktail Dress
1 3
Cocktail Suit Coin purse
1 21
Collar Comb
259 16
Coronet Corselet
1 4
Corset Corset cover
107 1
Corset Cover Costume
13 1
Court Coat Court dress
1 1
Court Dress Court Ensemble
2 4
Court Presentation Ensemble Court Presentation Handkerchief
3 1
Court Presentation Suit Court Shoes
1 1
Court suit Court Suit
1 6
Court train Court Train
1 4
Crakows Cravat
1 15
Crinoline Cuff Links
4 2
Cuffs Cutaway coat
29 3
Cycling suit Dance dress
1 6
Dance ensemble Dance slippers
1 1
Derby Dickey
4 11
Dinner dress Dinner ensemble
37 3
Dinner shoes Dinner suit
3 1
Dinner vest Doll
1 3
Doll Accessory Dolman
2 26
Domino Double collar
1 5
Doublet Drawers
5 42
Drawstring bag Dress
11 757
Dress shirt Dressing gown
2 1
Dressing Gown Dressing Jacket
48 17
Duster Ear Ornaments
4 2
Earrings Engageantes
23 17
Engraving Ensemble
2 163
Epaulets Equipment
8 2
Evening bag Evening belt
3 1
Evening bodice Evening bonnet
1 10
Evening boots Evening bow tie
9 1
Evening cap Evening cape
2 21
Evening cloak Evening cloche
3 2
Evening coat Evening dolman
30 2
Evening dress Evening ensemble
223 25
Evening gloves Evening hat
6 6
Evening headdress Evening jacket
1 3
Evening mitts Evening muff
5 1
Evening overdress Evening oxfords
3 1
Evening pouch Evening pumps
5 8
Evening purse Evening sandals
1 2
Evening shawl Evening shirt
4 1
Evening shoes Evening slippers
24 38
Evening stole Evening suit
2 5
Evening top hat Evening turban
1 2
Evening vest Evening wrap
9 7
Eyeglasses Fan
1 183
Fanchon Fancy dress costume
6 3
Fascinator Fedora
1 1
Fichu Fixed fan
72 3
Flower girl ensemble Fob
1 32
Frock coat Gaiters
6 4
Galoshes Gaming purse
3 9
Garters Gauntlets
7 3
Girdle Glengarry cap
1 1
Gloves Gym Suit
85 2
Habit à la disposition Hair Accessory
4 11
Hairpin Handkerchief
5 95
Hat Head Protector
170 2
Headcloth Headcloth (Kerchief)
4 1
Headdress Headscarf
34 5
Helmet Hood
1 8
Hoops Housecoat
4 1
Hunting coat Hunting ensemble
3 3
Hunting vest Ice Skates
1 1
Jabot Jackboots
5 1
Jacket Jeans
83 3
Jerkin Jewelry Set
2 9
Kerchief Kimono
27 1
Knickerbockers Lace
1 13
Lappet Layette
25 1
Leggings Lingerie
1 10
Livery Locket
8 2
Lorgnette Lounge suit
1 2
Loungewear Mantilla
4 3
Mantle Mantua
32 2
Mask Military accessory
1 1
Military Accessory Military belt
1 3
Military bicorne Military cap
1 1
Military Coat Military collar
2 2
Military Ensemble Military epaulets
1 3
Military Epaulets Military hat
2 1
Military Hat Military hatbox
3 1
Military helmet Military jacket
1 1
Military Jacket Military overcoat
1 1
Military sash Military suit
1 1
Military tail coat Military trousers
1 2
Military Trousers Military Uniform
1 5
Miser's purse Mittens
13 8
Mitts Mobcap
63 2
Moccasins Morning cap
2 12
Morning dress Morning frock coat
50 1
Morning jacket Morning suit
1 1
Morning vest Mourning bonnet
1 2
Mourning Coat Mourning dress
1 6
Mourning Dress Mourning Ensemble
6 2
Mourning fan Mourning Fan
1 3
Mourning Hat Mourning Jewelry
1 1
Mourning Kerchief Mourning poke bonnet
1 2
Mourning Ring Mourning Shawl
1 2
Mourning top hat Mourning veil
1 2
Mourning Veil Muff
2 11
Mules Neck Torc
7 1
Neckcloth Neckerchief
5 3
Necklace Neckpiece
26 6
Necktie Negligée
10 7
Nightcap Nightgown
10 49
Nightshirt Norfolk suit
3 1
Opera cape Opera cloak
2 3
Opera coat Opera glasses
4 1
Opera hat Ornament
2 3
Overboots Overcoat
1 4
Overdress Overshoes
1 3
Oxfords Pajamas
4 2
Paletot Panniers
1 2
Pantalets Pantaloons
13 6
Parasol Pattens
87 10
Pectoral Peignoir
1 7
Pelerine Pelisse
53 15
Pendant Petticoat
6 104
Picture hat Pierced earrings
2 2
Pin Pinafore
21 8
Pince-Nez Pocket
1 19
Poke bonnet Poncho
19 1
Pouch Promenade bonnet
76 3
Promenade dress Promenade hat
3 3
Promenade parasol Promenade suit
1 1
Pumps Purse
34 76
Raincoat Redingote
1 2
Reticule Ribbon
19 8
Riding Bodice Riding Boots
1 2
Riding Coat Riding Crop
2 1
Riding Ensemble Riding Gloves
1 1
Riding Habit Riding Hat
12 4
Riding jacket Riding Waistcoat
1 1
Ring Robe
6 18
Robe a l'Anglaise Robe à l'Anglaise
3 14
Robe à la Française Robe à la Polonaise
35 10
Robe de Style Robe Volante
22 1
Round gown Rubbers
2 1
Sailor hat Sailor suit
5 1
Sandals Sarape
3 1
Sari Sash
3 5
Scarf Seal
52 2
Shawl Shirt
125 56
Shoe Buckles Shoe Trees
61 13
Shoemaker's Lasts Shoes
1 220
Skating ensemble Skeleton suit
2 3
Ski jacket Ski trousers
1 1
Skirt Sleeve Supports
13 2
Sleeves Slip
9 4
Slippers Smock
138 2
Smoking jacket Smoking Jacket
7 1
Snood Socks
5 19
Spats Spectacle Case
1 1
Spencer Spy-Glass
16 1
Stays Stock
7 10
Stockings Stole
84 26
Stomacher Stud
21 1
Suit Sunbonnet
101 12
Suspenders Sweater
10 4
Tail coat Tailcoat
4 1
Tea gown Teddy
16 3
Textile Textile fragment
4 1
Textile piece Theatrical costume
1 1
Tiara Tights
1 2
Top hat Toque
12 1
Train Tricorne
1 7
Trimming Trousers
5 45
Trunk Tucker
2 2
Tunic Turban
2 3
Umbrella Underdress
6 7
Underpants Undershirt
1 5
Underskirt Undersleeves
14 76
Underwear Uniform
7 2
Uniform Coat Uniform Gaiters
1 1
Uniform Hat Vanity Case
1 1
Veil Vest
16 100
Vestee Visiting cape
10 1
Visiting dress Visiting ensemble
15 1
Waist Waist Cincher
3 2
Waistcoat Walking boots
107 4
Walking dress Walking ensemble
13 4
Walking suit Wallet
2 6
Watteau hat Wedding Accessory Set
1 1
Wedding Bonnet Wedding Boots
5 8
Wedding bow tie Wedding Cape
1 1
Wedding Chemise Wedding Corset
1 4
Wedding cravat Wedding cutaway coat
1 1
Wedding dress Wedding Dress
4 70
Wedding ensemble Wedding Ensemble
1 27
Wedding Fan Wedding frock coat
1 1
Wedding Gloves Wedding Handkerchief
3 2
Wedding Hat Wedding Headdress
1 2
Wedding Lingerie Wedding Necktie
2 2
Wedding Nightgown Wedding Nightshirt
1 1
Wedding Petticoat Wedding Ring
1 1
Wedding Sash Wedding Shawl
1 2
Wedding shirt Wedding Shirt
1 1
Wedding Shoes Wedding Slippers
9 25
Wedding socks Wedding Stock
1 1
Wedding stockings Wedding Stockings
4 2
Wedding suit Wedding Suit
1 3
Wedding Veil Wedding vest
7 1
Wedding Vest Wedding Waistcoat
11 4
Wentke Wig
1 3
Wig Bag Wrap
1 1
Wrapper Yelek
11 1
# frequency table on objectName reclass "bodyclass1"
reclass<-table(unlist(costumes_reclass$bodyclass1))
print(reclass)
accessory bottom feet fullbody head top
3010 178 730 2271 390 1189
# frequency table on objectName reclass for accessory
reclass2<-table(unlist(costumes_reclass$bodyclass2))
print(reclass2)
arm belly bottom chest ears face feet fullbody hand head
311 33 54 74 44 6 20 2 787 572
leg middle neck none shoulder top wrist
98 1 773 97 21 125 63
write.csv(costumes_reclass, file="costume_reclass.csv")