read.csv. Base R only.

Goal

Run every block and confirm the chart is visible.

txt <- "city,units\nNairobi,21\nMombasa,15\nKisumu,15"
writeLines(txt, "/tmp/kiosk.csv")
df <- read.csv("/tmp/kiosk.csv")
barplot(df$units, names.arg = df$city, main = "From CSV")
print(df)

barplot(c(21, 15, 15, 18, 12), names.arg = c("Nairobi", "Mombasa", "Kisumu", "Nakuru", "Eldoret"), col = "#0f6b52", main = "Units")
print("barplot")

set.seed(0)
hist(rpois(80, 12), main = "Units distribution", col = "#0f6b52", xlab = "units")
print("hist")

print("files")