sales_data<-data.frame(Category=c("Electronics","Clothing","Home Decor","Groceries","Books"),Revenue=c(25000,18000,12000,31000,7000))
print(sales_data)
barplot(height=sales_data$Revenue,names.arg=sales_data$Category,main="Monthly Revenue by product Category",xlab="Product Category",ylab="Revenue",col="red",border="black")