Question

2. Ancient Greek pottery. Archeologists excavating excavating the ancient Greek settlement at Phylakopi classified the pottery found in trenches. The next table describes the collection of 837 pottery pieces uncovered in a particular layer at the excavation site, POT CATEGORY Burnished Monochrome Slipped NUMBER FOUND 133 460 59 Painted in curvilinear decoration 20 Painted in geometric decoration 165 Total 837 Construct a relative frequency table for the data. Display the relative frequencies in a bar graph and pie chart. (use R for this part) a. b.

PLEASE USE R language too

Answer 1

a.

Number found Relative frequency Pot category Burnished Monochrome Slipped Painted curvilinear Painted Geometric Total 133 460 59 20 165 837 0.1589 0.5496 0.0705 0.0239 0.1971

b.

#Simple Pie Chart
slices <- c(133, 460,59, 20,165)
lbls <- c("Burnished", "Monochrome", "Slipped",
"Pianted in curvilinear decoration",
"Pianted in geometric decoration")
#bar chart
pie(slices, labels = lbls, main="Pie Chart of Pot Category")
barplot(slices,names.arg=lbls,xlab="Pot Category",ylab="Number found",col="blue",
main="bar chart for Pot Category",border="red")

Pie Chart of Pot Category Bunished hanted in geomenc decorathon Piated in arvirwsar decoation Spped

bar chart for Pot Category Cunistx Pot Categoy