Adjusting the bin size of a barplot in Rstudio - r

Question

I'm looking to make a simple bar chart of a random number list (1-10) with the following code
Random.Integer.Data = table(Problem.2.Data$Random.Integer)
barplot(Random.Integer.Data, col = "Orange", main = "Random Integer", xlab = "Number Choice", ylab = "Frequency")
When I use this code, it creates a bar plot with the number 1 6 9 on the x axis. It also only creates 8 bars for me which means it is binning the random integers strangely. I would like their to be a single bar for each number between 1 and 10, and I'd like the x axis to show this as well.
Can someone help me with the code I need in order to do this?

Answer 1

I don't think there's anything wrong with your code. There's something wrong with the assumptions you have about your data.
Let's try to recreate a data frame with the same name and column heading, and we'll fill it with 100 random integers between 1 and 10:
set.seed(69)
Problem.2.Data <- data.frame(Random.Integer = sample(10, 100, TRUE))
head(Problem.2.Data)
#> Random.Integer
#> 1 1
#> 2 2
#> 3 8
#> 4 7
#> 5 7
#> 6 6
Now we'll use your exact code, and see that it works as expected:
Random.Integer.Data = table(Problem.2.Data$Random.Integer)
barplot(Random.Integer.Data,
col = "Orange",
main = "Random Integer",
xlab = "Number Choice",
ylab = "Frequency")
However, let's try it again with a smaller sample size, just 20 rows:
Problem.2.Data <- data.frame(Random.Integer = sample(10, 20, TRUE))
head(Problem.2.Data)
#> Random.Integer
#> 1 8
#> 2 5
#> 3 6
#> 4 8
#> 5 4
#> 6 6
Random.Integer.Data = table(Problem.2.Data$Random.Integer)
barplot(Random.Integer.Data,
col = "Orange",
main = "Random Integer",
xlab = "Number Choice",
ylab = "Frequency")
Now we can see there are only 7 bins. Why? Because if we look at our table, there are only 7 unique integers in our data:
Random.Integer.Data
#>
#> 3 4 5 6 8 9 10
#> 1 1 5 5 5 1 2
We can fix this by making our column a factor with 10 levels:
Random.Integer.Data = table(factor(Problem.2.Data$Random.Integer, 1:10))
barplot(Random.Integer.Data,
col = "Orange",
main = "Random Integer",
xlab = "Number Choice",
ylab = "Frequency")
Also note that if I shrink the window down some of the x axis labels disappear to prevent overlaps:
Created on 2020-08-16 by the reprex package (v0.3.0)

Answer 2

If you want 10 bins and you feel like using something else then ggplot2 can give you the same result. As mentioned above, you also need that column with 10 factors.
#install.packages("ggplot2")
library(ggplot2)
df<-data.frame(x=seq(1:10),
y=sample(10,10,TRUE)) #your data
ggplot(df,aes(x=factor(x),y=y))+
geom_col(fill="Orange")+
labs(title = "Random Integer", x = "Number Choice", y = "Frequency")