Titanic Data - Survival Rates in Economic Terms

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())

Error in path.expand(path) : invalid 'path' argument