Scatter Plot

data(mtcars)
ggplot(mtcars, aes(x = hp, y = mpg)) +
  geom_point(color = "steelblue", size = 3) +
  labs(title = "MPG vs Horsepower", x = "Horsepower", y = "Miles per Gallon") +
  theme_minimal()

Line Graph

data(AirPassengers)
df <- data.frame(
  Month = time(AirPassengers),
  Passengers = as.numeric(AirPassengers)
)

ggplot(df, aes(x = Month, y = Passengers)) +
  geom_line(color = "darkgreen") +
  labs(title = "Monthly Air Passengers (1949-1960)", x = "Year", y = "Number of Passengers") +
  theme_minimal()
Don't know how to automatically pick scale for
object of type <ts>. Defaulting to continuous.

#Stacked Vertical Bar Chart

data("Titanic")
df_titanic <- as.data.frame(Titanic)

ggplot(df_titanic, aes(x = Class, y = Freq, fill = Survived)) +
  geom_bar(stat = "identity") +
  labs(title = "Survival by Class (Stacked Vertical Bar Chart)", y = "Frequency") +
  theme_minimal()

#Stacked Horizontal Bar Chart

ggplot(df_titanic, aes(x = Freq, y = Class, fill = Survived)) +
  geom_bar(stat = "identity") +
  labs(title = "Survival by Class (Stacked Horizontal Bar Chart)", x = "Frequency") +
  theme_minimal()

LS0tCnRpdGxlOiAiVmlzdWFsaXppbmcgQnVpbHQtaW4gRGF0YXNldHMgaW4gUiIKYXV0aG9yOiAiSGlsYXJ5IE9sb2tlIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgoKYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9CmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KHRpZHlyKQpgYGAKCiMgU2NhdHRlciBQbG90CmBgYHtyfQpkYXRhKG10Y2FycykKZ2dwbG90KG10Y2FycywgYWVzKHggPSBocCwgeSA9IG1wZykpICsKICBnZW9tX3BvaW50KGNvbG9yID0gInN0ZWVsYmx1ZSIsIHNpemUgPSAzKSArCiAgbGFicyh0aXRsZSA9ICJNUEcgdnMgSG9yc2Vwb3dlciIsIHggPSAiSG9yc2Vwb3dlciIsIHkgPSAiTWlsZXMgcGVyIEdhbGxvbiIpICsKICB0aGVtZV9taW5pbWFsKCkKYGBgCgojIExpbmUgR3JhcGgKYGBge3J9CmRhdGEoQWlyUGFzc2VuZ2VycykKZGYgPC0gZGF0YS5mcmFtZSgKICBNb250aCA9IHRpbWUoQWlyUGFzc2VuZ2VycyksCiAgUGFzc2VuZ2VycyA9IGFzLm51bWVyaWMoQWlyUGFzc2VuZ2VycykKKQoKZ2dwbG90KGRmLCBhZXMoeCA9IE1vbnRoLCB5ID0gUGFzc2VuZ2VycykpICsKICBnZW9tX2xpbmUoY29sb3IgPSAiZGFya2dyZWVuIikgKwogIGxhYnModGl0bGUgPSAiTW9udGhseSBBaXIgUGFzc2VuZ2VycyAoMTk0OS0xOTYwKSIsIHggPSAiWWVhciIsIHkgPSAiTnVtYmVyIG9mIFBhc3NlbmdlcnMiKSArCiAgdGhlbWVfbWluaW1hbCgpCmBgYAoKI1N0YWNrZWQgVmVydGljYWwgQmFyIENoYXJ0CmBgYHtyfQpkYXRhKCJUaXRhbmljIikKZGZfdGl0YW5pYyA8LSBhcy5kYXRhLmZyYW1lKFRpdGFuaWMpCgpnZ3Bsb3QoZGZfdGl0YW5pYywgYWVzKHggPSBDbGFzcywgeSA9IEZyZXEsIGZpbGwgPSBTdXJ2aXZlZCkpICsKICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IikgKwogIGxhYnModGl0bGUgPSAiU3Vydml2YWwgYnkgQ2xhc3MgKFN0YWNrZWQgVmVydGljYWwgQmFyIENoYXJ0KSIsIHkgPSAiRnJlcXVlbmN5IikgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCiNTdGFja2VkIEhvcml6b250YWwgQmFyIENoYXJ0IApgYGB7cn0KZ2dwbG90KGRmX3RpdGFuaWMsIGFlcyh4ID0gRnJlcSwgeSA9IENsYXNzLCBmaWxsID0gU3Vydml2ZWQpKSArCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIpICsKICBsYWJzKHRpdGxlID0gIlN1cnZpdmFsIGJ5IENsYXNzIChTdGFja2VkIEhvcml6b250YWwgQmFyIENoYXJ0KSIsIHggPSAiRnJlcXVlbmN5IikgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCg==