Data Visualization

ggplot(data = Consumer, aes(Vehicle.Driven, fill = factor(Gender))) + 
  geom_bar(position = "dodge")+
   labs(title = "Consumer Transportation Survey", subtitle="Analysis with respect to Gender", x = "Vehicle Type", y = "Count")

  ggplot(Consumer, aes(Vehicle.Driven, fill = factor(Age))) +
  geom_bar(position = "fill")+
  labs(title = "Consumer Transportation Survey", subtitle="Analysis with respect to Age", x = "Vehicle Type", y = "Count")

About the data

• This Data contains the information about Consumer Transportation which has information about the consumer that includes Type of vehicle driven, Gender, Age and miles driven . In my visualization I have visualized Consumer’s data, in which I have made the bar chart which depicts the type of vehicle is driven by gender and by age.
  

Insights to be shared:

Graph 1 : Analysis with respect to Gender

• Car and Mini Van has more female drivers than male drivers.
  
• Truck and SUV has more male drives than Female drivers
  

Graph 2 : Analysis with respect to Age

• Car is driven by any age of drivers however people in age group of 21-30 & 41-50 are more.
• Mini van has more drivers at an age of 31-40.
• SUV is more popular in an age group of 31-50
• And Truck has drivers who are comparatively younger with an age group of 18-40, however max has age between 21-30.
• Survey also shows that the max people with an age group between 21-40 prefer driving and as age increases the drivers avoid driving .