library(plotly)
library(dplyr)
data <- read.csv("titanic.csv")
data$Pclass <- factor(data$Pclass, levels = c(1, 2, 3), labels = c("First Class", "Second Class", "Third Class"))
data$Survived <- factor(data$Survived, levels = c(0, 1), labels = c("Perished", "Survived"))

sum_data <- data %>% group_by(Pclass, Survived) %>% summarise(Fare = sum(Fare), Count = dplyr::n())

plot_ly(sum_data, x = ~Pclass, y = ~Fare, color = ~Survived, type = "bar", colors = c("red", "darkgrey"))