All frequencies of my bar plot are the same height? - r

Question

Trying to barplot a CSV file and the plot shows all categories as the same height despite the frequencies varying from 450-800
Below is the plot I receive
!https://imgur.com/9HZuiaK
I have tried implementing a height=x, width=x
This results in completely removing the labels and does not fix the initial problem.
setwd("~/Desktop")
causes<-read.csv('causes.csv')
head(causes)
table(causes$Intentional.self.harm..suicide)
barplot(table(causes$Intentional.self.harm..suicide))
barplot(table(causes$Intentional.self.harm..suicide), ylab='Frequency',
main='Barplot of Intentional self-harm (suicide)', col='lightblue'
dput(head(causes, 20))
Intentional.self.harm..suicide. = c(535L,
579L, 480L, 541L, 499L, 537L, 466L, 453L, 459L, 494L, 520L, 553L,
525L, 588L, 578L, 631L, 676L, 656L, 757L, 673L)

Answer 1

I believe you are using wrongly the table function since you already calculated the numbers of modalities. So it is not a graphical nor a functional problem. All you have to do is calculate the frequency as follow :
Intentional.self.harm..suicide. = c(535L,
579L, 480L, 541L, 499L, 537L, 466L, 453L, 459L, 494L, 520L, 553L,
525L, 588L, 578L, 631L, 676L, 656L, 757L, 673L)
df <- Intentional.self.harm..suicide.
barplot(height = df) # correct barplot with counts
df_prop <- table(df) # gives a table that count modalities (all unique ie 1)
str(df_prop)
# With a data.frame if you want to include labels
df_prop <- data.frame(
"type" = paste0("t", 1:20),
"freq" = df/sum(df) # alternatively use prop.table(df)
)
# sum(df_prop$freq) # to check
barplot(height = df_prop$freq) # same 'profile' than first barplot
# --- EDIT / Follow up
# looking at documentation of barplot to set labels and ordinate limits
?barplot
barplot(height = df_prop$freq, names.arg = df_prop$type, ylim=c(0, max(df_prop$freq * 1.2)))