create matrix table r and plot load dataframe #R

build.matrix.table.plot.R

df <- data.frame(x=c("spam", "spam", "ham"), y=c("some mail", "some other mail", "some third mail"))
names(df) <- c("Label", "Text")
df$Label <- as.factor(df$Label) // Fill by label would not work if not factor.
df$TextLength <- nchar(as.character(df$Text))
View(df)
ggplot(df, aes(x = TextLength, fill = Label)) + theme_bw() +
         geom_histogram(binwidth = 5) +
         labs(y = "Text Count", x = "Length of Text", title = "Distribution of text on labels")